aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/gnus-cus.el22
1 files changed, 11 insertions, 11 deletions
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..")
251 251
252 (charset (symbol :tag "Charset") "\ 252 (charset (symbol :tag "Charset") "\
253The default charset to use in the group.") 253The default charset to use in the group.")
254 254
255 (ignored-charsets 255 (ignored-charsets
256 (choice :tag "Ignored charsets" 256 (choice :tag "Ignored charsets"
257 :value nil 257 :value nil
258 (repeat (symbol))) "\ 258 (repeat (symbol))) "\
259List of charsets that should be ignored. 259List of charsets that should be ignored.
260 260
261When these charsets are used in the \"charset\" parameter, the 261When these charsets are used in the \"charset\" parameter, the
262default charset will be used instead.") 262default charset will be used instead.")
263 263
264 (highlight-words 264 (highlight-words
265 (choice :tag "Highlight words" 265 (choice :tag "Highlight words"
266 :value nil 266 :value nil
267 (repeat (list (regexp :tag "Highlight regexp") 267 (repeat (list (regexp :tag "Highlight regexp")
268 (number :tag "Group for entire word" 0) 268 (number :tag "Group for entire word" 0)
269 (number :tag "Group for displayed part" 0) 269 (number :tag "Group for displayed part" 0)
270 (symbol :tag "Face" 270 (symbol :tag "Face"
271 gnus-emphasis-highlight-words)))) 271 gnus-emphasis-highlight-words))))
272 "highlight regexps. 272 "highlight regexps.
273See gnus-emphasis-alist.") 273See gnus-emphasis-alist.")
@@ -279,8 +279,8 @@ See gnus-emphasis-alist.")
279 (choice :tag "Type" 279 (choice :tag "Type"
280 :value nil 280 :value nil
281 (const signature) 281 (const signature)
282 (const signature-file) 282 (const signature-file)
283 (const organization) 283 (const organization)
284 (const address) 284 (const address)
285 (const name) 285 (const name)
286 (const body)) 286 (const body))
@@ -297,7 +297,7 @@ DOC is a documentation string for the parameter.")
297 '((subscribe (regexp :tag "Subscribe") "\ 297 '((subscribe (regexp :tag "Subscribe") "\
298If `gnus-subscribe-newsgroup-method' is set to 298If `gnus-subscribe-newsgroup-method' is set to
299`gnus-subscribe-topics', new groups that matches this regexp will 299`gnus-subscribe-topics', new groups that matches this regexp will
300automatically be subscribed to this topic")) 300automatically be subscribed to this topic"))
301 "Alist of topic parameters that are not also group parameters. 301 "Alist of topic parameters that are not also group parameters.
302 302
303Each entry has the form (NAME TYPE DOC), where NAME is the parameter 303Each entry has the form (NAME TYPE DOC), where NAME is the parameter
@@ -326,14 +326,14 @@ DOC is a documentation string for the parameter.")
326 :doc ,(nth 2 entry) 326 :doc ,(nth 2 entry)
327 (const :format "" ,(nth 0 entry)) 327 (const :format "" ,(nth 0 entry))
328 ,(nth 1 entry))) 328 ,(nth 1 entry)))
329 (append gnus-group-parameters 329 (append gnus-group-parameters
330 (if group 330 (if group
331 gnus-extra-group-parameters 331 gnus-extra-group-parameters
332 gnus-extra-topic-parameters))))) 332 gnus-extra-topic-parameters)))))
333 (unless (or group topic) 333 (unless (or group topic)
334 (error "No group on current line")) 334 (error "No group on current line"))
335 (when (and group topic) 335 (when (and group topic)
336 (error "Both a group an topic on current line")) 336 (error "Both a group and topic on current line"))
337 (unless (or topic (setq info (gnus-get-info group))) 337 (unless (or topic (setq info (gnus-get-info group)))
338 (error "Killed group; can't be edited")) 338 (error "Killed group; can't be edited"))
339 ;; Ready. 339 ;; Ready.