* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added

[elisp/wanderlust.git] / elmo / elmo-net.el

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index e7a9a4b..34e1143 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -476,8 +476,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))))