From: yoichi Date: Sun, 19 Sep 2004 14:29:19 +0000 (+0000) Subject: * wl-summary.el (wl-summary-sync-marks): Remove condition which X-Git-Tag: wl-2_12-root~95 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a7e48f21c14ce5a411c8bb896ec2ead0edf148c1;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-sync-marks): Remove condition which is always true. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 90578b7..1a13a79 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-09-19 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-sync-marks): Remove condition which + is always true. + 2004-09-15 Yoichi NAKAYAMA * wl-mime.el (wl-mime-preview-follow-current-region): Avoid error diff --git a/wl/wl-summary.el b/wl/wl-summary.el index cd3daaf..f10bd11 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1806,28 +1806,23 @@ This function is defined for `window-scroll-functions'" (interactive) (let ((mes "Updated ") diff diffs) - ;; synchronize marks. - (when (not (eq (elmo-folder-type-internal - wl-summary-buffer-elmo-folder) - 'internal)) - - (message "Updating marks...") - (dolist (flag (wl-summary-get-available-flags)) - (setq diff (elmo-list-diff (elmo-folder-list-flagged - wl-summary-buffer-elmo-folder - flag) - (elmo-folder-list-flagged - wl-summary-buffer-elmo-folder - flag 'in-msgdb))) - (setq diffs (cadr diff)) - (setq mes (concat mes (format "-%d" (length diffs)))) - (when diffs - (wl-summary-unset-persistent-mark flag diffs 'no-modeline 'no-server)) - (setq diffs (car diff) - mes (concat mes (format "/+%d %s " (length diffs) flag))) - (when diffs - (wl-summary-set-persistent-mark flag diffs 'no-modeline 'no-server))) - (if (interactive-p) (message "%s" mes))))) + (message "Updating marks...") + (dolist (flag (wl-summary-get-available-flags)) + (setq diff (elmo-list-diff (elmo-folder-list-flagged + wl-summary-buffer-elmo-folder + flag) + (elmo-folder-list-flagged + wl-summary-buffer-elmo-folder + flag 'in-msgdb))) + (setq diffs (cadr diff)) + (setq mes (concat mes (format "-%d" (length diffs)))) + (when diffs + (wl-summary-unset-persistent-mark flag diffs 'no-modeline 'no-server)) + (setq diffs (car diff) + mes (concat mes (format "/+%d %s " (length diffs) flag))) + (when diffs + (wl-summary-set-persistent-mark flag diffs 'no-modeline 'no-server))) + (if (interactive-p) (message "%s" mes)))) (defun wl-summary-sync-update (&optional unset-cursor disable-killed