X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-split.el;h=db175a4c3e9371057aa1cd9fa17d707af6848a03;hb=a01aaec6aa584e26e79bca5e17bddf13893918a6;hp=03a975e06abcdb7a58e370f0db736dd772c9bcd6;hpb=1d429b4cd9bf69afa6001cc8c985ff2b176b7faa;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 03a975e..db175a4 100644
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -294,6 +294,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
 		      (elmo-message-fetch folder msg
 					  (elmo-make-fetch-strategy 'entire)
 					  nil (current-buffer) 'unread))
+		(run-hooks 'elmo-split-fetch-hook)
 		(setq elmo-split-message-entity (mime-parse-buffer))
 		(catch 'terminate
 		  (dolist (rule (append elmo-split-rule default-rule))
@@ -326,7 +327,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 'unread)
+				(elmo-folder-append-buffer target-folder)
 				(elmo-folder-close-internal target-folder))
 			    (error (setq failure t)
 				   (incf fcount)))
@@ -370,7 +371,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
 				       "  Test: do nothing\n")
 				      ((function action)
 				       (format "  Test: function:%s\n"
-					       (symbol-name action)))
+					       (prin1-to-string action)))
 				      (t
 				       "  ERROR: wrong action specified\n"))
 				   (cond