From: teranisi Date: Sun, 28 Sep 2003 15:17:51 +0000 (+0000) Subject: * wl-summary.el (wl-summary-update-mark-and-highlight-window): New function. X-Git-Tag: wl-2_11_19~34 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=46eb28da4656123d338869a784a1af30b4bde25b;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-update-mark-and-highlight-window): New function. (wl-summary-window-scroll-functions): Call it when both wl-summary-lazy-highlight and wl-summary-lazy-update-mark are non-nil. (wl-summary-temp-mark): Added optional argument number. (wl-summary-message-mark): Added optional argument flag. (wl-summary-persistent-mark): Added optional argument number and flag. (wl-summary-update-persistent-mark): Ditto. (wl-summary-update-status-marks): Set "r" for interactive spec. * wl-highlight.el (wl-highlight-summary-current-line): Added optional argument number and flag. * wl-action.el (wl-summary-registered-temp-mark): Do nothing when wl-summary-buffer-temp-mark-list is nil. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index edb7d65..a5c701a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,21 @@ +2003-09-28 Yuuichi Teranishi + + * wl-summary.el (wl-summary-update-mark-and-highlight-window): New + function. + (wl-summary-window-scroll-functions): Call it when both + wl-summary-lazy-highlight and wl-summary-lazy-update-mark are non-nil. + (wl-summary-temp-mark): Added optional argument number. + (wl-summary-message-mark): Added optional argument flag. + (wl-summary-persistent-mark): Added optional argument number and flag. + (wl-summary-update-persistent-mark): Ditto. + (wl-summary-update-status-marks): Set "r" for interactive spec. + + * wl-highlight.el (wl-highlight-summary-current-line): Added optional + argument number and flag. + + * wl-action.el (wl-summary-registered-temp-mark): + Do nothing when wl-summary-buffer-temp-mark-list is nil. + 2003-09-28 Hiroya Murata * wl-summary.el (wl-summary-buffer-unsync-mark-number-list): New diff --git a/wl/wl-action.el b/wl/wl-action.el index cb86b91..ea4bf58 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -170,7 +170,8 @@ Return number if put mark succeed" (delq elem wl-summary-buffer-temp-mark-list)))) (defun wl-summary-registered-temp-mark (number) - (assq number wl-summary-buffer-temp-mark-list)) + (and wl-summary-buffer-temp-mark-list + (assq number wl-summary-buffer-temp-mark-list))) (defun wl-summary-collect-temp-mark (mark &optional begin end) (if (or begin end) diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el index 4c501fb..227735ca 100644 --- a/wl/wl-highlight.el +++ b/wl/wl-highlight.el @@ -897,22 +897,23 @@ (when wl-use-flag-folder-help-echo (wl-highlight-summary-line-flag-folder number 0 (length line) line))) -(defun wl-highlight-summary-current-line () +(defun wl-highlight-summary-current-line (&optional number flags) (interactive) (save-excursion (let ((inhibit-read-only t) (case-fold-search nil) (deactivate-mark nil) - (number (wl-summary-message-number)) + (number (or number (wl-summary-message-number))) bol eol spec) (end-of-line) (setq eol (point)) (beginning-of-line) (setq bol (point)) (setq spec (wl-highlight-summary-line-face-spec - (elmo-message-flags wl-summary-buffer-elmo-folder - number) - (wl-summary-temp-mark) + (or flags + (elmo-message-flags wl-summary-buffer-elmo-folder + number)) + (wl-summary-temp-mark number) (wl-thread-entity-get-parent-entity (wl-thread-get-entity number)))) (when (car spec) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 088d9c7..2c6c870 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -557,16 +557,42 @@ See also variable `wl-use-petname'." (defvar wl-summary-window-scroll-functions nil) +(defun wl-summary-update-mark-and-highlight-window (&optional win beg) + "A function to be called as window-scroll-functions." + (with-current-buffer (window-buffer win) + (when (eq major-mode 'wl-summary-mode) + (let ((start (window-start win)) + (end (condition-case nil + (window-end win t) ; old emacsen doesn't support 2nd arg. + (error (window-end win)))) + number flags + wl-summary-highlight) + (save-excursion + (goto-char beg) + (while (and (< (point) end) (not (eobp))) + (when (null (get-text-property (point) 'face)) + (setq number (wl-summary-message-number) + flags (elmo-message-flags wl-summary-buffer-elmo-folder + number)) + (setq wl-summary-highlight nil) + (wl-summary-update-persistent-mark number flags) + (setq wl-summary-highlight t) + (wl-highlight-summary-current-line number flags)) + (forward-line 1))))))) + (defun wl-summary-window-scroll-functions () - (when (or wl-summary-lazy-highlight - wl-summary-lazy-update-mark) - (or wl-summary-window-scroll-functions - (setq wl-summary-window-scroll-functions + (or wl-summary-window-scroll-functions + (setq wl-summary-window-scroll-functions + (cond + ((and wl-summary-lazy-highlight + wl-summary-lazy-update-mark) + (list 'wl-summary-update-mark-and-highlight-window)) + (t (append (and wl-summary-lazy-highlight '(wl-highlight-summary-window)) (and wl-summary-lazy-update-mark - '(wl-summary-update-mark-window))))))) + '(wl-summary-update-mark-window)))))))) (defun wl-status-update () (interactive) @@ -1639,7 +1665,7 @@ If ARG is non-nil, checking is omitted." (defun wl-summary-update-status-marks (beg end &optional check) "Synchronize status marks on current buffer to the msgdb." - (interactive) + (interactive "r") (save-excursion (goto-char beg) (while (and (< (point) end) (not (eobp))) @@ -2703,9 +2729,9 @@ If ARG, exit virtual folder." (setq wl-summary-buffer-target-mark-list nil) (setq wl-summary-buffer-temp-mark-list nil)))) -(defsubst wl-summary-temp-mark () +(defsubst wl-summary-temp-mark (&optional number) "Return temp-mark string of current line." - (let ((number (wl-summary-message-number)) + (let ((number (or number (wl-summary-message-number))) info) (or (and (wl-summary-have-target-mark-p number) "*") @@ -2741,18 +2767,20 @@ The mark is decided according to the FOLDER, FLAGS and CACHED." nil wl-summary-read-uncached-mark)))) -(defsubst wl-summary-message-mark (folder number) +(defsubst wl-summary-message-mark (folder number &optional flags) "Return mark of the message." (ignore-errors (wl-summary-persistent-mark-string folder - (elmo-message-flags folder number) - (elmo-message-cached-p folder number)))) + (or flags (setq flags (elmo-message-flags folder number))) + (memq 'cached flags) ; XXX for speed-up. + ))) -(defsubst wl-summary-persistent-mark () +(defsubst wl-summary-persistent-mark (&optional number flags) "Return persistent-mark string of current line." (or (wl-summary-message-mark wl-summary-buffer-elmo-folder - (wl-summary-message-number)) + (or number (wl-summary-message-number)) + flags) " ")) (defun wl-summary-put-temp-mark (mark) @@ -2840,7 +2868,7 @@ The mark is decided according to the FOLDER, FLAGS and CACHED." (interactive) (wl-summary-pick wl-summary-buffer-target-mark-list 'delete)) -(defun wl-summary-update-persistent-mark () +(defun wl-summary-update-persistent-mark (&optional number flags) "Synch up persistent mark of current line with msgdb's. Return non-nil if the mark is updated" (prog1 @@ -2850,7 +2878,7 @@ Return non-nil if the mark is updated" (let ((inhibit-read-only t) (buffer-read-only nil) (mark (buffer-substring (- (point) 1) (point))) - (new-mark (wl-summary-persistent-mark))) + (new-mark (wl-summary-persistent-mark number flags))) (unless (string= new-mark mark) (delete-backward-char 1) (insert new-mark)