diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-11-11 10:29:56 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-11-11 10:32:52 -0800 |
| commit | 269796288a43520a1dcc481337af472d086faaa4 (patch) | |
| tree | ccafdb192f5314af7d443b58ba11cc50f1997d97 | |
| parent | 72729014fcad377cbcdb2c5a59eb8b37ecf2a020 (diff) | |
| download | emacs-269796288a43520a1dcc481337af472d086faaa4.tar.gz emacs-269796288a43520a1dcc481337af472d086faaa4.tar.bz2 emacs-269796288a43520a1dcc481337af472d086faaa4.zip | |
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’.
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
1 files 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) |