* elmo-dop.el (elmo-dop-queue-method-name-alist): Fixed 'Encache' and 'Create'.

(elmo-message-encache-dop): Added argument `read'.

* elmo-shimbun.el (elmo-message-encache): Ditto.

* elmo-net.el (elmo-message-encache): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8b0dd0d..d2e07a3 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,13 @@
 2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-dop.el (elmo-dop-queue-method-name-alist): Fixed 'Encache' and
+       'Create'.
+       (elmo-message-encache-dop): Added argument `read'.
+
+       * elmo-shimbun.el (elmo-message-encache): Ditto.
+
+       * elmo-net.el (elmo-message-encache): Ditto.
+
        * elmo-imap4.el (elmo-imap4-seen-messages): New buffer local variable.
        (elmo-imap4-fetch-callback-1-subr): Save important message numbers to
        elmo-imap4-seen-messages.

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 4b31e93..abf1bce 100644 (file)
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -65,8 +65,8 @@ Automatically loaded/saved.")
 (defvar elmo-dop-queue-method-name-alist
   '((elmo-folder-append-buffer-dop-delayed . "Append")
     (elmo-folder-delete-messages-dop-delayed . "Delete")
-    (elmo-message-encache-dop . "Encache")
-    (elmo-create-folder-dop . "Create")
+    (elmo-message-encache . "Encache")
+    (elmo-create-folder . "Create")
     (elmo-folder-mark-as-read . "Read")
     (elmo-folder-unmark-read . "Unread")
     (elmo-folder-mark-as-important . "Important")
@@ -210,8 +210,8 @@ FOLDER is the folder structure."
                           numbers)))
   t)
 
-(defsubst elmo-message-encache-dop (folder number)
-  (elmo-dop-queue-append folder 'elmo-message-encache (list number)))
+(defsubst elmo-message-encache-dop (folder number &optional read)
+  (elmo-dop-queue-append folder 'elmo-message-encache (list number read)))
 
 (defsubst elmo-create-folder-dop (folder)
   (elmo-dop-queue-append folder 'elmo-folder-create nil))

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 3bb72c2..2eb2f21 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -496,11 +496,11 @@ Returned value is searched from `elmo-network-stream-type-alist'."
   (elmo-folder-unmark-important-dop folder numbers))
 
 (luna-define-method elmo-message-encache :around ((folder elmo-net-folder)
-                                                 number)
+                                                 number &optional read)
   (if (elmo-folder-plugged-p folder)
       (luna-call-next-method)
     (if elmo-enable-disconnected-operation
-       (elmo-message-encache-dop folder number)
+       (elmo-message-encache-dop folder number read)
       (error "Unplugged"))))
 
 (luna-define-generic elmo-message-fetch-plugged (folder number strategy

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 4fe6493..0325f04 100644 (file)
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -357,11 +357,11 @@ See `shimbun-headers' for more detail about RANGE."
 
 (luna-define-method elmo-message-encache :around ((folder
                                                   elmo-shimbun-folder)
-                                                 number)
+                                                 number &optional read)
   (if (elmo-folder-plugged-p folder)
       (luna-call-next-method)
     (if elmo-enable-disconnected-operation
-       (elmo-message-encache-dop folder number)
+       (elmo-message-encache-dop folder number read)
       (error "Unplugged"))))
 
 (luna-define-method elmo-folder-list-messages-internal :around