From: yoichi <yoichi>
Date: Sat, 10 Apr 2004 08:04:22 +0000 (+0000)
Subject: * elmo-split.el (elmo-split-subr): Append message with flag.
X-Git-Tag: wl-2_11_25~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e47646f60e065349d578c9b2d8684996f74abdb;p=elisp%2Fwanderlust.git

* elmo-split.el (elmo-split-subr): Append message with flag.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6b84b65..ed67ea1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2004-04-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* elmo-split.el (elmo-split-subr): Append message with flag.
+
 	* elmo-localdir.el (elmo-folder-append-buffer): Fix interface.
 	* elmo-flag.el (elmo-folder-append-buffer): Ditto.
 	* elmo-maildir.el (elmo-folder-append-buffer): Ditto.
diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 70249b8..cbd4f19 100644
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -38,6 +38,7 @@
 ;;
 
 ;;; Code:
+(eval-when-compile (require 'cl))
 (require 'elmo)
 
 (eval-when-compile
@@ -299,7 +300,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
 	(fcount 0)
 	(default-rule `((t ,elmo-split-default-action)))
 	msgs action target-folder failure delete-substance
-	record-log log-string)
+	record-log log-string flags)
     (message "Splitting...")
     (elmo-folder-open-internal folder)
     (setq msgs (elmo-folder-list-messages folder))
@@ -315,6 +316,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
 					  nil (current-buffer) 'unread))
 		(run-hooks 'elmo-split-fetch-hook)
 		(setq elmo-split-message-entity (mime-parse-buffer))
+		(setq flags (elmo-message-flags folder msg))
 		(catch 'terminate
 		  (dolist (rule (append elmo-split-rule default-rule))
 		    (setq elmo-split-match-string-internal nil)
@@ -346,7 +348,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
 					 action)))
 				    (elmo-folder-create target-folder)))
 				(elmo-folder-open-internal target-folder)
-				(elmo-folder-append-buffer target-folder)
+				(elmo-folder-append-buffer target-folder (or flags '(read)))
 				(elmo-folder-close-internal target-folder))
 			    (error (setq failure t)
 				   (incf fcount)))