From: yoichi <yoichi>
Date: Sun, 15 Oct 2006 00:40:08 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-arrival-filter): Call delete-region in
X-Git-Tag: wl-2_15_5~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b5d5611275150736d26e09014e1dc0687c6c0052;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-arrival-filter): Call delete-region in
cleanup-forms [wl:14027].
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8c029cb..42bd39c 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-imap4.el (elmo-imap4-arrival-filter): Call delete-region in
+	cleanup-forms [wl:14027].
+
 2006-10-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-flag.el (elmo-global-flag-set-internal): Use
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 2aee276..5377955 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1292,8 +1292,8 @@ Return nil if no complete line has arrived."
 			    elmo-imap4-current-response)))
 		    (t
 		     (message "Unknown state %s in arrival filter"
-			      elmo-imap4-status))))
-	  (delete-region (point-min) (point-max))))))))
+			      elmo-imap4-status)))
+	    (delete-region (point-min) (point-max)))))))))
 
 ;; IMAP parser.