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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1df6aa5..d627ed3 100644 (file)
--- 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 (file)
--- 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