From 6a2945d56ce47bfe301babfef0c41a1070ff22ef Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 2 Aug 2001 01:37:14 +0000 Subject: [PATCH] * 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 .) * elmo-shimbun.el (elmo-folder-msgdb-create): Bind unbound local variables. --- elmo/ChangeLog | 5 +++++ elmo/elmo-shimbun.el | 2 +- wl/ChangeLog | 10 ++++++++++ wl/wl-demo.el | 34 +++++++--------------------------- wl/wl-folder.el | 2 +- wl/wl-summary.el | 7 ++++--- 6 files changed, 28 insertions(+), 32 deletions(-) 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 + + * elmo-shimbun.el (elmo-folder-msgdb-create): Bind unbound + local variables. + 2001-07-30 Yuuichi Teranishi * 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 + + * 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 .) + 2001-07-23 Yuuichi Teranishi * 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)) -- 1.7.10.4