Mercurial > emacs
changeset 87141:1a8ec74a74f3
Fix buggy calls to `error'.
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Thu, 06 Dec 2007 18:18:13 +0000 |
| parents | 9c91533a901a |
| children | a33cd731dd95 |
| files | lisp/ChangeLog lisp/mail/feedmail.el lisp/mail/rmailout.el lisp/mail/uce.el |
| diffstat | 4 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 06 18:13:53 2007 +0000 +++ b/lisp/ChangeLog Thu Dec 06 18:18:13 2007 +0000 @@ -1,5 +1,11 @@ 2007-12-06 D. Goel <deego3@gmail.com> + * mail/uce.el (uce-reply-to-uce): Ditto. + + * mail/rmailout.el (rmail-output): Ditto. + + * mail/feedmail.el (feedmail-dump-message-to-queue): Ditto. + * whitespace.el (whitespace-write-file-hook): Ditto. * wdired.el (wdired-check-kill-buffer): Ditto.
--- a/lisp/mail/feedmail.el Thu Dec 06 18:13:53 2007 +0000 +++ b/lisp/mail/feedmail.el Thu Dec 06 18:18:13 2007 +0000 @@ -1922,7 +1922,7 @@ ;; 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)
--- a/lisp/mail/rmailout.el Thu Dec 06 18:13:53 2007 +0000 +++ b/lisp/mail/rmailout.el Thu Dec 06 18:18:13 2007 +0000 @@ -380,7 +380,7 @@ (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
--- a/lisp/mail/uce.el Thu Dec 06 18:13:53 2007 +0000 +++ b/lisp/mail/uce.el Thu Dec 06 18:18:13 2007 +0000 @@ -239,7 +239,7 @@ (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