diff options
| author | Deepak Goel <[email protected]> | 2007-12-06 18:18:13 +0000 |
|---|---|---|
| committer | Deepak Goel <[email protected]> | 2007-12-06 18:18:13 +0000 |
| commit | 26b4a51d1e6ef277c93f0d385d76a0fa9af69e7f (patch) | |
| tree | df2fe9bd005e02fe2f82f269ce91a3e07c5781b5 /lisp/mail | |
| parent | 8c16bd8c3566df3b0cbbc28692a23a378604f423 (diff) | |
Fix buggy calls to `error'.
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 e75387f48a..7fb40baa7c 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 1e9f8379b7..234277320a 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 5a4e01ae9f..5493399306 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 |