* 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 (file)
--- 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 (file)
--- 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.