From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 08:29:38 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-add-in-reply-to, wl-draft-delete): Suppress compile warnings... 
X-Git-Tag: elmo-imap4-compliance-root~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59415c5d7c7e43a757ae247919f1e163a4ce6831;p=elisp%2Fwanderlust.git

* 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'.
---

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 <ljz@asfast.com>
 
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