(elmo-pop3-read-response): Refined the regexp for response codes.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9c97db0..df9f61b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,6 +1,11 @@
 2004-08-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
-       * elmo-pop3.el (elmo-pop3-read-response): Treat return code.
+       * elmo-pop3.el (elmo-pop3-read-response): Refined the regexp for
+       response codes.
+
+2004-08-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-pop3.el (elmo-pop3-read-response): Treat response codes.
        (elmo-network-close-session): Follow the changes in
        `elmo-pop3-read-response'.
        (elmo-pop3-auth-user): Ditto.

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 30fc8b2..e82ee97 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -236,7 +236,7 @@ CODE is one of the following:
                      response-string)))
          (if (looking-at "\\-.*$")
              (progn
-               (when (looking-at "[^ ]+ \\[\\(.*\\)\\]")
+               (when (looking-at "[^ ]+ \\[\\([^]]+\\)\\]")
                  (setq return-value
                        (intern
                         (downcase