From c2edbc85bf2d07b4f62e9acd1619f82bfbd430a1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 18 Sep 2002 07:07:44 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf is nil. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf + is nil. + 2002-09-17 Yoichi NAKAYAMA * 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 -- 1.7.10.4