From: kaoru <kaoru>
Date: Thu, 26 Aug 2010 11:43:50 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-pop3-read-response): Fix `response-string'.
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~11
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=6c3c2eb83718edca2406a814c0d3346fd7b14a8e

* 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
--- 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
--- 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