From: okada <okada>
Date: Sun, 11 Mar 2001 05:58:45 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ddae1a8099358d70c598e61e905d4705ca0fa981;p=elisp%2Fwanderlust.git

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