From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 09:38:23 +0000 (+0000)
Subject: * elmo-dop.el (elmo-dop-queue-method-name-alist): Fixed 'Encache' and 'Create'.
X-Git-Tag: wl-2_7_5~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e7d43889fc83322e2ad9306e7a17c95a7ff9d455;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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