From 269796288a43520a1dcc481337af472d086faaa4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 11 Nov 2019 10:29:56 -0800 Subject: [PATCH] Fix quoting glitch in formatting Gnus messages MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 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) -- 2.39.5