* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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