772 |
This can be changed using the `\\[gnus-score-change-score-file]' command." |
This can be changed using the `\\[gnus-score-change-score-file]' command." |
773 |
(interactive (list gnus-current-score-file)) |
(interactive (list gnus-current-score-file)) |
774 |
(unless file |
(unless file |
775 |
(error (format "No score file for %s" |
(error "No score file for %s" |
776 |
(gnus-group-decoded-name gnus-newsgroup-name)))) |
(gnus-group-decoded-name gnus-newsgroup-name))) |
777 |
(let ((scores (gnus-score-load file)) |
(let ((scores (gnus-score-load file)) |
778 |
(types (mapcar (lambda (entry) |
(types (mapcar (lambda (entry) |
779 |
`(group :format "%v%h\n" |
`(group :format "%v%h\n" |
1014 |
;; gnus-agent-cat-prepare-category-field as I don't want the |
;; gnus-agent-cat-prepare-category-field as I don't want the |
1015 |
;; group list to appear when customizing a topic. |
;; group list to appear when customizing a topic. |
1016 |
(widget-insert "\n") |
(widget-insert "\n") |
1017 |
|
|
1018 |
(let ((symb |
(let ((symb |
1019 |
(set |
(set |
1020 |
(make-local-variable 'gnus-agent-cat-groups) |
(make-local-variable 'gnus-agent-cat-groups) |
1021 |
(widget-create |
(widget-create |
1022 |
`(choice |
`(choice |