From: yoichi Date: Sat, 10 Jul 2004 16:04:47 +0000 (+0000) Subject: * wl-message.el (wl-message-exit): Switch to mime-mother-buffer if X-Git-Tag: wl-2_11_31~71 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb4f133e468f265f592ce1dcb8190f98960314ec;p=elisp%2Fwanderlust.git * wl-message.el (wl-message-exit): Switch to mime-mother-buffer if the buffer is generated from another message buffer. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 93174ff..11ebb00 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-07-11 Yoichi NAKAYAMA + + * wl-message.el (wl-message-exit): Switch to mime-mother-buffer if + the buffer is generated from another message buffer. + 2004-07-06 Yoichi NAKAYAMA * wl-fldmgr.el (wl-fldmgr-save-access-list): New function diff --git a/wl/wl-message.el b/wl/wl-message.el index a97fdc2..ba764cf 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -338,15 +338,18 @@ Returns non-nil if bottom of message." (setq mode-name "Message")) (defun wl-message-exit () - "Move to summary buffer." + "Move to summary buffer or mother buffer." (interactive) - (let (summary-buf summary-win) - (if (setq summary-buf wl-message-buffer-cur-summary-buffer) - (if (setq summary-win (get-buffer-window summary-buf)) - (select-window summary-win) - (switch-to-buffer summary-buf) - (wl-message-select-buffer wl-message-buffer) - (select-window (get-buffer-window summary-buf)))) + (let (summary-buf summary-win mother-buffer) + (cond ((setq summary-buf wl-message-buffer-cur-summary-buffer) + (if (setq summary-win (get-buffer-window summary-buf)) + (select-window summary-win) + (switch-to-buffer summary-buf) + (wl-message-select-buffer wl-message-buffer) + (select-window (get-buffer-window summary-buf)))) + ((setq mother-buffer mime-mother-buffer) + (kill-buffer (current-buffer)) + (switch-to-buffer mother-buffer))) (run-hooks 'wl-message-exit-hook))) (defun wl-message-toggle-disp-summary ()