* wl-draft.el (wl-draft-add-in-reply-to, wl-draft-delete): Suppress compile warnings...

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0f45a89..91d3bc2 100644 (file)
--- 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 (file)
--- 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