lisp/gnus/gnus-group.el

113 (defcustom gnus-group-default-list-level gnus-level-subscribed
281 The default function `gnus-group-highlight-line' will
419 (defcustom gnus-group-name-charset-method-alist nil
428 (defcustom gnus-group-name-charset-group-alist
459 (defvar gnus-group-sort-alist-function 'gnus-group-sort-flat
473 (defvar gnus-group-line-format-alist
520 (defvar gnus-group-mode-line-format-alist
529 (defvar gnus-topic-alist nil
530   "The complete topic-group alist.")
990     (set-default symbol value))
991   ;; (setq-default gnus-group-tool-bar-map nil)
1004 default key map is `gnus-group-mode-map'.
1013   :initialize 'custom-initialize-default
1056   :initialize 'custom-initialize-default
1075   :initialize 'custom-initialize-default
1086   :initialize 'custom-initialize-default
1098 	     ;; The Gnus 5.10.6 code checked (default-value 'tool-bar-mode).
1146   (gnus-set-default-directory)
1180 (defun gnus-group-default-level (&optional level number-or-nil)
1186 			  (or gnus-group-default-list-level
1188 	gnus-group-default-list-level gnus-level-subscribed))
1192     (or level gnus-group-default-list-level gnus-level-subscribed))))
1204   (let ((item (assoc method gnus-group-name-charset-method-alist))
1205 	(alist gnus-group-name-charset-group-alist)
1209       (while (setq item (pop alist))
1211 	    (setq alist nil
1236 	    (gnus-group-default-level nil t)
1237 	    gnus-group-default-list-level
1242   (setq level (gnus-group-default-level level))
1319 	(newsrc (cdr gnus-newsrc-alist))
1499        ;; Using `redraw-frame' (see `gnus-tool-bar-update') in Emacs 21 might
1500        ;; be confusing, so maybe we shouldn't call it by default.
1505   :initialize 'custom-initialize-default
1507 	 (set-default symbol value)
1897   (let ((alist (cdr gnus-newsrc-alist))
1900       (while alist
1901 	(when (string-match regexp (setq group (gnus-info-group (pop alist))))
2102 (defun gnus-fetch-group-other-frame (group)
2103   "Pop up a frame and enter GROUP."
2107 	   (select-frame (window-frame window)))
2108 	  ((= (length (frame-list)) 1)
2109 	   (select-frame (make-frame)))
2111 	   (other-frame 1))))
2175 	       ,gnus-level-default-subscribed nil nil ,method
2405      (setq info (list t nname gnus-level-default-subscribed nil nil meth))
2406      gnus-level-default-subscribed gnus-level-killed
2711 	 (default-type (or (car gnus-group-web-type-history)
2716 	    (format "Search engine type (default %s): " default-type)
2720 	   default-type))
2740   (defvar nnrss-group-alist)
2771 	  (push (list title href desc) nnrss-group-alist)
2785 	 (default-type (or (car gnus-group-warchive-type-history)
2790 	    (format "Warchive type (default %s): " default-type)
2794 	   default-type))
2797 	 (default-login (or (car gnus-group-warchive-login-history)
2802 	    (format "Warchive login (default %s): " user-mail-address)
2803 	    default-login 'gnus-group-warchive-login-history)
3000   (funcall gnus-group-sort-alist-function
3007   ;; We peel off the dummy group from the alist.
3009     (when (equal (gnus-info-group (car gnus-newsrc-alist)) "dummy.group")
3010       (pop gnus-newsrc-alist))
3012     (setq gnus-newsrc-alist
3013 	  (sort gnus-newsrc-alist func))
3015       (setq gnus-newsrc-alist (nreverse gnus-newsrc-alist)))
3017     (gnus-make-hashtable-from-newsrc-alist)))
3100     (gnus-make-hashtable-from-newsrc-alist)))
3219     (let ((alist (cdr gnus-newsrc-alist))
3221       (while (setq info (pop alist))
3390 				     (cdr gnus-newsrc-alist))))
3405 		 (format "Level (default %s): "
3407 			     gnus-level-default-subscribed)))))
3410 				gnus-level-default-subscribed))
3447        gnus-level-default-unsubscribed)
3449        gnus-level-default-subscribed)
3451        gnus-level-default-unsubscribed)
3453        gnus-level-default-subscribed))
3478 				gnus-level-default-subscribed)))
3487        (if level level gnus-level-default-subscribed)
3576 	(setq gnus-newsrc-alist
3577 	      (delq (assoc group gnus-newsrc-alist)
3578 		    gnus-newsrc-alist))
3592       (gnus-make-hashtable-from-newsrc-alist))
3641     (let* ((prev gnus-newsrc-alist)
3642 	   (alist (cdr prev)))
3643       (while alist
3644 	(if (= (gnus-info-level (car alist)) level)
3646 	      (push (gnus-info-group (car alist)) gnus-killed-list)
3647 	      (setcdr prev (cdr alist)))
3648 	  (setq prev alist))
3649 	(setq alist (cdr alist)))
3650       (gnus-make-hashtable-from-newsrc-alist)
3768     (setq arg (gnus-group-default-level arg t))
3864       (if (and (setq url (cdr (assoc hierarchy gnus-group-charter-alist)))
4189 		     (append gnus-valid-select-methods gnus-server-alist)
4287 			(gnus-delete-alist type (car marked)))