[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101375: pop3.el (pop3-number-of-resp
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101375: pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ". |
Date: |
Mon, 06 Sep 2010 02:09:42 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101375
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-09-06 02:09:42 +0000
message:
pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".
modified:
lisp/gnus/ChangeLog
lisp/gnus/pop3.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-06 00:48:40 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-06 02:09:42 +0000
@@ -1,3 +1,8 @@
+2010-09-06 Katsumi Yamaoka <address@hidden>
+
+ * pop3.el: Require cl when compiling.
+ (pop3-number-of-responses): Search for "+OK", not "+OK ".
+
2010-09-05 Lars Magne Ingebrigtsen <address@hidden>
* gnus-start.el (gnus-get-unread-articles): Don't bother with groups
=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-05 23:34:30 +0000
+++ b/lisp/gnus/pop3.el 2010-09-06 02:09:42 +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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101375: pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".,
Katsumi Yamaoka <=