Fix quoting glitch in formatting Gnus messages

* lisp/gnus/gnus-util.el (defmacro, gnus-message): Use
‘format-message’, not ‘format’, to be compatible with ‘message’.

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 3cf364fff8b63500f787eb4237a9a6c2bbcac7de..8e390473aa8725c40c0744abbae2ac1e79f9d92a 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -468,7 +468,8 @@ displayed in the echo area."
               (gnus-add-timestamp-to-message
                (if (or (and (null ,format-string) (null ,args))
                        (progn
-                         (setq str (apply 'format ,format-string ,args))
+                         (setq str (apply #'format-message ,format-string
+                                          ,args))
                          (zerop (length str))))
                    (prog1
                        (and ,format-string str)
@@ -506,7 +507,7 @@ inside loops."
     ;; We have to do this format thingy here even if the result isn't
     ;; shown - the return value has to be the same as the return value
     ;; from `message'.
-    (apply 'format args)))
+    (apply #'format-message args)))
 
 (defun gnus-final-warning ()
   (when (and (consp gnus-action-message-log)