1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

(gnus-group-customize): Fix typo.

This commit is contained in:
Juanma Barranquero 2002-10-18 08:38:17 +00:00
parent 1dda7cc892
commit 711a4be3eb

View File

@ -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.