From b66c24b4429c4ef3acf555c400169fd8090de195 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 16 Jun 2005 14:47:52 +0000 Subject: [PATCH] (gnus-score-customize): Don't use `format' on `error' arguments. --- lisp/gnus/ChangeLog | 12 +++++++++--- lisp/gnus/gnus-cus.el | 10 +++++----- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f784487c3d1..1e647d89ea8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2005-06-16 Juanma Barranquero + + * gnus-art.el (gnus-article-encrypt-body): + * gnus-cus.el (gnus-score-customize): + Don't use `format' on `error' arguments. + 2005-06-16 Miles Bader * spam.el (spam): Remove "-face" suffix from face name. @@ -79,7 +85,7 @@ (gnus-server-agent): Remove "-face" suffix from face names. (gnus-server-agent-face, gnus-server-opened-face) (gnus-server-closed-face, gnus-server-denied-face) - (gnus-server-offline-face): + (gnus-server-offline-face): New backward-compatibility aliases for renamed faces. (gnus-server-agent-face, gnus-server-opened-face) (gnus-server-closed-face, gnus-server-denied-face) @@ -97,7 +103,7 @@ (gnus-cite-attribution-face, gnus-cite-face-1, gnus-cite-face-2) (gnus-cite-face-3, gnus-cite-face-4, gnus-cite-face-5) (gnus-cite-face-6, gnus-cite-face-7, gnus-cite-face-8) - (gnus-cite-face-9, gnus-cite-face-10, gnus-cite-face-11): + (gnus-cite-face-9, gnus-cite-face-10, gnus-cite-face-11): New backward-compatibility aliases for renamed faces. (gnus-cite-attribution-face, gnus-cite-face-list) (gnus-article-boring-faces): Use renamed gnus faces. @@ -107,7 +113,7 @@ (gnus-header-content): Remove "-face" suffix from face names. (gnus-signature-face, gnus-header-from-face) (gnus-header-subject-face, gnus-header-newsgroups-face) - (gnus-header-name-face, gnus-header-content-face): + (gnus-header-name-face, gnus-header-content-face): New backward-compatibility aliases for renamed faces. (gnus-signature-face, gnus-header-face-alist): Use renamed gnus faces. diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index 0c31ea9dd1b..1a595a6ab7a 100644 --- a/lisp/gnus/gnus-cus.el +++ b/lisp/gnus/gnus-cus.el @@ -772,8 +772,8 @@ When called interactively, FILE defaults to the current score file. This can be changed using the `\\[gnus-score-change-score-file]' command." (interactive (list gnus-current-score-file)) (unless file - (error (format "No score file for %s" - (gnus-group-decoded-name gnus-newsgroup-name)))) + (error "No score file for %s" + (gnus-group-decoded-name gnus-newsgroup-name))) (let ((scores (gnus-score-load file)) (types (mapcar (lambda (entry) `(group :format "%v%h\n" @@ -1014,9 +1014,9 @@ articles in the thread. ;; gnus-agent-cat-prepare-category-field as I don't want the ;; group list to appear when customizing a topic. (widget-insert "\n") - - (let ((symb - (set + + (let ((symb + (set (make-local-variable 'gnus-agent-cat-groups) (widget-create `(choice -- 2.39.5