/[emacs]/emacs/lisp/gnus/gnus-cus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by zsh, Wed Dec 20 20:20:51 2000 UTC revision 1.6.18.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 251  in it..") Line 251  in it..")
251    
252      (charset (symbol :tag "Charset") "\      (charset (symbol :tag "Charset") "\
253  The default charset to use in the group.")  The default charset to use in the group.")
254                
255      (ignored-charsets      (ignored-charsets
256       (choice :tag "Ignored charsets"       (choice :tag "Ignored charsets"
257               :value nil               :value nil
258               (repeat (symbol))) "\               (repeat (symbol))) "\
259  List of charsets that should be ignored.  List of charsets that should be ignored.
260    
261  When these charsets are used in the \"charset\" parameter, the  When these charsets are used in the \"charset\" parameter, the
262  default charset will be used instead.")  default charset will be used instead.")
263                
264      (highlight-words      (highlight-words
265       (choice :tag "Highlight words"       (choice :tag "Highlight words"
266               :value nil               :value nil
267               (repeat (list (regexp :tag "Highlight regexp")               (repeat (list (regexp :tag "Highlight regexp")
268                             (number :tag "Group for entire word" 0)                             (number :tag "Group for entire word" 0)
269                             (number :tag "Group for displayed part" 0)                             (number :tag "Group for displayed part" 0)
270                             (symbol :tag "Face"                             (symbol :tag "Face"
271                                     gnus-emphasis-highlight-words))))                                     gnus-emphasis-highlight-words))))
272       "highlight regexps.       "highlight regexps.
273  See gnus-emphasis-alist.")  See gnus-emphasis-alist.")
# Line 279  See gnus-emphasis-alist.") Line 279  See gnus-emphasis-alist.")
279                        (choice :tag "Type"                        (choice :tag "Type"
280                                :value nil                                :value nil
281                                (const signature)                                (const signature)
282                                (const signature-file)                                (const signature-file)
283                                (const organization)                                (const organization)
284                                (const address)                                (const address)
285                                (const name)                                (const name)
286                                (const body))                                (const body))
# Line 297  DOC is a documentation string for the pa Line 297  DOC is a documentation string for the pa
297    '((subscribe (regexp :tag "Subscribe") "\    '((subscribe (regexp :tag "Subscribe") "\
298  If `gnus-subscribe-newsgroup-method' is set to  If `gnus-subscribe-newsgroup-method' is set to
299  `gnus-subscribe-topics', new groups that matches this regexp will  `gnus-subscribe-topics', new groups that matches this regexp will
300  automatically be subscribed to this topic"))  automatically be subscribed to this topic"))
301    "Alist of topic parameters that are not also group parameters.    "Alist of topic parameters that are not also group parameters.
302    
303  Each entry has the form (NAME TYPE DOC), where NAME is the parameter  Each entry has the form (NAME TYPE DOC), where NAME is the parameter
# Line 326  DOC is a documentation string for the pa Line 326  DOC is a documentation string for the pa
326                                  :doc ,(nth 2 entry)                                  :doc ,(nth 2 entry)
327                                  (const :format "" ,(nth 0 entry))                                  (const :format "" ,(nth 0 entry))
328                                  ,(nth 1 entry)))                                  ,(nth 1 entry)))
329                         (append gnus-group-parameters                         (append gnus-group-parameters
330                                 (if group                                 (if group
331                                     gnus-extra-group-parameters                                     gnus-extra-group-parameters
332                                   gnus-extra-topic-parameters)))))                                   gnus-extra-topic-parameters)))))
333      (unless (or group topic)      (unless (or group topic)
334        (error "No group on current line"))        (error "No group on current line"))
335      (when (and group topic)      (when (and group topic)
336        (error "Both a group an topic on current line"))        (error "Both a group and topic on current line"))
337      (unless (or topic (setq info (gnus-get-info group)))      (unless (or topic (setq info (gnus-get-info group)))
338        (error "Killed group; can't be edited"))        (error "Killed group; can't be edited"))
339      ;; Ready.      ;; Ready.

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26