Improves calls to `error', per mail from RMS.

2 files changed, 2 insertions, 2 deletions

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 7fb40baa7c8..ab8611424db 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 "%s" (concat "FQM: Message not queued; trouble with directory " queue-directory)))
+      (error "FQM: Message not queued; trouble with directory %s" queue-directory))
   (let ((filename)
         (is-fqm)
         (is-in-this-dir)
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 54933993068..094cb03f861 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 "%s" (concat "No buffer " message-buffer ", cannot find UCE")))
+        (error "No buffer %s, cannot find UCE" message-buffer))
     (switch-to-buffer message-buffer)
     ;; We need the message with headers pruned.
     (if full-header-p