mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Fix quoting glitch in formatting Gnus messages

Browse Source 
* lisp/gnus/gnus-util.el (defmacro, gnus-message): Use
‘format-message’, not ‘format’, to be compatible with ‘message’.
This commit is contained in:
Paul Eggert 2019-11-11 10:29:56 -08:00
parent 72729014fc
commit 269796288a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/gnus-util.el
View File

@ -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)