From: teranisi <teranisi>
Date: Tue, 29 Oct 2002 08:36:05 +0000 (+0000)
Subject: * wl-message.el (wl-message-get-original-buffer): Avoid
X-Git-Tag: wl-2_10_0pre2~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=30bd3196717939b7476b6a9c1d3880063e000c20;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 f6fb7d0..5b1b3ec 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>
 
 	* 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