From: okada <okada>
Date: Sun, 11 Mar 2001 05:57:23 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
X-Git-Tag: wl-2_6-root~53
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f7486d0c7d410c8f0d420f901da701d0e0e26662;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 c49c0cb..72552c0 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-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
--- 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)