master 2697962 2/3: Fix quoting glitch in formatting Gnus messages

[Paul Eggert]

branch: master
commit 269796288a43520a1dcc481337af472d086faaa4
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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’.
---
 lisp/gnus/gnus-util.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 3cf364f..8e39047 100644
--- 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)