* wl-draft.el (wl-draft-generate-clone-buffer, wl-draft-config-exec): Suppress compil...

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0024bf6..4ca3e9e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -18,6 +18,8 @@
        * wl-draft.el (wl-draft-add-in-reply-to, wl-draft-delete): Ditto.
        * wl-draft.el (wl-draft-send-mail-with-smtp, wl-draft-send)
        (wl-draft-do-fcc): Ditto.
+       * wl-draft.el (wl-draft-generate-clone-buffer)
+       (wl-draft-config-exec): Ditto.
        * wl-score.el (wl-score-insert-help, wl-score-edit-get-header)
        (wl-score-edit-insert-number): Ditto.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index c8469ff..37d8f63 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1927,8 +1927,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 (defun wl-draft-generate-clone-buffer (name &optional local-variables)
   "Generate clone of current buffer named NAME."
   (let ((editing-buffer (current-buffer)))
-    (save-excursion
-      (set-buffer (generate-new-buffer name))
+    (with-current-buffer (generate-new-buffer name)
       (erase-buffer)
       (wl-draft-mode)
       (wl-draft-editor-mode)
@@ -1937,8 +1936,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
       (while local-variables
        (make-local-variable (car local-variables))
        (set (car local-variables)
-            (save-excursion
-              (set-buffer editing-buffer)
+            (with-current-buffer editing-buffer
               (symbol-value (car local-variables))))
        (setq local-variables (cdr local-variables)))
       (current-buffer))))
@@ -2157,8 +2155,7 @@ Automatically applied in draft sending time."
             ((eq key 'reply)
              (when (and
                     reply-buf
-                    (save-excursion
-                      (set-buffer reply-buf)
+                    (with-current-buffer reply-buf
                       (save-restriction
                         (std11-narrow-to-header)
                         (goto-char (point-min))