From: okada <okada>
Date: Sat, 14 Oct 2000 23:36:43 +0000 (+0000)
Subject:         * wl-vars.el (wl-draft-use-cache): New variable.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=96947ff8b0148e83bb6b7fda9ddb5f84df9cd03b;p=elisp%2Fwanderlust.git

    * wl-vars.el (wl-draft-use-cache): New variable.
        * wl-draft.el (wl-draft-dispatch-message): Sending message is cached,
        if wl-draft-use-cache is non-nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0d0f3d8..b442c40 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2000-10-15  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-vars.el (wl-draft-use-cache): New variable.
+	* wl-draft.el (wl-draft-dispatch-message): Sending message is cached,
+	if wl-draft-use-cache is non-nil.
+
+2000-10-15  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-summary (wl-summary-prefetch): Don't prefetch if cached.
 	(wl-summary-prefetch-msg): force prefetch if called with optional argument.
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index da1738c..f5c4926 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1055,9 +1055,14 @@ non-nil."
 	     (unplugged-via (car status))
 	     (sent-via (nth 1 status)))
 	;; If one sent, process fcc folder.
-	(when (and sent-via wl-draft-fcc-list)
-	  (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list)
-	  (setq wl-draft-fcc-list nil))
+	(if (and sent-via wl-draft-fcc-list)
+	    (progn
+	      (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list)
+	      (setq wl-draft-fcc-list nil))
+	  (if wl-draft-use-cache
+	      (let ((id (std11-field-body "Message-ID"))
+		    (elmo-enable-disconnected-operation t))
+		(elmo-cache-save id nil nil nil))))
 	;; If one unplugged, append queue.
 	(when (and unplugged-via
 		   wl-sent-message-modified)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 1ec8d07..ba71247 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -918,6 +918,12 @@ ex.
   :group 'wl-draft
   :group 'wl-pref)
 
+(defcustom wl-draft-use-cache t
+  "*If non-nil, sending message is cached."
+  :type 'boolean
+  :group 'wl-draft
+  :group 'wl-pref)
+
 (defcustom wl-auto-flush-queue t
   "*If non-nil, sending queue is flushed when network status is toggled."
   :type 'boolean