* 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 f6fb7d0..5b1b3ec 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-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-version.el (wl-version): Changed codename.

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 2e238a8..6ce3e1e 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