* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))