Commit 26b4a51d authored by Deepak Goel's avatar Deepak Goel
Browse files

Fix buggy calls to `error'.

parent 8c16bd8c
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.
......
2007-12-06 D. Goel <deego3@gmail.com>
* pop3.el (pop3-read-response): Ditto.
* gnus-art.el (article-make-date-line): Fix buggy call to `error'.
* gnus-start.el (gnus-load): Ditto.
......
......@@ -314,7 +314,7 @@ Return the response string if optional second argument is non-nil."
(setq match-end (point))
(goto-char pop3-read-point)
(if (looking-at "-ERR")
(error (buffer-substring (point) (- match-end 2)))
(error "%s" (buffer-substring (point) (- match-end 2)))
(if (not (looking-at "+OK"))
(progn (setq pop3-read-point match-end) nil)
(setq pop3-read-point match-end)
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment