Mercurial > emacs
diff lisp/gnus/pop3.el @ 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 | 3d982e5c5f58 |
children | ef15e8533a1c |
line wrap: on
line diff
--- 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))