From: Glenn Morris <rgm@gnu.org>
Date: Fri, 13 Sep 2013 07:28:16 +0000 (-0700)
Subject: * lisp/gnus/gnus-spec.el (gnus-xmas-format): Fix weird error call.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1644
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=311273ab7973644d14ffa2e5c0f3516306aa4d6d;p=emacs.git

* lisp/gnus/gnus-spec.el (gnus-xmas-format): Fix weird error call.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4e72ae06f51..5ba1d45e46a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-13  Glenn Morris  <rgm@gnu.org>
 
+	* gnus-spec.el (gnus-xmas-format): Fix weird error call.
+
 	* gnus-html.el (declare-function): Add compat stub for ancient Emacs.
 	(image-size): Declare.
 
diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 0ff8ec89ac1..a39f185b56d 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -512,7 +512,8 @@ are supported for %s."
 	  (delete-char -1))
 	 (t
 	  (if (null args)
-	      (error 'wrong-number-of-arguments #'my-format n fstring))
+	      (signal 'wrong-number-of-arguments
+		      (list #'gnus-xmas-format n fstring)))
 	  (let* ((minlen (string-to-number (or (match-string 2) "")))
 		 (arg (car args))
 		 (str (if (stringp arg) arg (format "%s" arg)))