diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailout.el | 2 | ||||
| -rw-r--r-- | lisp/mail/uce.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index e75387f48ac..7fb40baa7c8 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1922,7 +1922,7 @@ mapped to mostly alphanumerics for safety." ;; progn to get nil result no matter what (progn (make-directory queue-directory t) nil) (file-accessible-directory-p queue-directory) - (error (concat "FQM: Message not queued; trouble with directory " queue-directory))) + (error "%s" (concat "FQM: Message not queued; trouble with directory " queue-directory))) (let ((filename) (is-fqm) (is-in-this-dir) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 1e9f8379b7b..234277320ad 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -380,7 +380,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (rmail-toggle-header)) (if (and (> count 0) (not next-message-p)) (progn - (error + (error "%s" (save-excursion (set-buffer rmailbuf) (format "Only %d message%s appended" num-appended diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 5a4e01ae9fc..54933993068 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -239,7 +239,7 @@ address, and postmaster of the mail relay used." (full-header-p (and (eq uce-mail-reader 'rmail) (not (rmail-msg-is-pruned))))) (or (get-buffer message-buffer) - (error (concat "No buffer " message-buffer ", cannot find UCE"))) + (error "%s" (concat "No buffer " message-buffer ", cannot find UCE"))) (switch-to-buffer message-buffer) ;; We need the message with headers pruned. (if full-header-p |