From: teranisi <teranisi>
Date: Tue, 29 Oct 2002 08:34:49 +0000 (+0000)
Subject: * wl-message.el (wl-message-get-original-buffer): Avoid
X-Git-Tag: wl-2_11_1~73
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=820d6e9723c9eeacb7f052ba491d16d393e739b3;p=elisp%2Fwanderlust.git

* 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 60f9089..1f5c1f9 100644
--- 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>
 
 	* Version number is increased to 2.11.0.
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