From 5ec9ac1111a819ff902b00ab3299ff0062fd19e1 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 17 Apr 2004 10:18:29 +0000 Subject: [PATCH] (elmo-split-subr): Flag of a non-registered message, It sets to nil. --- elmo/ChangeLog | 5 +++++ elmo/elmo-split.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index fcc8980..6f664b1 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2004-04-17 Hiroya Murata + + * elmo-split.el (elmo-split-subr): Flag of a non-registered + message, It sets to nil. + 2004-04-16 Hiroya Murata * elmo.el (elmo-folder-list-messages): Merge lists only if both diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el index 24485c4..57bf966 100644 --- a/elmo/elmo-split.el +++ b/elmo/elmo-split.el @@ -316,7 +316,9 @@ 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)) + (setq flags (or (elmo-message-flags folder msg) + (and (elmo-message-entity folder msg) + '(read)))) (catch 'terminate (dolist (rule (append elmo-split-rule default-rule)) (setq elmo-split-match-string-internal nil) @@ -348,7 +350,10 @@ If prefix argument ARG is specified, do a reharsal (no harm)." action))) (elmo-folder-create target-folder))) (elmo-folder-open-internal target-folder) - (setq failure (not (elmo-folder-append-buffer target-folder (or flags '(read))))) + (setq failure (not + (elmo-folder-append-buffer + target-folder + flags))) (elmo-folder-close-internal target-folder)) (error (setq failure t) (incf fcount))) -- 1.7.10.4