From 86415cc869d12581cc5c6f947ea04bca0f2c6594 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 29 Oct 2002 08:33:03 +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 43d8712..ff0d4cc 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-28 Yuuichi Teranishi * wl-summary.el (wl-summary-next-message): Use diff --git a/wl/wl-message.el b/wl/wl-message.el index 8528f41..0eef8c7 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