From 30bd3196717939b7476b6a9c1d3880063e000c20 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 29 Oct 2002 08:36:05 +0000 Subject: [PATCH] * wl-message.el (wl-message-get-original-buffer): Avoid 'Selecting deleted buffer' error when original buffer is killed. --- wl/ChangeLog | 5 +++++ wl/wl-message.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f6fb7d0..5b1b3ec 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-10-29 Yuuichi Teranishi + + * wl-message.el (wl-message-get-original-buffer): Avoid + 'Selecting deleted buffer' error when original buffer is killed. + 2002-10-26 Yuuichi Teranishi * wl-version.el (wl-version): Changed codename. diff --git a/wl/wl-message.el b/wl/wl-message.el index 2e238a8..6ce3e1e 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -366,7 +366,9 @@ Returns non-nil if bottom of message." (defun wl-message-get-original-buffer () "Get original buffer for current message buffer." - wl-message-buffer-original-buffer) + (if (buffer-live-p wl-message-buffer-original-buffer) + wl-message-buffer-original-buffer + (wl-original-message-buffer-get (buffer-name (current-buffer))))) (defun wl-message-add-buttons-to-body (start end) (save-excursion -- 1.7.10.4