* elmo-pop3.el (elmo-pop3-read-response): Fix `response-string'.

Avoid `args-out-of-range 0, 1' error.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index da8918d..8185957 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * elmo-pop3.el (elmo-pop3-read-response): Fix `response-string'.
+       Avoid `args-out-of-range 0, 1' error.
+
 2010-08-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * acap.el (acap-arrival-filter): Use (delete-char (- X)) instead of

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index ac755f3..aff5d75 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -228,7 +228,8 @@ CODE is one of the following:
          (goto-char elmo-pop3-read-point))
        (setq match-end (point))
        (setq response-string
-             (buffer-substring elmo-pop3-read-point (- match-end 2)))
+             (buffer-substring elmo-pop3-read-point
+                               (max (- match-end 2) elmo-pop3-read-point)))
        (goto-char elmo-pop3-read-point)
        (if (looking-at "\\+.*$")
            (progn