From: kaoru <kaoru>
Date: Wed, 6 Jan 2010 07:27:37 +0000 (+0000)
Subject: * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness.
X-Git-Tag: elmo-imap4-compliance-root~29
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=221c9217efb7a56f122c2389864b7b3958afec1a

* elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2023b9d..85bc084 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for
+	robustness.
+
 2010-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* acap.el (acap-parse-response): Fix comment-out style. Use three
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index af9664f..5147fa8 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -71,10 +71,11 @@
 
 (defmacro elmo-set-work-buf (&rest body)
   "Execute BODY on work buffer.  Work buffer remains."
-  `(with-current-buffer (get-buffer-create elmo-work-buf-name)
-     (set-buffer-multibyte default-enable-multibyte-characters)
-     (erase-buffer)
-     ,@body))
+  `(save-excursion
+     (with-current-buffer (get-buffer-create elmo-work-buf-name)
+       (set-buffer-multibyte default-enable-multibyte-characters)
+       (erase-buffer)
+       ,@body)))
 
 (put 'elmo-set-work-buf 'lisp-indent-function 0)
 (def-edebug-spec elmo-set-work-buf t)