From: teranisi <teranisi>
Date: Wed, 18 Sep 2002 07:07:44 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf is nil.
X-Git-Tag: wl-2_11_1~127
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c2edbc85bf2d07b4f62e9acd1619f82bfbd430a1;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf is nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a02a486..21b79c1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf
+	is nil.
+
 2002-09-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-mime.el (wl-mime-decrypt-application/pgp-encrypted): New
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f1fe90a..e6f99e2 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -328,9 +328,10 @@ Reply to author if WITH-ARG is non-nil."
   (let (r-list
 	to mail-followup-to cc subject in-reply-to references newsgroups
 	to-alist cc-alist decoder parent-folder)
-    (set-buffer summary-buf)
-    (setq parent-folder (wl-summary-buffer-folder-name))
-    (set-buffer buf)
+    (when (buffer-live-p summary-buf)
+      (with-current-buffer summary-buf
+	(setq parent-folder (wl-summary-buffer-folder-name))))
+    (set-buffer (or buf mime-mother-buffer))
     (setq r-list (symbol-value (wl-draft-reply-list-symbol with-arg)))
     (catch 'done
       (while r-list