From: kaoru <kaoru>
Date: Mon, 4 Jan 2010 09:31:06 +0000 (+0000)
Subject: * elmo-mime.el (elmo-mime-insert-header-from-buffer): Use
X-Git-Tag: elmo-imap4-compliance-root~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45dcbd01ecf3a47a57bd87a046ff872e1c433ae8;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))