X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-sendlog.el;h=7a5c81194b7e82a07e7647b5f058055252916134;hb=c2738fdc4e616fb55973a7e285432f60af6c1c57;hp=02c05eb382d8f8b6b882480c52dc8c186a5a025c;hpb=bb80c1a8578abe6d0d2c89fcb1010e4218f34502;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-sendlog.el b/elmo/elmo-sendlog.el
index 02c05eb..7a5c811 100644
--- a/elmo/elmo-sendlog.el
+++ b/elmo/elmo-sendlog.el
@@ -85,7 +85,7 @@
   (let ((i 0)
 	(len (length numbers))
 	(new-msgdb (elmo-make-msgdb))
-	entity message-id)
+	entity message-id flags)
     (message "Creating msgdb...")
     (while numbers
       (setq entity
@@ -97,9 +97,10 @@
 	   (nconc
 	    (elmo-folder-killed-list-internal folder)
 	    (list (car numbers))))
-	(setq message-id (elmo-msgdb-overview-entity-get-id entity))
-	(elmo-msgdb-append-entity new-msgdb entity
-				  (elmo-flag-table-get flag-table message-id)))
+	(setq message-id (elmo-msgdb-overview-entity-get-id entity)
+	      flags (elmo-flag-table-get flag-table message-id))
+	(elmo-global-flags-set flags folder (car numbers) message-id)
+	(elmo-msgdb-append-entity new-msgdb entity flags))
       (when (> len elmo-display-progress-threshold)
 	(setq i (1+ i))
 	(elmo-display-progress