From 6c3c2eb83718edca2406a814c0d3346fd7b14a8e Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 26 Aug 2010 11:43:50 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-pop3-read-response): Fix `response-string'. Avoid `args-out-of-range 0, 1' error. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pop3.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * elmo-pop3.el (elmo-pop3-read-response): Fix `response-string'. + Avoid `args-out-of-range 0, 1' error. + 2010-08-24 TAKAHASHI Kaoru * 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 -- 1.7.10.4