From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 11 Nov 2019 18:29:56 +0000 (-0800)
Subject: Fix quoting glitch in formatting Gnus messages
X-Git-Tag: emacs-27.0.90~659
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=269796288a43520a1dcc481337af472d086faaa4;p=emacs.git

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 3cf364fff8b..8e390473aa8 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)