Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 0132846995bd
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
2872 (gnus-get-unread-articles arg))) 2872 (gnus-get-unread-articles arg)))
2873 (run-hooks 'gnus-after-getting-new-news-hook) 2873 (run-hooks 'gnus-after-getting-new-news-hook)
2874 (gnus-group-list-groups (and (numberp arg) 2874 (gnus-group-list-groups (and (numberp arg)
2875 (max (car gnus-group-list-mode) arg))))) 2875 (max (car gnus-group-list-mode) arg)))))
2876 2876
2877 (defun gnus-group-get-new-news-this-group (&optional n) 2877 (defun gnus-group-get-new-news-this-group (&optional n dont-scan)
2878 "Check for newly arrived news in the current group (and the N-1 next groups). 2878 "Check for newly arrived news in the current group (and the N-1 next groups).
2879 The difference between N and the number of newsgroup checked is returned. 2879 The difference between N and the number of newsgroup checked is returned.
2880 If N is negative, this group and the N-1 previous groups will be checked." 2880 If N is negative, this group and the N-1 previous groups will be checked."
2881 (interactive "P") 2881 (interactive "P")
2882 (let* ((groups (gnus-group-process-prefix n)) 2882 (let* ((groups (gnus-group-process-prefix n))
2886 group) 2886 group)
2887 (while (setq group (pop groups)) 2887 (while (setq group (pop groups))
2888 (gnus-group-remove-mark group) 2888 (gnus-group-remove-mark group)
2889 ;; Bypass any previous denials from the server. 2889 ;; Bypass any previous denials from the server.
2890 (gnus-remove-denial (gnus-find-method-for-group group)) 2890 (gnus-remove-denial (gnus-find-method-for-group group))
2891 (if (gnus-activate-group group 'scan) 2891 (if (gnus-activate-group group (if dont-scan nil 'scan))
2892 (progn 2892 (progn
2893 (gnus-get-unread-articles-in-group 2893 (gnus-get-unread-articles-in-group
2894 (gnus-get-info group) (gnus-active group) t) 2894 (gnus-get-info group) (gnus-active group) t)
2895 (unless (gnus-virtual-group-p group) 2895 (unless (gnus-virtual-group-p group)
2896 (gnus-close-group group)) 2896 (gnus-close-group group))