* wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 81a64fb..13dbac3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-03-11  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
+
 2001-03-05  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * wl-demo.el (wl-demo): Reset `tab-width' and `tab-stop-list' to

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4fd94f1..f0e43b6 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1048,11 +1048,11 @@ If FORCE-MSGID, ignore 'wl-insert-message-id'."
        (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))))
+             (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)