From: teranisi <teranisi>
Date: Sun, 3 Oct 2004 05:16:35 +0000 (+0000)
Subject: (wl-draft-do-fcc): Undo last change.
X-Git-Tag: wl-2_12-root~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65c01b677d7915053fbc631563de24750a4d918b;p=elisp%2Fwanderlust.git

(wl-draft-do-fcc): Undo last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1df6aa5..d627ed3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-do-fcc): Undo last change.
+
 2004-09-29  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-overview-entity-compare-by-from): 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4088e63..4c26bc3 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1602,7 +1602,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	  (if (elmo-folder-append-buffer
 	       (wl-folder-get-elmo-folder
 		(eword-decode-string (car fcc-list)))
-	       (or wl-fcc-force-as-read '(unread)))
+	       (and wl-fcc-force-as-read '(read)))
 	      (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
 	    (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id))
 	  (if (and wl-draft-fcc-append-read-folder-history