[Emacs-diffs] /srv/bzr/emacs/trunk r104070: pop3.el (pop3-open-server): Error messages are "-ERR".

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104070
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-02 01:19:21 +0000
message:
  pop3.el (pop3-open-server): Error messages are "-ERR".
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/pop3.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-01 23:30:18 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-02 01:19:21 +0000
@@ -1,3 +1,7 @@
+2011-05-02  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * pop3.el (pop3-open-server): Error messages are "-ERR".
+
 2011-05-01  Lars Magne Ingebrigtsen  <address@hidden>
 
        * pop3.el (pop3-open-server): Upgrade opportunistically to STARTTLS.

=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2011-05-01 23:30:18 +0000
+++ b/lisp/gnus/pop3.el 2011-05-02 01:19:21 +0000
@@ -306,7 +306,7 @@
                    (t
                     (or pop3-stream-type 'network)))
             :capability-command "CAPA\r\n"
-            :end-of-command "^\\.\r?\n\\|^\\+[A-Z]+ .*\n"
+            :end-of-command "^\\.\r?\n\\|^\\(-ERR\\|+OK \\).*\n"
             :success "^\\+OK.*\n"
             :return-list t
             :starttls-function