From: Juanma Barranquero Date: Fri, 18 Oct 2002 08:38:17 +0000 (+0000) Subject: (gnus-group-customize): Fix typo. X-Git-Tag: ttn-vms-21-2-B4~12782 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=711a4be3eb1239a3a1af246214ebfebbf034b9e6;p=emacs.git (gnus-group-customize): Fix typo. --- diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index 87987e59e49..32dc57d5a91 100644 --- a/lisp/gnus/gnus-cus.el +++ b/lisp/gnus/gnus-cus.el @@ -251,23 +251,23 @@ in it..") (charset (symbol :tag "Charset") "\ The default charset to use in the group.") - - (ignored-charsets - (choice :tag "Ignored charsets" + + (ignored-charsets + (choice :tag "Ignored charsets" :value nil (repeat (symbol))) "\ List of charsets that should be ignored. When these charsets are used in the \"charset\" parameter, the default charset will be used instead.") - - (highlight-words + + (highlight-words (choice :tag "Highlight words" :value nil (repeat (list (regexp :tag "Highlight regexp") (number :tag "Group for entire word" 0) (number :tag "Group for displayed part" 0) - (symbol :tag "Face" + (symbol :tag "Face" gnus-emphasis-highlight-words)))) "highlight regexps. See gnus-emphasis-alist.") @@ -279,8 +279,8 @@ See gnus-emphasis-alist.") (choice :tag "Type" :value nil (const signature) - (const signature-file) - (const organization) + (const signature-file) + (const organization) (const address) (const name) (const body)) @@ -297,7 +297,7 @@ DOC is a documentation string for the parameter.") '((subscribe (regexp :tag "Subscribe") "\ If `gnus-subscribe-newsgroup-method' is set to `gnus-subscribe-topics', new groups that matches this regexp will -automatically be subscribed to this topic")) +automatically be subscribed to this topic")) "Alist of topic parameters that are not also group parameters. Each entry has the form (NAME TYPE DOC), where NAME is the parameter @@ -326,14 +326,14 @@ DOC is a documentation string for the parameter.") :doc ,(nth 2 entry) (const :format "" ,(nth 0 entry)) ,(nth 1 entry))) - (append gnus-group-parameters + (append gnus-group-parameters (if group gnus-extra-group-parameters gnus-extra-topic-parameters))))) (unless (or group topic) (error "No group on current line")) (when (and group topic) - (error "Both a group an topic on current line")) + (error "Both a group and topic on current line")) (unless (or topic (setq info (gnus-get-info group))) (error "Killed group; can't be edited")) ;; Ready.