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