From 52be4bcad169040eeed31d92e79b28c7a2cfb706 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 5 Nov 2006 02:34:19 +0000 Subject: [PATCH] * wl-message.el (wl-message-exit): Check buffer existence. --- wl/ChangeLog | 4 ++++ wl/wl-message.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c2de1a8..6d80e5a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2006-11-05 Yoichi NAKAYAMA + + * wl-message.el (wl-message-exit): Check buffer existence. + 2006-10-31 Hiroya Murata * wl-util.el (wl-simple-display-progress): New function. diff --git a/wl/wl-message.el b/wl/wl-message.el index e7f2530..81338cb 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -344,6 +344,9 @@ Returns non-nil if bottom of message." (interactive) (let (summary-buf summary-win mother-buffer) (cond ((setq summary-buf wl-message-buffer-cur-summary-buffer) + (unless (buffer-live-p summary-buf) + (error "Summary buffer not found: %s" + wl-message-buffer-cur-folder)) (if (setq summary-win (get-buffer-window summary-buf)) (select-window summary-win) (switch-to-buffer summary-buf) @@ -351,7 +354,8 @@ Returns non-nil if bottom of message." (select-window (get-buffer-window summary-buf)))) ((setq mother-buffer mime-mother-buffer) (kill-buffer (current-buffer)) - (switch-to-buffer mother-buffer))) + (when (buffer-live-p mother-buffer) + (switch-to-buffer mother-buffer)))) (run-hooks 'wl-message-exit-hook))) (defun wl-message-toggle-disp-summary () -- 1.7.10.4