Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
817 817
818 (defun gnus-group-list-groups (&optional level unread lowest) 818 (defun gnus-group-list-groups (&optional level unread lowest)
819 "List newsgroups with level LEVEL or lower that have unread articles. 819 "List newsgroups with level LEVEL or lower that have unread articles.
820 Default is all subscribed groups. 820 Default is all subscribed groups.
821 If argument UNREAD is non-nil, groups with no unread articles are also 821 If argument UNREAD is non-nil, groups with no unread articles are also
822 listed." 822 listed.
823
824 Also see the `gnus-group-use-permanent-levels' variable."
823 (interactive 825 (interactive
824 (list (if current-prefix-arg 826 (list (if current-prefix-arg
825 (prefix-numeric-value current-prefix-arg) 827 (prefix-numeric-value current-prefix-arg)
826 (or 828 (or
827 (gnus-group-default-level nil t) 829 (gnus-group-default-level nil t)
2839 "Get newly arrived articles. 2841 "Get newly arrived articles.
2840 If ARG is a number, it specifies which levels you are interested in 2842 If ARG is a number, it specifies which levels you are interested in
2841 re-scanning. If ARG is non-nil and not a number, this will force 2843 re-scanning. If ARG is non-nil and not a number, this will force
2842 \"hard\" re-reading of the active files from all servers." 2844 \"hard\" re-reading of the active files from all servers."
2843 (interactive "P") 2845 (interactive "P")
2844 (run-hooks 'gnus-get-new-news-hook) 2846 (let ((gnus-inhibit-demon t))
2845 2847 (run-hooks 'gnus-get-new-news-hook)
2846 ;; Read any slave files. 2848
2847 (unless gnus-slave 2849 ;; Read any slave files.
2848 (gnus-master-read-slave-newsrc)) 2850 (unless gnus-slave
2849 2851 (gnus-master-read-slave-newsrc))
2850 ;; We might read in new NoCeM messages here. 2852
2851 (when (and gnus-use-nocem 2853 ;; We might read in new NoCeM messages here.
2852 (null arg)) 2854 (when (and gnus-use-nocem
2853 (gnus-nocem-scan-groups)) 2855 (null arg))
2854 ;; If ARG is not a number, then we read the active file. 2856 (gnus-nocem-scan-groups))
2855 (when (and arg (not (numberp arg))) 2857 ;; If ARG is not a number, then we read the active file.
2856 (let ((gnus-read-active-file t)) 2858 (when (and arg (not (numberp arg)))
2857 (gnus-read-active-file)) 2859 (let ((gnus-read-active-file t))
2858 (setq arg nil) 2860 (gnus-read-active-file))
2859 2861 (setq arg nil)
2860 ;; If the user wants it, we scan for new groups. 2862
2861 (when (eq gnus-check-new-newsgroups 'always) 2863 ;; If the user wants it, we scan for new groups.
2862 (gnus-find-new-newsgroups))) 2864 (when (eq gnus-check-new-newsgroups 'always)
2863 2865 (gnus-find-new-newsgroups)))
2864 (setq arg (gnus-group-default-level arg t)) 2866
2865 (if (and gnus-read-active-file (not arg)) 2867 (setq arg (gnus-group-default-level arg t))
2866 (progn 2868 (if (and gnus-read-active-file (not arg))
2867 (gnus-read-active-file) 2869 (progn
2868 (gnus-get-unread-articles arg)) 2870 (gnus-read-active-file)
2869 (let ((gnus-read-active-file (if arg nil gnus-read-active-file))) 2871 (gnus-get-unread-articles arg))
2870 (gnus-get-unread-articles arg))) 2872 (let ((gnus-read-active-file (if arg nil gnus-read-active-file)))
2871 (run-hooks 'gnus-after-getting-new-news-hook) 2873 (gnus-get-unread-articles arg)))
2872 (gnus-group-list-groups (and (numberp arg) 2874 (run-hooks 'gnus-after-getting-new-news-hook)
2873 (max (car gnus-group-list-mode) arg)))) 2875 (gnus-group-list-groups (and (numberp arg)
2876 (max (car gnus-group-list-mode) arg)))))
2874 2877
2875 (defun gnus-group-get-new-news-this-group (&optional n) 2878 (defun gnus-group-get-new-news-this-group (&optional n)
2876 "Check for newly arrived news in the current group (and the N-1 next groups). 2879 "Check for newly arrived news in the current group (and the N-1 next groups).
2877 The difference between N and the number of newsgroup checked is returned. 2880 The difference between N and the number of newsgroup checked is returned.
2878 If N is negative, this group and the N-1 previous groups will be checked." 2881 If N is negative, this group and the N-1 previous groups will be checked."
3199 ;; Suggested by mapjph@bath.ac.uk. 3202 ;; Suggested by mapjph@bath.ac.uk.
3200 (completing-read 3203 (completing-read
3201 "Address: " 3204 "Address: "
3202 (mapcar (lambda (server) (list server)) 3205 (mapcar (lambda (server) (list server))
3203 gnus-secondary-servers))) 3206 gnus-secondary-servers)))
3204 ;; We got a server name, so we find the method. 3207 ;; We got a server name.
3205 (gnus-server-to-method how))))) 3208 how))))
3206 (gnus-browse-foreign-server method)) 3209 (gnus-browse-foreign-server method))
3207 3210
3208 (defun gnus-group-set-info (info &optional method-only-group part) 3211 (defun gnus-group-set-info (info &optional method-only-group part)
3209 (let* ((entry (gnus-gethash 3212 (let* ((entry (gnus-gethash
3210 (or method-only-group (gnus-info-group info)) 3213 (or method-only-group (gnus-info-group info))