* wl-draft.el (wl-draft-do-fcc): Follow the changes in

elmo-folder-append-buffer.
(wl-draft-queue-append): Likewise.

* wl-mime.el (wl-message-delete-current-part): Ditto.
(wl-summary-burst-subr): Ditto.

* wl-news.el.in (wl-news-send-news): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 86f912d..5c1bba5 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,14 @@
+2003-03-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-draft.el (wl-draft-do-fcc): Follow the changes in
+       elmo-folder-append-buffer.
+       (wl-draft-queue-append): Likewise.
+
+       * wl-mime.el (wl-message-delete-current-part): Ditto.
+       (wl-summary-burst-subr): Ditto.
+
+       * wl-news.el.in (wl-news-send-news): Ditto.
+
 2003-03-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-mark-as-read-internal): New inline

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index e3ba25f..74368a6 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1548,7 +1548,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)))
-              (not wl-fcc-force-as-read))
+              (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))
          (setq fcc-list (cdr fcc-list)))))
@@ -2273,7 +2273,7 @@ Automatically applied in draft sending time."
   (let ((send-buffer (current-buffer))
        (folder (wl-folder-get-elmo-folder wl-queue-folder))
        (message-id (std11-field-body "Message-ID")))
-    (if (elmo-folder-append-buffer folder t)
+    (if (elmo-folder-append-buffer folder)
        (progn
          (wl-draft-queue-info-operation
           (car (elmo-folder-status folder))

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index d05930c..69323f1 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -279,7 +279,7 @@ It calls following-method selected from variable
                (goto-char header-start)
                (insert "Content-Type: text/plain; charset=US-ASCII\n\n")
                (insert "** This part has been removed by Wanderlust **\n\n")
-               (elmo-folder-append-buffer folder t))
+               (elmo-folder-append-buffer folder))
 
          (elmo-folder-move-messages
           folder (list number)
@@ -417,9 +417,7 @@ It calls following-method selected from variable
                 (car (mime-entity-children message-entity)))
           (with-temp-buffer
             (insert (mime-entity-body message-entity))
-            (elmo-folder-append-buffer
-             target
-             (mime-entity-fetch-field entity "Message-ID")))))
+            (elmo-folder-append-buffer target))))
     number))
 
 (defun wl-summary-burst (&optional arg)

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index dee1fbd..8be3c40 100644 (file)
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -173,7 +173,7 @@
            (and (elmo-folder-writable-p
                  (wl-folder-get-elmo-folder folder))
                 (elmo-folder-append-buffer
-                 (wl-folder-get-elmo-folder folder) t)))
+                 (wl-folder-get-elmo-folder folder))))
       (wl-draft-hide send-buffer)
       (wl-draft-delete send-buffer))
     ret))