From 85c157b156180677a8bb970d294145f9d41106cf Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 17 Sep 2002 01:04:56 +0000 Subject: [PATCH] * elmo-filter.el (elmo-folder-msgdb-create): Add to mark-alist if original mark is non-nil. --- elmo/ChangeLog | 5 +++++ elmo/elmo-filter.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2ead7d5..4565287 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2002-09-17 Hiroya Murata + + * elmo-filter.el (elmo-folder-msgdb-create): Add to mark-alist if + original mark is non-nil. + 2002-09-17 Yuuichi Teranishi * elmo-map.el (elmo-map-folder-list-unreads): Define default behavior. diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index b0696d3..94e2d57 100644 --- a/elmo/elmo-filter.el +++ b/elmo/elmo-filter.el @@ -114,7 +114,7 @@ (let* ((target-folder (elmo-filter-folder-target-internal folder)) (len (length numlist)) (msgdb (elmo-folder-msgdb target-folder)) - overview number-alist mark-alist message-id entity) + overview number-alist mark-alist message-id entity mark) (when (> len elmo-display-progress-threshold) (elmo-progress-set 'elmo-folder-msgdb-create len "Creating msgdb...")) @@ -126,11 +126,12 @@ message-id (elmo-msgdb-overview-entity-get-id entity) number-alist (elmo-msgdb-number-add number-alist number - message-id) - mark-alist (elmo-msgdb-mark-append - mark-alist - number - (elmo-msgdb-get-mark msgdb number)))) + message-id)) + (when (setq mark (elmo-msgdb-get-mark msgdb number)) + (setq mark-alist (elmo-msgdb-mark-append + mark-alist + number + mark)))) (elmo-progress-notify 'elmo-folder-msgdb-create)) (elmo-progress-clear 'elmo-folder-msgdb-create)) (list overview number-alist mark-alist)) -- 1.7.10.4