Mercurial > emacs
comparison lisp/gnus/gnus-cus.el @ 63492:980e418a44ee
(gnus-score-customize): Don't use `format' on `error' arguments.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 16 Jun 2005 14:46:53 +0000 |
| parents | 4b7fa3ee8e9e |
| children | 18a818a2ee7c b7da78284d4c |
comparison
equal
deleted
inserted
replaced
| 63491:eb8609914b2b | 63492:980e418a44ee |
|---|---|
| 770 "Customize score file FILE. | 770 "Customize score file FILE. |
| 771 When called interactively, FILE defaults to the current score file. | 771 When called interactively, FILE defaults to the current score file. |
| 772 This can be changed using the `\\[gnus-score-change-score-file]' command." | 772 This can be changed using the `\\[gnus-score-change-score-file]' command." |
| 773 (interactive (list gnus-current-score-file)) | 773 (interactive (list gnus-current-score-file)) |
| 774 (unless file | 774 (unless file |
| 775 (error (format "No score file for %s" | 775 (error "No score file for %s" |
| 776 (gnus-group-decoded-name gnus-newsgroup-name)))) | 776 (gnus-group-decoded-name gnus-newsgroup-name))) |
| 777 (let ((scores (gnus-score-load file)) | 777 (let ((scores (gnus-score-load file)) |
| 778 (types (mapcar (lambda (entry) | 778 (types (mapcar (lambda (entry) |
| 779 `(group :format "%v%h\n" | 779 `(group :format "%v%h\n" |
| 780 :doc ,(nth 2 entry) | 780 :doc ,(nth 2 entry) |
| 781 (const :format "" ,(nth 0 entry)) | 781 (const :format "" ,(nth 0 entry)) |
| 1012 | 1012 |
| 1013 ;; The group list is NOT handled with | 1013 ;; The group list is NOT handled with |
| 1014 ;; gnus-agent-cat-prepare-category-field as I don't want the | 1014 ;; gnus-agent-cat-prepare-category-field as I don't want the |
| 1015 ;; group list to appear when customizing a topic. | 1015 ;; group list to appear when customizing a topic. |
| 1016 (widget-insert "\n") | 1016 (widget-insert "\n") |
| 1017 | 1017 |
| 1018 (let ((symb | 1018 (let ((symb |
| 1019 (set | 1019 (set |
| 1020 (make-local-variable 'gnus-agent-cat-groups) | 1020 (make-local-variable 'gnus-agent-cat-groups) |
| 1021 (widget-create | 1021 (widget-create |
| 1022 `(choice | 1022 `(choice |
| 1023 :format "%[Select Member Groups%]\n%v" :value ignore | 1023 :format "%[Select Member Groups%]\n%v" :value ignore |
| 1024 (const :menu-tag "do not change" :tag "" :value ignore) | 1024 (const :menu-tag "do not change" :tag "" :value ignore) |