Mercurial > emacs
changeset 110224:3d216398af49
pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Sep 2010 02:09:42 +0000 |
| parents | 109e3a627792 |
| children | 6c9f59d296d3 b02c6c7716e4 51163d71c385 |
| files | lisp/gnus/ChangeLog lisp/gnus/pop3.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Sep 06 00:48:40 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Sep 06 02:09:42 2010 +0000 @@ -1,3 +1,8 @@ +2010-09-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * pop3.el: Require cl when compiling. + (pop3-number-of-responses): Search for "+OK", not "+OK ". + 2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org> * gnus-start.el (gnus-get-unread-articles): Don't bother with groups
--- a/lisp/gnus/pop3.el Mon Sep 06 00:48:40 2010 +0000 +++ b/lisp/gnus/pop3.el Mon Sep 06 02:09:42 2010 +0000 @@ -33,6 +33,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'mail-utils) (defvar parse-time-months) @@ -204,7 +205,7 @@ (let ((responses 0)) (save-excursion (goto-char (point-min)) - (while (or (and (re-search-forward "^\\+OK " nil t) + (while (or (and (re-search-forward "^\\+OK" nil t) (or (not endp) (re-search-forward "^\\.\r?\n" nil t))) (re-search-forward "^-ERR " nil t))