From: teranisi <teranisi>
Date: Tue, 29 Oct 2002 08:33:03 +0000 (+0000)
Subject: * wl-message.el (wl-message-get-original-buffer): Avoid
X-Git-Tag: elmo-mark-restart~94
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=86415cc869d12581cc5c6f947ea04bca0f2c6594;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 43d8712..ff0d4cc 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-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
--- 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