From: okada <okada>
Date: Sun, 11 Mar 2001 06:00:25 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
X-Git-Tag: wl-2_8-root^2~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f2dfdd6ad6bf746a84d80aa3ab8a7a3ccc9df8e;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 112f5f8..61f6c85 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-11  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
+
 2001-03-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 212f274..1a3eb72 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1034,11 +1034,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-file-cache-save id 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-file-cache-save id nil)))
 	;; If one unplugged, append queue.
 	(when (and unplugged-via
 		   wl-sent-message-modified)