(gnus-score-customize): Don't use `format' on `error' arguments.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f784487c3d172f7d185ad0d4dee6d46397679d05..1e647d89ea89cc6e4e6cab2c29f805a0b098bbfa 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-16  Juanma Barranquero  <lekktu@gmail.com>
+
+       * 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  <miles@gnu.org>
 
        * 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 0c31ea9dd1b469860b414c46cf1c495c18c105c8..1a595a6ab7a78924f7286f6037fc45d616f57a39 100644 (file)
--- 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