Lines Matching +refs:nnfolder +refs:group +refs:alist
51 :group 'gnus-start
59 :group 'gnus-start
70 :group 'gnus-start
77 :group 'gnus-start
88 :group 'gnus-start
96 :group 'gnus-start
103 :group 'gnus-dribble-file
110 :group 'gnus-dribble-file
140 check for new newsgroups with \\<gnus-group-mode-map>\\[gnus-find-new-newsgroups]."
141 :group 'gnus-start
153 check for bogus newsgroups with \\<gnus-group-mode-map>\\[gnus-group-check-bogus-groups]."
154 :group 'gnus-start-server
171 :group 'gnus-start-server
192 :group 'gnus-group-levels
197 :group 'gnus-group-levels
204 :group 'gnus-group-levels
219 :group 'gnus-group-levels
231 :group 'gnus-newsrc
241 :group 'gnus-newsrc
256 :group 'gnus-newsrc
275 :group 'gnus-group-new
279 "*Function(s) called with a group name when new group is detected.
289 :group 'gnus-group-new
301 "*Hooks run after you subscribe to a new group.
302 The hooks will be called with new group's name as argument."
304 :group 'gnus-group-new
318 :group 'gnus-group-new
338 :group 'gnus-group-new
342 "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir"
350 :group 'gnus-group-new
361 :group 'gnus-group-new
369 :group 'gnus-group-new
377 :group 'gnus-newsrc
382 :group 'gnus-start-server
388 :group 'gnus-start
394 :group 'gnus-start
399 :group 'gnus-start
405 :group 'gnus-start
411 :group 'gnus-group-new
416 :group 'gnus-group-new
423 :group 'gnus-group-new
428 :group 'gnus-newsrc
433 :group 'gnus-newsrc
439 :group 'gnus-newsrc
445 :group 'gnus-newsrc
448 (defcustom gnus-group-mode-hook nil
449 "Hook for Gnus group mode."
450 :group 'gnus-group-various
456 :group 'gnus-newsrc
480 (defvar gnus-group-line-format)
504 prefixes prefix start ans group starts)
529 (setq group (car groups))))
530 (push group gnus-killed-list)
531 (gnus-sethash group group gnus-killed-hashtb)
537 (setq group (car groups))))
538 (gnus-sethash group group gnus-killed-hashtb)
544 (setq group (car groups))
545 (push group gnus-killed-list)
546 (gnus-sethash group group gnus-killed-hashtb)
554 (setq group (car groups))
557 (gnus-sethash group group gnus-killed-hashtb))
560 (setq group (car groups))
561 (push group gnus-killed-list)
562 (gnus-sethash group group gnus-killed-hashtb)
565 (push group gnus-killed-list)
566 (gnus-sethash group group gnus-killed-hashtb)))
575 (let ((groups (cdr gnus-newsrc-alist))
605 (defun gnus-subscribe-interactively (group)
609 (if (gnus-y-or-n-p (format "Subscribe new newsgroup %s? " group))
610 (gnus-subscribe-hierarchically group)
611 (push group gnus-killed-list)))
613 (defun gnus-subscribe-zombies (group)
614 "Make the new GROUP into a zombie group."
615 (push group gnus-zombie-list))
617 (defun gnus-subscribe-killed (group)
618 "Make the new GROUP a killed group."
619 (push group gnus-killed-list))
627 ;; We subscribe the group by changing its level to `subscribed'.
628 (gnus-group-change-level
630 gnus-level-killed (gnus-gethash (or next "dummy.group")
648 (defvar gnus-group-list-mode)
649 (defvar gnus-group-mark-positions)
652 (defvar nnoo-state-alist)
679 gnus-newsrc-alist nil
691 gnus-server-alist nil
692 gnus-group-list-mode nil
694 gnus-group-mark-positions nil
697 nnoo-state-alist nil
729 (make-local-variable 'gnus-group-use-permanent-levels)
730 (setq gnus-group-use-permanent-levels val)))
741 (switch-to-buffer gnus-group-buffer)
742 (gnus-group-get-new-news
745 (max (car gnus-group-list-mode) arg))))
774 (gnus-group-quit)
793 (gnus-request-create-group "queue" '(nndraft "")))
794 (gnus-request-create-group "drafts" '(nndraft ""))
798 ;; Generate the group buffer.
799 (gnus-group-list-groups level)
800 (gnus-group-first-unread-group)
801 (gnus-configure-windows 'group)
802 (gnus-group-set-mode-line)
806 "Make sure the draft group exists."
807 (gnus-request-create-group "drafts" '(nndraft ""))
809 (gnus-message 3 "Subscribing drafts group")
811 (gnus-subscribe-group "nndraft:drafts" nil '(nndraft ""))))
812 (unless (equal (gnus-group-get-parameter "nndraft:drafts" 'gnus-dummy t)
814 (gnus-message 3 "Setting up drafts group")
815 (gnus-group-set-parameter
852 (set-buffer gnus-group-buffer)
853 (gnus-group-set-mode-line))
949 (let ((init (not (and gnus-newsrc-alist gnus-active-hashtb (not rawfile))))
956 (setq gnus-newsrc-alist nil
963 (unless (assoc "archive" gnus-server-alist)
975 nnfolder
977 (nnfolder-directory
979 (nnfolder-active-file
982 (nnfolder-get-new-mail nil)
983 (nnfolder-inhibit-expiry t))
985 gnus-server-alist))))
993 ;; Validate agent covered methods now that gnus-server-alist has
1029 (when (and (boundp 'gnus-group-line-format)
1030 (stringp gnus-group-line-format)
1032 (string-match "%[-,0-9]*D" gnus-group-line-format))
1063 ;; Find the number of unread articles in each non-dead group.
1067 (defun gnus-call-subscribe-functions (method group)
1072 (funcall method group))
1076 (if (funcall func group)
1080 (gnus-subscribe-zombies group)))
1112 group new-newsgroups)
1123 (if (or (null (setq group (symbol-name sym)))
1126 (gnus-gethash group gnus-killed-hashtb)
1127 (gnus-gethash group gnus-newsrc-hashtb))
1129 (let ((do-sub (gnus-matches-options-n group)))
1133 (gnus-sethash group group gnus-killed-hashtb)
1135 gnus-subscribe-options-newsgroup-method group))
1140 (gnus-sethash group group gnus-killed-hashtb)
1142 (push group new-newsgroups)
1144 gnus-subscribe-newsgroup-method group)))))))
1153 (defun gnus-matches-options-n (group)
1154 ;; Returns `subscribe' if the group is to be unconditionally
1156 ;; no match for the group.
1161 (string-match gnus-options-subscribe group))
1164 (string-match gnus-auto-subscribed-groups group))
1167 (string-match gnus-options-not-subscribe group))
1176 (not (string-match (caar regs) group)))
1192 group new-newsgroups got-new method hashtb
1211 (lambda (group-sym)
1212 (if (or (null (setq group (symbol-name group-sym)))
1213 (not (boundp group-sym))
1214 (null (symbol-value group-sym))
1215 (gnus-gethash group gnus-newsrc-hashtb)
1216 (member group gnus-zombie-list)
1217 (member group gnus-killed-list))
1218 ;; The group is already known.
1220 ;; Make this group active.
1221 (when (symbol-value group-sym)
1222 (gnus-set-active group (symbol-value group-sym)))
1224 (let ((do-sub (gnus-matches-options-n group)))
1228 (gnus-sethash group group gnus-killed-hashtb)
1230 gnus-subscribe-options-newsgroup-method group))
1235 (gnus-sethash group group gnus-killed-hashtb)
1237 (push group new-newsgroups)
1239 gnus-subscribe-newsgroup-method group)))))))
1269 group)
1274 (when (setq group (symbol-name sym))
1275 (let ((do-sub (gnus-matches-options-n group)))
1278 (gnus-sethash group group gnus-killed-hashtb)
1280 gnus-subscribe-options-newsgroup-method group))
1284 (push group gnus-killed-list))))))
1286 (dolist (group groups)
1288 (when (gnus-active group)
1289 (gnus-group-change-level
1290 group gnus-level-default-subscribed gnus-level-killed)))
1292 (set-buffer gnus-group-buffer)
1293 ;; Don't error if the group already exists. This happens when a
1295 (gnus-group-make-help-group t))
1299 (defun gnus-subscribe-group (group &optional previous method)
1301 (gnus-group-change-level
1303 (list t group gnus-level-default-subscribed nil nil method)
1304 group)
1308 ;; `gnus-group-change-level' is the fundamental function for changing
1311 ;; again, which subscribes/unsubscribes a group, which is equally
1312 ;; trivial. Changing from 1-7 to 8-9 means that you kill a group, and
1313 ;; from 8-9 to 1-7 means that you remove the group from the list of
1321 ;; LEVEL is the new level of the group, OLDLEVEL is the old level and
1322 ;; PREVIOUS is the group (in hashtb entry format) to insert this group
1324 (defun gnus-group-change-level (entry level &optional oldlevel
1326 (let (group info active num)
1329 (if fromkilled (setq group (nth 1 entry))
1330 (setq group (car (nth 2 entry))))
1331 (setq group entry))
1344 (gnus-gethash group gnus-newsrc-hashtb))
1345 ;; We are trying to subscribe a group that is already
1349 (unless (gnus-ephemeral-group-p group)
1351 (format "(gnus-group-change-level %S %S %S %S %S)"
1352 group level oldlevel (car (nth 2 previous)) fromkilled)))
1355 ;; If the group was killed, we remove it from the killed or zombie
1361 (setq gnus-zombie-list (delete group gnus-zombie-list))
1362 (setq gnus-killed-list (delete group gnus-killed-list)))
1379 (gnus-sethash group nil gnus-newsrc-hashtb)
1382 (unless (gnus-group-foreign-p group)
1384 (push group gnus-zombie-list)
1387 (unintern group gnus-active-hashtb)
1389 (push group gnus-killed-list)))))
1402 (setq active (gnus-active group))
1409 (gnus-group-method group)))))
1411 (setq info (list group level nil nil method))
1412 (setq info (list group level nil)))))
1415 (let ((p gnus-newsrc-alist))
1423 (gnus-sethash group (cons num (cdr previous))
1426 (gnus-sethash group (cons num previous)
1432 "(gnus-group-set-info '%S)" info)))))
1433 (when gnus-group-change-level-function
1434 (funcall gnus-group-change-level-function
1435 group level oldlevel previous)))))
1439 (gnus-group-change-level
1446 (let ((newsrc (cdr gnus-newsrc-alist))
1447 bogus group entry info)
1455 group (gnus-info-group info))
1456 (unless (or (gnus-active group) ; Active
1461 (push group bogus)))
1464 "Remove bogus group %s? "
1465 (lambda (group)
1468 (when (setq entry (gnus-gethash group gnus-newsrc-hashtb))
1469 (gnus-group-change-level entry gnus-level-killed)
1470 (setq gnus-killed-list (delete group gnus-killed-list))))
1471 bogus '("group" "groups" "remove"))
1472 (while (setq group (pop bogus))
1475 (when (setq entry (gnus-gethash group gnus-newsrc-hashtb))
1476 (gnus-group-change-level entry gnus-level-killed)
1477 (setq gnus-killed-list (delete group gnus-killed-list)))))
1485 (unless (gnus-active (setq group (pop killed)))
1486 ;; The group is bogus.
1489 (delete group (symbol-value (car dead-lists))))))
1506 (defun gnus-cache-possibly-alter-active (group active)
1509 (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb)))
1516 (defun gnus-activate-group (group &optional scan dont-check method)
1517 "Check whether a group has been activated or not.
1518 If SCAN, request a scan of that group as well."
1519 (let ((method (or method (inline (gnus-find-method-for-group group))))
1523 ;; continue if a group is so out-there that it reports bugs
1528 (gnus-request-scan group method))
1531 (inline (gnus-request-group group dont-check method))
1533 (inline (gnus-request-group group dont-check method))
1536 (message "Quit activating %s" group)
1540 ;; If there are no articles in the group, the GROUP
1543 ;; for the group.
1546 (gnus-active group))
1547 (gnus-active group)
1552 group active)))
1556 (gnus-agent-possibly-alter-active group active))
1558 (gnus-set-active group active)
1562 (defun gnus-get-unread-articles-in-group (info active &optional update)
1564 ;; Allow the backend to update the info in the group.
1567 info (inline (gnus-find-method-for-group
1568 (gnus-info-group info)))))
1569 (gnus-activate-group (gnus-info-group info) nil t))
1574 ;; These checks are present in gnus-activate-group but skipped
1580 (gnus-info-group info) active)))
1584 (gnus-agent-possibly-alter-active (gnus-info-group info) active info))
1588 ;; number to the group hash table entry.
1653 (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb))
1654 (setcar (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb) num))
1657 ;; Go though `gnus-newsrc-alist' and compare with `gnus-active-hashtb'
1658 ;; and compute how many unread articles there are in each group.
1661 (let* ((newsrc (cdr gnus-newsrc-alist))
1674 scanned-methods info group active method retrieve-groups cmethod
1679 (setq active (gnus-active (setq group (gnus-info-group
1689 ;; >0 for an active group with messages
1690 ;; 0 for an active group with no unread messages
1715 (setq active (gnus-activate-group group 'scan)))
1718 (gnus-agent-save-group-info
1719 method (gnus-group-real-name group) active))
1720 (unless (inline (gnus-virtual-group-p group))
1721 (inline (gnus-close-group group)))
1731 (if (gnus-check-backend-function 'retrieve-groups group)
1733 ;; the group onto retrievegroups for later checking
1736 (cons group (cdr (assoc method retrieve-groups))))
1737 (push (list method group) retrieve-groups))
1739 ;; on the group, so we must perform a scan for every group
1752 (setq active (gnus-activate-group group))
1753 (setq active (gnus-activate-group group 'scan))
1756 (gnus-close-group group)))))
1758 ;; Get the number of unread articles in the group.
1764 (inline (gnus-get-unread-articles-in-group info active t)))
1766 ;; The group couldn't be reached, so we nix out the number of
1768 (gnus-set-active group nil)
1769 (let ((tmp (gnus-gethash group gnus-newsrc-hashtb)))
1783 (mapcar (lambda (group) (gnus-group-real-name group)) groups)
1785 (dolist (group groups)
1787 ((setq active (gnus-active (gnus-info-group
1788 (setq info (gnus-get-info group)))))
1789 (inline (gnus-get-unread-articles-in-group info active t)))
1791 ;; The group couldn't be reached, so we nix out the number of
1793 (gnus-set-active group nil)
1794 (setcar (gnus-gethash group gnus-newsrc-hashtb) t)))))))
1798 ;; Create a hash table out of the newsrc alist. The `car's of the
1799 ;; alist elements are used as keys.
1800 (defun gnus-make-hashtable-from-newsrc-alist ()
1801 (let ((alist gnus-newsrc-alist)
1804 (setq gnus-newsrc-hashtb (gnus-make-hashtable (length alist)))
1805 (setq alist
1806 (setq prev (setq gnus-newsrc-alist
1807 (if (equal (caar gnus-newsrc-alist)
1808 "dummy.group")
1809 gnus-newsrc-alist
1810 (cons (list "dummy.group" 0 nil) alist)))))
1811 (while alist
1813 (caar alist)
1815 (cons (and ohashtb (car (gnus-gethash (caar alist) ohashtb)))
1818 (setq prev alist
1819 alist (cdr alist)))))
1838 ;; Parse the result we got from `gnus-request-group'.
1844 (defun gnus-make-articles-unread (group articles)
1846 (let* ((info (nth 2 (or (gnus-gethash group gnus-newsrc-hashtb)
1847 (gnus-gethash (gnus-group-real-name group)
1856 ;; Enter this list into the group info.
1861 (gnus-get-unread-articles-in-group info (gnus-active group))
1863 ;; Insert the change into the group buffer and the dribble file.
1864 (gnus-group-update-group group t))))
1866 (defun gnus-make-ascending-articles-unread (group articles)
1868 (let* ((entry (or (gnus-gethash group gnus-newsrc-hashtb)
1869 (gnus-gethash (gnus-group-real-name group)
1925 ;; Enter this list into the group info.
1929 (gnus-get-unread-articles-in-group info (gnus-active group))
1931 ;; Insert the change into the group buffer and the dribble file.
1932 (gnus-group-update-group group t))))
1958 (group (symbol-name sym)))
1959 (if (or (null group)
1960 (gnus-gethash group gnus-killed-hashtb)
1961 (gnus-gethash group gnus-newsrc-hashtb))
1963 (let ((do-sub (gnus-matches-options-n group)))
1967 (push group gnus-killed-list)
1968 (gnus-sethash group group gnus-killed-hashtb))))))
1974 (gnus-group-set-mode-line)
2023 (let ((newsrc (cdr gnus-newsrc-alist))
2030 (gnus-find-method-for-group
2031 (gnus-info-group info) info))
2033 (push (gnus-group-real-name (gnus-info-group info))
2090 ;; Make the group names readable as a lisp expression even if they
2101 ;; group prefix in front of the group names.
2105 (let ((prefix (gnus-group-prefixed-name "" method)))
2115 (let (group max min)
2120 ;; group gets set to a symbol interned in the hash table
2122 (setq group (let ((obarray hashtb)) (read cur)))
2123 ;; ### The extended group name scheme makes
2125 (when (stringp group)
2126 (setq group (intern group hashtb)))
2136 (set group (cons min max))
2137 ;; if group is moderated, stick in moderation table
2141 (gnus-sethash (symbol-name group) t
2143 (set group nil)))
2145 (and group
2146 (symbolp group)
2147 (set group nil))
2168 (gnus-group-prefixed-name "" method))))
2183 (let (min max opoint group)
2196 (error (and group (symbolp group) (set group nil))))
2198 (let (min max group)
2205 (set (setq group (let ((obarray hashtb)) (read cur)))
2207 (error (and group (symbolp group) (set group nil))))
2232 (not gnus-newsrc-alist)))
2340 (let ((newsrc (cdr gnus-newsrc-alist))
2387 (setq gnus-newsrc-alist gnus-newsrc-assoc))))
2388 (gnus-make-hashtable-from-newsrc-alist)
2399 (let (newsrc killed marked group m info)
2402 gnus-marked-assoc gnus-newsrc-alist gnus-newsrc-assoc)
2409 (setq gnus-newsrc-alist nil)
2410 (while (setq group (pop newsrc))
2411 (if (setq info (gnus-get-info (car group)))
2413 (gnus-info-set-read info (cddr group))
2415 info (if (nth 1 group) gnus-level-default-subscribed
2417 (push info gnus-newsrc-alist))
2419 (list (car group)
2420 (if (nth 1 group) gnus-level-default-subscribed
2422 (cddr group)))
2423 gnus-newsrc-alist))
2425 (when (setq m (assoc (car group) marked))
2449 (setq gnus-newsrc-alist (nreverse gnus-newsrc-alist))
2450 (gnus-make-hashtable-from-newsrc-alist)))
2469 (already-read (> (length gnus-newsrc-alist) 1))
2470 group subscribed options-symbol newsrc Options-symbol
2491 ;; Now, the symbol we have read is either `options' or a group
2515 ;; It was a group name.
2517 group (symbol-name symbol)
2572 (setq group nil)
2585 (when group
2586 (let ((info (gnus-get-info group))
2589 ;; There is an entry for this file in the alist.
2604 ;; This is a new group.
2605 (setq info (list group
2620 ;; have read from .newsrc, and `gnus-newsrc-alist', which is
2623 ;; gnus-newsrc-alist to the (native) group that precedes them.
2624 (let ((rc (cdr gnus-newsrc-alist))
2625 (prev gnus-newsrc-alist)
2628 (or (null (nth 4 (car rc))) ; It's a native group.
2629 (assoc (caar rc) newsrc) ; It's already in the alist.
2637 (setq gnus-newsrc-alist newsrc)
2639 (gnus-make-hashtable-from-newsrc-alist)
2716 ;; from the variable gnus-newsrc-alist.
2717 (when (and (or gnus-newsrc-alist gnus-killed-list)
2803 (gnus-group-set-mode-line)))))
2806 "Print Gnus variables such as `gnus-newsrc-alist' in Lisp format."
2839 ;; Peel off the "dummy" group.
2840 (gnus-newsrc-alist (cdr gnus-newsrc-alist))
2866 (let ((newsrc (cdr gnus-newsrc-alist))
2882 (insert (gnus-info-group info)
3003 group)
3012 (gnus-sethash (gnus-group-prefixed-name "" method) "Has read"
3035 ;; group prefix in front of the group names.
3041 (let ((prefix (gnus-group-prefixed-name "" method)))
3048 ;; If we get an error, we set group to 0, which is not a
3050 (setq group
3059 (when (symbolp group)
3062 (name (symbol-name group))
3064 (or (gnus-group-name-charset method name)
3070 (set group str)))
3075 (defun gnus-group-get-description (group)
3076 "Get the description of a group by sending XGTITLE to the server."
3077 (when (gnus-request-group-description group)
3108 (let (server group info)
3111 (when (and (setq group (symbol-name sym))
3112 (gnus-group-entry group)
3114 (gnus-sethash group (cons (nth 2 info) (cdr (gnus-group-entry group)))