diff options
| -rw-r--r-- | lisp/gnus/gnus-cus.el | 22 |
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") "\ |
| 253 | The default charset to use in the group.") | 253 | The 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))) "\ |
| 259 | List of charsets that should be ignored. | 259 | List of charsets that should be ignored. |
| 260 | 260 | ||
| 261 | When these charsets are used in the \"charset\" parameter, the | 261 | When these charsets are used in the \"charset\" parameter, the |
| 262 | default charset will be used instead.") | 262 | default 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. |
| 273 | See gnus-emphasis-alist.") | 273 | See 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") "\ |
| 298 | If `gnus-subscribe-newsgroup-method' is set to | 298 | If `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 |
| 300 | automatically be subscribed to this topic")) | 300 | automatically 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 | ||
| 303 | Each entry has the form (NAME TYPE DOC), where NAME is the parameter | 303 | 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.") | |||
| 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. |