From: teranisi <teranisi>
Date: Thu, 5 Jul 2001 08:04:29 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-exec-subr): Fixed problem when
X-Git-Tag: wl-2_7_2~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11e26516e96bca27ababe2fe0d6152ad1a5bb9ea;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-exec-subr): Fixed problem when
wl-message-buffer is nil.
---

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  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-exec-subr): Fixed problem when
+	wl-message-buffer is nil.
+
 2001-07-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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"