From: okazaki <okazaki>
Date: Sun, 18 Feb 2001 20:42:02 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-insert-current-message): Use
X-Git-Tag: wl-2_6-root~111
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fde979961bca5be06f95c583addf0d2c6444065;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-insert-current-message): Use
`with-current-buffer' instead of `save-excursion'.
Use `zerop' instead of `eq 0'.
---

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index e2204bd..5696228 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -543,10 +543,9 @@ Reply to author if WITH-ARG is non-nil."
   (let ((mail-reply-buffer (wl-message-get-original-buffer))
 	mail-citation-hook mail-yank-hooks
 	wl-draft-add-references wl-draft-cite-func)
-    (if (eq 0
-	    (save-excursion
-	      (set-buffer mail-reply-buffer)
-	      (buffer-size)))
+    (if (zerop
+	 (with-current-buffer mail-reply-buffer
+	   (buffer-size)))
 	(error "No current message")
       (wl-draft-yank-from-mail-reply-buffer nil
 					    wl-ignored-forwarded-headers))))