From 59415c5d7c7e43a757ae247919f1e163a4ce6831 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 1 Jan 2010 08:29:38 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-add-in-reply-to, wl-draft-delete): Suppress compile warnings; Use `with-current-buffer' instead of `save-excursion' & `set-buffer'. --- wl/ChangeLog | 1 + wl/wl-draft.el | 8 +++----- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0f45a89..91d3bc2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -15,6 +15,7 @@ * wl-message.el (wl-message-select-buffer): Ditto. * wl-template.el (wl-template-show): Ditto. * wl-util.el (wl-collect-summary): Ditto. + * wl-draft.el (wl-draft-add-in-reply-to, wl-draft-delete): Ditto. 2009-12-16 Lloyd Zusman diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 73b6ad7..4153269 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -487,8 +487,7 @@ or `wl-draft-reply-with-argument-list' if WITH-ARG argument is non-nil." (wl-draft-add-in-reply-to "References")) (defun wl-draft-add-in-reply-to (&optional alt-field) - (let* ((mes-id (save-excursion - (set-buffer mail-reply-buffer) + (let* ((mes-id (with-current-buffer mail-reply-buffer (std11-field-body "message-id"))) (field (or alt-field "In-Reply-To")) (ref (std11-field-body field)) @@ -756,9 +755,8 @@ or `wl-draft-reply-with-argument-list' if WITH-ARG argument is non-nil." (defun wl-draft-delete (editing-buffer) "Kill the editing draft buffer and delete the file corresponds to it." - (save-excursion - (when editing-buffer - (set-buffer editing-buffer) + (when editing-buffer + (with-current-buffer editing-buffer (when wl-draft-buffer-message-number (elmo-folder-delete-messages (wl-draft-get-folder) (list -- 1.7.10.4