From 0e47646f60e065349d578c9b2d8684996f74abdb Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 10 Apr 2004 08:04:22 +0000 Subject: [PATCH] * elmo-split.el (elmo-split-subr): Append message with flag. --- elmo/ChangeLog | 2 ++ elmo/elmo-split.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + * 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))) -- 1.7.10.4