* elmo-mime.el (elmo-mime-insert-header-from-buffer): Use

`with-current-buffer' instead of `save-excursion' (for suppress
compile warnings).

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 60d4c72..101555f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2010-01-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * elmo-mime.el (elmo-mime-insert-header-from-buffer): Use
+       `with-current-buffer' instead of `save-excursion' (for suppress
+       compile warnings).
+
        * elmo.el (elmo-folder-confirm-appends): Use `number-to-string'
        instead of `int-to-string'.
        * elmo-archive.el (elmo-archive-message-fetch-internal)

diff --git a/elmo/elmo-mime.el b/elmo/elmo-mime.el
index c9c1028..6beaea9 100644 (file)
--- a/elmo/elmo-mime.el
+++ b/elmo/elmo-mime.el
@@ -143,8 +143,7 @@ value is used."
                          (t
                           elmo-mime-header-max-column)))
        vf-alist)
-    (save-excursion
-      (set-buffer buffer)
+    (with-current-buffer buffer
       (save-restriction
        (narrow-to-region start end)
        (goto-char start)
@@ -175,8 +174,9 @@ value is used."
                                 (throw 'done t))
                               (when (string-match re df)
                                 (throw 'done nil)))
-                            t))))))
-      (set-buffer the-buf)
+                            t)))))))
+    (set-buffer the-buf)               ; verbose. remove me.
+    (save-excursion
       (while vf-alist
        (let* ((vf (car vf-alist))
               (field-name (nth 0 vf))