From 3fde979961bca5be06f95c583addf0d2c6444065 Mon Sep 17 00:00:00 2001
From: okazaki <okazaki>
Date: Sun, 18 Feb 2001 20:42:02 +0000
Subject: [PATCH] * wl-draft.el (wl-draft-insert-current-message): Use
 `with-current-buffer' instead of `save-excursion'. Use
 `zerop' instead of `eq 0'.

---
 wl/wl-draft.el |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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))))
-- 
1.7.10.4