From: hmurata <hmurata>
Date: Tue, 17 Sep 2002 01:04:56 +0000 (+0000)
Subject: * elmo-filter.el (elmo-folder-msgdb-create): Add to mark-alist if
X-Git-Tag: elmo-mark-restart~141
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85c157b156180677a8bb970d294145f9d41106cf;p=elisp%2Fwanderlust.git

* elmo-filter.el (elmo-folder-msgdb-create): Add to mark-alist if
original mark is non-nil.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-filter.el (elmo-folder-msgdb-create): Add to mark-alist if
+	original mark is non-nil.
+
 2002-09-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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))