* wl-message.el (wl-message-get-original-buffer): Avoid

'Selecting deleted buffer' error when original buffer is killed.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 43d8712..ff0d4cc 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-message.el (wl-message-get-original-buffer): Avoid
+       'Selecting deleted buffer' error when original buffer is killed.
+
 2002-10-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-next-message): Use

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 8528f41..0eef8c7 100644 (file)
--- 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