diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/pop3.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 27b3a1586b7..74b01dbe94a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,6 @@ 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. diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index d152c2480ad..a48e8bc6cfe 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -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) |