From: teranisi <teranisi>
Date: Tue, 25 Mar 2003 03:01:50 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-fcc): Follow the changes in
X-Git-Tag: elmo-mark-restart~66
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f0d72ca77cf7e442de702456b1c40d96a2322b8;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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))