X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-net.el;h=06c661e031377910c84425f33c65a8663967ad13;hb=fb40159a1fc3d4fb1400f8fe3befb1056bc75b8c;hp=e7a9a4bf4a248249513e7543a36ad98384ddcfc0;hpb=5ebce8693f237d040079d50e074388e5e06039c9;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index e7a9a4b..06c661e 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -438,27 +438,30 @@ Returned value is searched from `elmo-network-stream-type-alist'."
   (elmo-folder-delete-messages-dop folder numbers))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-net-folder)
-					      numbers seen-list)
+					      numbers flag-table)
   (if (elmo-folder-plugged-p folder)
       (elmo-folder-send folder 'elmo-folder-msgdb-create-plugged
-			numbers seen-list)
+			numbers flag-table)
     (elmo-folder-send folder 'elmo-folder-msgdb-create-unplugged
-		      numbers seen-list)))
+		      numbers flag-table)))
 
 (luna-define-method elmo-folder-msgdb-create-unplugged ((folder
 							 elmo-net-folder)
 							numbers
-							seen-list)
+							flag-table)
   ;; XXXX should be appended to already existing msgdb.
   (elmo-dop-msgdb
    (elmo-folder-msgdb-create (elmo-dop-spool-folder folder)
 			     (mapcar 'abs numbers)
-			     seen-list)))
+			     flag-table)))
 
 (luna-define-method elmo-folder-unmark-important :before ((folder
 							   elmo-net-folder)
-							  numbers)
-  (when (elmo-folder-use-flag-p folder)
+							  numbers
+							  &optional
+							  ignore-flag)
+  (when (and (elmo-folder-use-flag-p folder)
+	     (not ignore-flag))
     (if (elmo-folder-plugged-p folder)
 	(elmo-folder-send folder 'elmo-folder-unmark-important-plugged
 			  numbers)
@@ -467,8 +470,11 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 
 (luna-define-method elmo-folder-mark-as-important :before ((folder
 							    elmo-net-folder)
-							   numbers)
-  (when (elmo-folder-use-flag-p folder)
+							   numbers
+							   &optional
+							   ignore-flag)
+  (when (and (elmo-folder-use-flag-p folder)
+	     (not ignore-flag))
     (if (elmo-folder-plugged-p folder)
 	(elmo-folder-send folder 'elmo-folder-mark-as-important-plugged
 			  numbers)
@@ -476,8 +482,10 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 			numbers))))
 
 (luna-define-method elmo-folder-unmark-read :before ((folder elmo-net-folder)
-						     numbers)
-  (when (elmo-folder-use-flag-p folder)
+						     numbers
+						     &optional ignore-flag)
+  (when (and (elmo-folder-use-flag-p folder)
+	     (not ignore-flag))
     (if (elmo-folder-plugged-p folder)
 	(elmo-folder-send folder 'elmo-folder-unmark-read-plugged numbers)
       (elmo-folder-send folder 'elmo-folder-unmark-read-unplugged numbers))))