From: teranisi <teranisi>
Date: Thu, 2 Aug 2001 01:37:14 +0000 (+0000)
Subject: * wl-folder.el (wl-folder): redisplay after folder insertion.
X-Git-Tag: wl-2_7_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a2945d56ce47bfe301babfef0c41a1070ff22ef;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder): redisplay after folder insertion.

* wl-demo.el (wl-demo): Don't delete toolbar on emacs-21.

* wl-summary.el (wl-summary-sync-update):
Change status mark only when new-msgdb exists.
(Advised by Akihiro MOTOKI <mokkun@iname.com>.)

* elmo-shimbun.el (elmo-folder-msgdb-create): Bind unbound
local variables.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ee91ade..c61e542 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-shimbun.el (elmo-folder-msgdb-create): Bind unbound
+	local variables.
+
 2001-07-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-shimbun.el (elmo-shimbun-use-cache): New user option.
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 5d92b88..4fe6493 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -304,7 +304,7 @@ See `shimbun-headers' for more detail about RANGE."
 					      important-mark
 					      seen-list)
   (let* (overview number-alist mark-alist entity
-		  i percent number length pair msgid)
+		  i percent number length pair msgid gmark seen)
     (setq length (length numlist))
     (setq i 0)
     (message "Creating msgdb...")
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 214715b..ac7e627 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+2001-08-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder): redisplay after folder insertion.
+
+	* wl-demo.el (wl-demo): Don't delete toolbar on emacs-21.
+
+	* wl-summary.el (wl-summary-sync-update):
+	Change status mark only when new-msgdb exists.
+	(Advised by Akihiro MOTOKI <mokkun@iname.com>.)
+
 2001-07-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-open-folder): New function.
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 82c7ad7..6b79590 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -272,33 +272,13 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 	  tab-width 8)
     (set (make-local-variable 'tab-stop-list)
 	 '(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120))
-    (cond ((featurep 'xemacs)
-	   (if (device-on-window-system-p)
-	       (progn
-		 (if (boundp 'default-gutter-visible-p)
-		     (set-specifier (symbol-value 'default-gutter-visible-p)
-				    nil demo-buf))
-		 (set-specifier (symbol-value 'scrollbar-height) 0 demo-buf)
-		 (set-specifier (symbol-value 'scrollbar-width) 0 demo-buf))))
-	  ((and wl-on-emacs21
-		(display-graphic-p))
-	   (make-local-hook 'kill-buffer-hook)
-	   (let* ((frame (selected-frame))
-		  (toolbar (frame-parameter frame 'tool-bar-lines)))
-	     (modify-frame-parameters frame '((tool-bar-lines)))
-	     (add-hook
-	      'kill-buffer-hook
-	      (` (lambda ()
-		   (let ((frame (, frame)))
-		     (when (frame-live-p frame)
-		       (, (if (and toolbar (> toolbar 0))
-			      (` (modify-frame-parameters
-				  frame '((tool-bar-lines . (, toolbar)))))))
-		       (set-face-background
-			'fringe (, (face-background 'fringe frame)) frame)))))
-	      nil t)
-	     (set-face-background 'fringe (face-background 'default frame)
-				  frame))))
+    (when (and (featurep 'xemacs)
+	       (device-on-window-system-p))
+      (if (boundp 'default-gutter-visible-p)
+	  (set-specifier (symbol-value 'default-gutter-visible-p)
+			 nil demo-buf))
+      (set-specifier (symbol-value 'scrollbar-height) 0 demo-buf)
+      (set-specifier (symbol-value 'scrollbar-width) 0 demo-buf))
     (let ((ww (window-width))
 	  (wh (window-height))
 	  rest)
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index e5f2daa..6ab1592 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1471,7 +1471,6 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 	(switch-to-buffer (get-buffer-create wl-folder-buffer-name)))
       (set-buffer wl-folder-buffer-name)
       (wl-folder-mode)
-      (sit-for 0)
       (wl-folder-init)
       (let ((inhibit-read-only t)
 	    (buffer-read-only nil))
@@ -1479,6 +1478,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 	(setcdr (assoc (car wl-folder-entity) wl-folder-group-alist) t)
 	(save-excursion
 	  (wl-folder-insert-entity " " wl-folder-entity)))
+      (sit-for 0)
       (set-buffer-modified-p nil)
       (setq initialize t))
     initialize))
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 928c25f..c6c6eac 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2075,9 +2075,10 @@ If ARG is non-nil, checking is omitted."
 	  (when delete-list
 	    (wl-summary-delete-messages-on-buffer delete-list "Deleting...")
 	    (message "Deleting...done"))
-	  (wl-summary-set-status-marks-on-buffer
-	   wl-summary-new-mark
-	   wl-summary-unread-uncached-mark)
+	  (when new-msgdb
+	    (wl-summary-set-status-marks-on-buffer
+	     wl-summary-new-mark
+	     wl-summary-unread-uncached-mark))
 	  (setq append-list (elmo-msgdb-get-overview new-msgdb))
 	  (setq curp append-list)
 	  (setq num (length curp))