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:
parent
1dda7cc892
commit
711a4be3eb
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user