From 0f0d72ca77cf7e442de702456b1c40d96a2322b8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 25 Mar 2003 03:01:50 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 11 +++++++++++ wl/wl-draft.el | 4 ++-- wl/wl-mime.el | 6 ++---- wl/wl-news.el.in | 2 +- 4 files changed, 16 insertions(+), 7 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4