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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c49c0cb..72552c0 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-08  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 6ff5675..a85b46b 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1032,11 +1032,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)