From: kaoru <kaoru>
Date: Wed, 6 Jan 2010 08:20:22 +0000 (+0000)
Subject: Undo last commit.
X-Git-Tag: elmo-imap4-compliance-root~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f5684817b12c7c418a03d034a284a6cab687c97f;p=elisp%2Fwanderlust.git

Undo last commit.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 85bc084..2023b9d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,8 +1,3 @@
-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 5147fa8..af9664f 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -71,11 +71,10 @@
 
 (defmacro elmo-set-work-buf (&rest body)
   "Execute BODY on work buffer.  Work buffer remains."
-  `(save-excursion
-     (with-current-buffer (get-buffer-create elmo-work-buf-name)
-       (set-buffer-multibyte default-enable-multibyte-characters)
-       (erase-buffer)
-       ,@body)))
+  `(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)