'wl-summary-default-get-next-msg)
(defvar wl-message-buffer-prefetch-debug nil)
-(defvar wl-message-buffer-prefetch-timer nil)
(defvar wl-message-buffer nil) ; message buffer.
(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)
(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 ()