Commit ed96ace9 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".

parent f87f756b
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
......
......@@ -33,6 +33,7 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'mail-utils)
(defvar parse-time-months)
......@@ -204,7 +205,7 @@ Use streaming commands."
(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))
......
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