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

[elisp/wanderlust.git] / elmo / elmo-util.el

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index af9664f..5147fa8 100644 (file)
--- 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)