From 11e26516e96bca27ababe2fe0d6152ad1a5bb9ea Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 5 Jul 2001 08:04:29 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-exec-subr): Fixed problem when wl-message-buffer is nil. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index bf35862..4c7b095 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-07-05 Yuuichi Teranishi + + * wl-summary.el (wl-summary-exec-subr): Fixed problem when + wl-message-buffer is nil. + 2001-07-04 Yuuichi Teranishi * wl-summary.el (wl-summary-exec-subr): Delete message buffer only when diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 1a6bae6..21fc2ab 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3179,14 +3179,17 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (+ copy-failures (length (cdr (car dst-msgs)))))) (setq copy-executed (+ copy-executed (length (cdr (car dst-msgs))))) (setq dst-msgs (cdr dst-msgs))) + ;; Hide progress bar. + (elmo-display-progress 'elmo-folder-move-messages "" 100) ;; end cOpy (wl-summary-folder-info-update) (wl-summary-set-message-modified) (wl-summary-set-mark-modified) (run-hooks 'wl-summary-exec-hook) - (unless (eq (wl-summary-message-number) - (with-current-buffer wl-message-buffer - wl-message-buffer-cur-number)) + (unless (and wl-message-buffer + (eq (wl-summary-message-number) + (with-current-buffer wl-message-buffer + wl-message-buffer-cur-number))) (wl-summary-toggle-disp-msg 'off)) (set-buffer-modified-p nil) (message (concat "Executing ... done" -- 1.7.10.4