From 45dcbd01ecf3a47a57bd87a046ff872e1c433ae8 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 4 Jan 2010 09:31:06 +0000 Subject: [PATCH] * elmo-mime.el (elmo-mime-insert-header-from-buffer): Use `with-current-buffer' instead of `save-excursion' (for suppress compile warnings). --- elmo/ChangeLog | 4 ++++ elmo/elmo-mime.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + * 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)) -- 1.7.10.4