Lines Matching +defs:auto +defs:mode +defs:list
1 ;;; gnus-sum.el --- summary mode commands for Gnus
32 (defvar tool-bar-mode))
47 (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
48 (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
87 "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
155 Useful functions to put in this list include:
246 This can either be a regular expression or list of regular expressions
253 "*If non-nil, display threads in summary mode."
301 (defcustom gnus-auto-extend-newsgroup t
306 (defcustom gnus-auto-select-first t
309 e.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or
313 `gnus-auto-select-subject'.
318 ;; \\<gnus-group-mode-map>\\[gnus-group-read-group]
319 ;; \\<gnus-summary-mode-map>\\[gnus-summary-next-page]
320 ;; \\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]
325 (defcustom gnus-auto-select-subject 'unread
344 (defcustom gnus-auto-select-next t
347 summary mode and go back to group mode. If the value is neither nil
353 Finally, if this variable is `slightly-quietly', the `\\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]' command
362 (defcustom gnus-auto-select-same nil
369 (defcustom gnus-auto-goto-ignores 'unfetched
378 NOTE: The list of unfetched articles will always be nil when plugged
379 and, when unplugged, a subset of the undownloaded article list."
394 (defcustom gnus-auto-center-summary t
404 (defvar gnus-auto-center-group t
437 :type '(repeat (choice (list :value (fun) function)
610 (defcustom gnus-auto-expirable-marks
611 (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
614 "*The list of marks converted into expiration if a group is auto-expirable."
619 (defcustom gnus-inhibit-user-auto-expire t
620 "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
637 list of parameters to that command."
660 (defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
661 "*The format specification for the summary mode line.
683 (defcustom gnus-list-identifiers nil
684 "Regexp that matches list identifiers to be removed from subject.
685 This can also be a list of regexps."
706 probably always include `gnus-article-sort-by-number' in the list of
735 probably always include `gnus-thread-sort-by-number' in the list of
789 (defcustom gnus-summary-mode-hook nil
790 "*A hook for Gnus summary mode.
792 :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
798 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
799 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
800 (add-hook 'gnus-summary-mode-hook
804 "*Hook run after the creation of the summary mode menu."
857 (list 'gnus-highlight-selected-summary)
870 "*A hook called when exiting summary mode.
876 (list 'gnus-summary-highlight-line)
894 "*A hook run when returning to group mode having no more (unread) groups."
976 A list of (FORM . FACE) pairs. When deciding how a a particular
1034 :type list
1061 (repeat (list (regexp :tag "Highlight regexp")
1086 "Function to be called to alter the list of articles to be selected."
1098 message with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).
1231 (defvar gnus-summary-mode-line-format-alist
1265 (defvar gnus-newsgroup-auto-expire nil)
1275 "Sorted list of unread articles in the current newsgroup.")
1278 "Sorted list of unselected unread articles in the current newsgroup.")
1286 "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
1295 "Sorted list of articles that come from the article cache.")
1312 "Sorted list of articles in the current newsgroup that can be expired.")
1318 "Sorted list of articles in the current newsgroup that can be processed.")
1321 "Sorted list of articles in the current newsgroup whose headers have
1324 This list will always be a subset of gnus-newsgroup-undownloaded.")
1336 "Sorted list of dormant articles in the current newsgroup.")
1381 gnus-newsgroup-auto-expire gnus-newsgroup-unreads
1419 "A list of variables that have separate values in different newsgroups.
1420 A list of newsgroup (summary buffer) local variables, or cons of
1464 This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item
1481 (setq gnus-decode-encoded-word-methods-cache (list gnus-newsgroup-name))
1484 (nconc gnus-decode-encoded-word-methods-cache (list x))
1488 (list (cdr x))))))
1630 ;;; Gnus summary mode
1633 (put 'gnus-summary-mode 'mode-class 'special)
1639 (gnus-define-keys gnus-summary-mode-map
1756 (gnus-define-keys (gnus-summary-mark-map "M" gnus-summary-mode-map)
1785 (gnus-define-keys (gnus-summary-limit-map "/" gnus-summary-mode-map)
1809 (gnus-define-keys (gnus-summary-goto-map "G" gnus-summary-mode-map)
1825 (gnus-define-keys (gnus-summary-thread-map "T" gnus-summary-mode-map)
1844 (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
1849 (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
1862 (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map)
1882 "M" gnus-mailing-list-insinuate
1885 (gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
1925 "l" gnus-article-hide-list-identifiers
1976 (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
1985 (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
2002 (gnus-define-keys (gnus-summary-save-map "O" gnus-summary-mode-map)
2016 (gnus-define-keys (gnus-summary-mime-map "K" gnus-summary-mode-map)
2048 (gnus-define-keys (gnus-uu-extract-map "X" gnus-summary-mode-map)
2107 gnus-summary-kill-menu gnus-summary-mode-map ""
2111 (list
2142 ["List identifiers" gnus-article-hide-list-identifiers t]
2206 (sort (if (fboundp 'coding-system-list)
2207 (coding-system-list)
2323 ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
2327 gnus-summary-article-menu gnus-summary-mode-map ""
2332 gnus-article-commands-menu gnus-article-mode-map ""
2337 (define-key gnus-article-mode-map [menu-bar commands]
2341 gnus-summary-thread-menu gnus-summary-mode-map ""
2360 gnus-summary-post-menu gnus-summary-mode-map ""
2412 (define-key gnus-article-mode-map [menu-bar post]
2416 gnus-summary-misc-menu gnus-summary-mode-map ""
2523 ["Pick and read" gnus-pick-mode t]
2524 ["Binary" gnus-binary-mode t])
2554 '(:help "Exit current group, return to group selection mode"))]
2568 ;; summary-mode buffers and force the update.
2570 "Update summary mode toolbar.
2585 It can be either a list or a symbol refering to a list. See
2586 `gmm-tool-bar-from-list' for the format of the list. The
2587 default key map is `gnus-summary-mode-map'.
2593 (repeat :tag "User defined list" gmm-tool-bar-item)
2640 (gmm-customize-mode "preferences" t :help "Edit mode preferences")
2644 See `gmm-tool-bar-from-list' for the format of the list."
2679 See `gmm-tool-bar-from-list' for the format of the list."
2686 (defcustom gnus-summary-tool-bar-zap-list t
2688 These items are not displayed in the Gnus summary mode tool bar.
2690 See `gmm-tool-bar-from-list' for the format of the list."
2691 :type 'gmm-tool-bar-zap-list
2700 "Make a summary mode tool bar from `gnus-summary-tool-bar'.
2703 (boundp 'tool-bar-mode)
2704 tool-bar-mode
2713 (map (gmm-tool-bar-from-list gnus-summary-tool-bar
2714 gnus-summary-tool-bar-zap-list
2715 'gnus-summary-mode-map)))
2717 ;; Need to set `gnus-summary-tool-bar-map' because `gnus-article-mode'
2751 (list
2754 (list
2765 (list (car header))
2773 (list (caar ts))
2781 (list
2789 (list 'gnus-summary-header
2791 (list 'quote (nth 1 (car ts)))
2792 (list 'gnus-score-delta-default
2799 (list (nreverse outp))))
2802 (list (nreverse outt))))
2805 (list (nreverse outh))))))))
2810 (defun gnus-summary-mode (&optional group)
2811 "Major mode for reading articles.
2814 \\<gnus-summary-mode-map>
2829 \\{gnus-summary-mode-map}"
2839 (gnus-simplify-mode-line)
2840 (setq major-mode 'gnus-summary-mode)
2841 (setq mode-name "Summary")
2842 (make-local-variable 'minor-mode-alist)
2843 (use-local-map gnus-summary-mode-map)
2859 (gnus-run-mode-hooks 'gnus-summary-mode-hook)
2860 (turn-on-gnus-mailing-list-mode)
2862 (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
2874 ;; Use the value from the list.
2931 (defmacro gnus-data-find-list (number &optional data)
2937 `(list ,number ,mark ,pos ,header ,level))
2940 (let ((data (gnus-data-find-list after-article)))
2946 (gnus-data-update-list (cddr data) offset)))
2948 (defun gnus-data-enter-list (after-article list &optional offset)
2949 (when list
2950 (let ((data (and after-article (gnus-data-find-list after-article)))
2951 (ilist list))
2955 (setq gnus-newsgroup-data (nconc list gnus-newsgroup-data))
2957 (gnus-data-update-list odata offset)))
2958 ;; Find the last element in the list to be spliced into the main
2959 ;; list.
2960 (while (cdr list)
2961 (setq list (cdr list)))
2964 (setcdr list gnus-newsgroup-data)
2967 (gnus-data-update-list (cdr list) offset)))
2968 (setcdr list (cdr data))
2971 (gnus-data-update-list (cdr list) offset))))
2981 (gnus-data-update-list gnus-newsgroup-data offset)))
2986 (gnus-data-update-list (cdr data) offset))
2991 (defmacro gnus-data-list (backward)
2998 (defun gnus-data-update-list (data offset)
3019 (let ((data (gnus-data-find-list number)))
3025 "Return a list of all children to NUMBER."
3026 (let* ((data (gnus-data-find-list number))
3053 ;; Some summary mode macros.
3106 "Return a list of article numbers that are children of article NUMBER."
3107 (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))))
3119 (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))
3120 (gnus-data-list t)))
3207 ;; Various summary mode internalish functions.
3274 (gnus-summary-mode group)
3290 (when (eq major-mode 'gnus-summary-mode)
3354 (not (cdr (gnus-data-find-list article)))))
3408 (setq pos (list (cons 'unread
3430 (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
3606 "Go through the local params of GROUP and set all variable specs in that list."
3614 (consp (cdr elem)) ; The cdr has to be a list.
3632 (let ((gnus-auto-select-next nil))
3639 (eq gnus-auto-select-next 'quietly))
3671 (gnus-set-mode-line 'summary)
3677 (when (and (eq major-mode 'gnus-summary-mode)
3698 (and (eq major-mode 'gnus-summary-mode)
3722 nil 'summary 'summary-mode 'summary-dummy))
3771 (gnus-summary-auto-select-subject)
3776 gnus-auto-select-first)
3787 (gnus-set-mode-line 'summary))
3788 (when (and gnus-auto-center-group
3804 (defun gnus-summary-auto-select-subject ()
3808 ((eq gnus-auto-select-subject 'best)
3810 ((eq gnus-auto-select-subject 'unread)
3812 ((eq gnus-auto-select-subject 'unseen)
3814 ((eq gnus-auto-select-subject 'unseen-or-unread)
3816 ((eq gnus-auto-select-subject 'first)
3819 ((functionp gnus-auto-select-subject)
3820 (funcall gnus-auto-select-subject))))
3893 (setcar hthread (list whole-subject (car hthread))))
3897 (nconc (cdar hthread) (list (car threads))))
3898 ;; Remove it from the list of threads.
3907 (setcar threads (list whole-subject
3939 (setcar gthread (list (mail-header-subject (caar gthread))
3944 (nconc (cdar gthread) (list (car threads)))))
3948 ;; Remove it from the list of threads.
3967 (let ((stack (list thread))
3983 (list (car th))))
3984 (set ref-dep (list nil (car th))))
4039 (set id-dep (list header)))
4056 (list header))
4092 (list (symbol-value id-dep))))
4093 (set ref-dep (list nil (symbol-value id-dep)))))
4125 (push (list (incf generation)
4130 (push (list (1+ generation) child nil subject) relations))
4260 (gnus-add-to-sorted-list gnus-newsgroup-unreads
4288 (gnus-add-to-sorted-list
4304 (let* ((datal (gnus-data-find-list article))
4326 (gnus-data-find-list
4328 (gnus-data-list t)))))
4338 (gnus-data-update-list
4376 (setq thread (list (car (gnus-id-to-thread id))))
4407 (gnus-summary-prepare-threads (gnus-cut-threads (list thread)))
4416 (gnus-data-enter-list
4488 "Return the list of articles in THREAD."
4497 headers (message-flatten-list (gnus-id-to-thread last-id)))
4575 (stack (list (cons superthread threads)))
4624 (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207"
4736 (gnus-thread-total-score-1 (list thread)))))
4746 (message-flatten-list thread))))
4764 (message-flatten-list thread)
4777 (list (or (cdr (assq (mail-header-number root)
4780 (list gnus-summary-default-score)
4838 THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])'
4839 or a straight list of headers."
4863 ;; If this is a straight (sic) list of headers, then a
4881 thread (list (car gnus-tmp-new-adopts))
4885 (setq thread (list (car new-roots))
4919 (setq thread (cons (list (caar thread)
4953 (setq new-roots (nconc new-roots (list (car thread)))
4982 (if gnus-newsgroup-auto-expire
4984 (gnus-add-to-sorted-list
5123 (push (list (max 0 gnus-tmp-level)
5164 (if gnus-newsgroup-auto-expire
5181 (defun gnus-summary-remove-list-identifiers ()
5182 "Remove list identifiers in `gnus-list-identifiers' from articles in the current group."
5183 (let ((regexp (if (consp gnus-list-identifiers)
5184 (mapconcat 'identity gnus-list-identifiers " *\\|")
5185 gnus-list-identifiers))
5249 (when (equal major-mode 'gnus-summary-mode)
5255 (when (equal major-mode 'gnus-summary-mode)
5270 gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
5352 ;; Remove canceled articles from the list of unread articles.
5360 (gnus-compute-unseen-list)
5373 (gnus-agent-get-undownloaded-list))
5374 ;; Remove list identifiers from subject
5375 (when gnus-list-identifiers
5376 (gnus-summary-remove-list-identifiers))
5377 ;; Check whether auto-expire is to be done in this group.
5378 (setq gnus-newsgroup-auto-expire
5379 (gnus-group-auto-expirable-p group))
5393 (defun gnus-compute-unseen-list ()
5398 (gnus-inverse-list-range-intersection
5483 (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
5484 (scored (length scored-list))
5535 (setq articles (sort scored-list '<))
5577 'list))
5598 ;; We set the variable according to the type of the marks list,
5602 ((eq mark-type 'list)
5609 (list (cdr marks))
5629 (set var (list (symbol-value var))))
5631 (setq articles (list articles)))
5644 (setcdr marks (list (cdr marks))))
5655 "Go through the list of MISSING articles and remove them from the mark lists."
5660 (when (eq (gnus-article-mark-to-type (cdr elem)) 'list)
5663 ;; This list has articles. So we delete all missing
5670 "Enter the various lists of marked articles into the newsgroup info list."
5673 type list newmarked symbol delta-marks)
5675 ;; Add all marks lists to the list of marks lists.
5677 (setq list (symbol-value
5681 (when list
5686 list)
5687 (let* ((arts list)
5688 (prev (cons nil list))
5696 (setq list (cdr all)))))
5699 (setq list (gnus-range-add list gnus-newsgroup-unseen)))
5701 (when (eq (gnus-article-mark-to-type (cdr type)) 'list)
5702 (setq list (gnus-compress-sequence (set symbol (sort list '<)) t)))
5708 (del (gnus-remove-from-range (gnus-copy-sequence old) list))
5710 (gnus-copy-sequence list) old)))
5712 (push (list add 'add (list (cdr type))) delta-marks))
5714 (push (list del 'del (list (cdr type))) delta-marks))))
5716 (when list
5717 (push (cons (cdr type) list) newmarked)))
5729 (setcdr (nthcdr 2 info) (list newmarked))))
5738 (defun gnus-set-mode-line (where)
5739 "Set the mode line of the article or summary buffers.
5740 If WHERE is `summary', the summary mode line format will be used."
5741 ;; Is this mode line one we keep updated?
5742 (when (and (memq where gnus-updated-mode-lines)
5744 (intern (format "gnus-%s-mode-line-format-spec" where))))
5745 (let (mode-string)
5754 (format "gnus-%s-mode-line-format-spec" where))))
5755 (gnus-tmp-group-name (gnus-mode-string-quote
5774 (gnus-mode-string-quote
5779 (setq mode-string (eval mformat))
5780 (setq bufname-length (if (string-match "%b" mode-string)
5788 (setq max-len (max 4 (if gnus-mode-non-string-length
5790 gnus-mode-non-string-length
5792 (length mode-string))))
5794 (when (> (length mode-string) max-len)
5795 (setq mode-string
5796 (concat (truncate-string-to-width mode-string (- max-len 3))
5798 ;; Pad the mode string a bit.
5799 (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
5800 ;; Update the mode line.
5801 (setq mode-line-buffer-identification
5802 (gnus-mode-line-buffer-identification (list mode-string)))
5806 "Go through the HEADERS list and add all Xrefs to a hash table.
5893 ;; If the read list is nil, we init it.
5919 (gnus-request-set-mark ,group (list (list ',range 'del '(read))))
5923 (gnus-request-set-mark group (list (list range 'add '(read))))
6105 ;; Goes through the xover lines and returns a list of vectors
6110 Return a list of headers that match SEQUENCE (see
6219 ;; Remove list identifiers from subject.
6220 (when gnus-list-identifiers
6221 (let ((gnus-newsgroup-headers (list header)))
6222 (gnus-summary-remove-list-identifiers)))
6250 "Return a list of articles to be worked upon.
6251 The prefix argument, the list of process marked articles, and the
6289 ;; Return the list.
6293 (list (gnus-summary-article-number))))))
6358 (data (gnus-data-find-list article))
6371 ((eq gnus-auto-goto-ignores
6376 ((eq gnus-auto-goto-ignores
6379 ((eq gnus-auto-goto-ignores
6394 (data (gnus-data-find-list article (gnus-data-list 'rev)))
6407 ((eq gnus-auto-goto-ignores
6412 ((eq gnus-auto-goto-ignores
6415 ((eq gnus-auto-goto-ignores
6430 (articles (gnus-data-list backward))
6431 (arts (gnus-data-find-list article articles))
6462 (when (and gnus-auto-center-summary
6463 (not (eq gnus-auto-center-summary 'vertical)))
6469 If `gnus-auto-center-summary' is nil, or the article buffer isn't
6475 (when gnus-auto-center-summary
6478 (t (if (numberp gnus-auto-center-summary)
6479 gnus-auto-center-summary
6509 (not (eq gnus-auto-center-summary 'vertical)))
6517 "Move point to NEWSGROUP in group mode buffer."
6518 ;; Keep update point of group mode buffer if visible.
6521 ;; Take care of tree window mode.
6526 ;; Take care of tree window mode.
6532 ;; This function returns a list of article numbers based on the
6535 (defun gnus-list-of-unread-articles (group)
6548 (progn (setq read (list read))
6551 ;; `read' is a list of ranges.
6568 ;; Return the list of unread articles.
6571 (defun gnus-list-of-read-articles (group)
6572 "Return a list of unread, unticked and non-dormant articles."
6577 (gnus-list-range-difference
6578 (gnus-list-range-difference
6581 (gnus-list-of-unread-articles group))
6601 (progn (setq read (list read))
6604 ;; `read' is a list of ranges.
6646 "\\<gnus-summary-mode-map>\\[gnus-summary-universal-argument]"))))
6673 (unless found ; don't demand the reverse list if we don't need it
6674 (let ((data (gnus-data-find-list
6675 (gnus-summary-article-number) (gnus-data-list rev))))
6693 ;; We have to adjust the point of group mode buffer because
6715 (gnus-list-range-intersection
6720 (setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
6756 "Exit reading current newsgroup, and then return to group selection mode.
6772 (mode major-mode)
6825 (setq mode nil))
6841 ;; Return to group mode buffer.
6842 (when (eq mode 'gnus-summary-mode)
6919 (cond ((eq major-mode 'gnus-summary-mode)
6921 ((eq major-mode 'gnus-article-mode)
6939 (if (and (boundp 'gnus-pick-mode) (symbol-value 'gnus-pick-mode))
6943 (when (eq major-mode 'gnus-summary-mode)
6950 (defvar gnus-dead-summary-mode-map nil)
6952 (unless gnus-dead-summary-mode-map
6953 (setq gnus-dead-summary-mode-map (make-keymap))
6954 (suppress-keymap gnus-dead-summary-mode-map)
6956 'undefined 'gnus-summary-wake-up-the-dead gnus-dead-summary-mode-map)
6958 (define-key gnus-dead-summary-mode-map
6961 (define-key gnus-dead-summary-mode-map key 'bury-buffer)))
6963 (defvar gnus-dead-summary-mode nil
6964 "Minor mode for Gnus summary buffers.")
6966 (defun gnus-dead-summary-mode (&optional arg)
6967 "Minor mode for Gnus summary buffers."
6969 (when (eq major-mode 'gnus-summary-mode)
6970 (make-local-variable 'gnus-dead-summary-mode)
6971 (setq gnus-dead-summary-mode
6972 (if (null arg) (not gnus-dead-summary-mode)
6974 (when gnus-dead-summary-mode
6975 (gnus-add-minor-mode
6976 'gnus-dead-summary-mode " Dead" gnus-dead-summary-mode-map))))
6985 (when gnus-dead-summary-mode
6989 (gnus-dead-summary-mode 1)
7025 (gnus-dead-summary-mode -1)
7040 (list
7044 (mapcar (lambda (file) (list file))
7058 "Describe summary mode commands briefly."
7060 (gnus-message 6 (substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select \\[gnus-summary-next-unread-article]:Forward \\[gnus-summary-prev-unread-article]:Backward \\[gnus-summary-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-summary-describe-briefly]:This help")))
7062 ;; Walking around group mode buffer from summary mode.
7158 (l (delq nil (list r d s))))
7292 (unless (eq major-mode 'gnus-summary-mode)
7331 (gnus-buttonized-mime-types (append (list "multipart/signed"
7347 (unless (eq major-mode 'gnus-summary-mode)
7357 gnus-auto-select-same
7362 ((and gnus-auto-extend-newsgroup
7385 ((or (not gnus-auto-select-next)
7388 ((or (eq gnus-auto-select-next 'quietly)
7389 (and (eq gnus-auto-select-next 'slightly-quietly)
7391 (and (eq gnus-auto-select-next 'almost-quietly)
7431 ;; Confirm auto selection.
7458 (and gnus-auto-select-same
7473 (and gnus-auto-select-same
7711 (let ((article (gnus-data-number (car (gnus-data-list t)))))
7721 (list
7724 (mapcar (lambda (number) (list (int-to-string number)))
7777 (list (mapcar (lambda (h) (mail-header-number h))
7789 (list (read-string (if current-prefix-arg
7809 (list (read-string (if current-prefix-arg
7839 (list days younger)))
7874 (list header
7914 (list gnus-del-mark gnus-read-mark gnus-ancient-mark
7928 with MARKS. MARKS can either be a string of marks or a list of marks.
7937 list of marks.
7943 (append marks nil))) ; Transform to list.
7978 (interactive (list (mail-header-id (gnus-summary-article-header))))
7991 (interactive (list (read-string "Match on header: ")
8021 (gnus-summary-limit-to-marks (list gnus-dormant-mark) 'reverse)
8027 (let ((data (gnus-data-list t))
8085 (data (gnus-data-find-list (gnus-summary-article-number)))
8108 (gnus-set-mode-line 'summary)
8257 (if gnus-newsgroup-auto-expire
8287 (if gnus-newsgroup-auto-expire
8374 (list (min
8382 (gnus-retrieve-headers (list gnus-newsgroup-end)
8436 "Return a list of referable methods."
8440 (list gnus-current-select-method gnus-select-method))
8443 (list gnus-current-select-method))
8456 (list gnus-refer-article-method))))
8483 gnus-newsgroup-name (list 'nndoc ""))
8489 (list (cons 'to-group ogroup))
8490 (list (cons 'parent-group ogroup))
8491 (list (cons 'save-article-group ogroup))))
8503 (list (cons 'to-address
8546 (list (cons 'to-group ogroup))))
8602 (list (read-string
8618 (signal 'search-failed (list regexp)))))
8623 (list (read-string
8648 (gnus-updated-mode-lines nil)
8649 (gnus-auto-center-summary nil)
8704 "Return a list of all articles that match REGEXP on HEADER.
8717 "Return a list of all articles that match REGEXP on HEADER.
8722 in the comparisons. If NOT-MATCHING, return a list of all articles that
8738 (gnus-data-find-list
8740 (gnus-data-list backward))))
8758 (list (let ((completion-ignore-case t))
8761 (mapcar (lambda (header) (list (format "%s" header)))
8839 (interactive (list (ps-print-preprint current-prefix-arg)))
8863 (list
8873 (list
9016 (gnus-set-mode-line 'article)))))
9169 (list 'gnus-request-accept-article
9170 to-newsgroup (list 'quote select-method)
9188 (setq xref (list (system-name))))
9224 (assoc article (gnus-data-list nil)))
9245 (list (cdr art-group)))))
9248 (let ((marks (if (gnus-group-auto-expirable-p to-group)
9273 (when (eq (gnus-article-mark-to-type (cdar marks)) 'list)
9279 ;; then we have to add the mark to the list.
9288 to-group (cdar marks) (list to-article) info)))
9292 to-group (list (list (list to-article) 'add to-marks))))
9313 (assoc article (gnus-data-list nil)))
9333 (gnus-set-mode-line 'summary)))
9382 (list current-prefix-arg
9396 (list (intern method) ""))
9501 ;; this group for `gnus-list-of-read-articles'
9505 (gnus-list-of-read-articles gnus-newsgroup-name))
9521 ;; The list of articles that weren't expired is returned.
9532 ;; We go through the old list of expirable, and mark all
9543 (assoc article (gnus-data-list nil)))
9579 ;; Compute the list of articles to delete.
9601 (assoc article (gnus-data-list nil))))))
9609 (gnus-set-mode-line 'summary)
9662 (let ((mbl mml-buffer-list))
9663 (setq mml-buffer-list nil)
9666 (let ((mbl1 mml-buffer-list))
9667 (setq mml-buffer-list mbl)
9668 (set (make-local-variable 'mml-buffer-list) mbl1))
9682 (kill-local-variable 'mml-buffer-list)))
9778 (list
9822 ;; Select next unread article. If auto-select-same mode, should
9824 (gnus-summary-next-article t (and gnus-auto-select-same
9875 (gnus-set-mode-line 'summary)
9949 ARTICLE can also be a list of articles."
9950 (interactive (list (gnus-summary-article-number)))
9951 (let ((articles (if (listp article) article (list article))))
9962 ARTICLE can also be a list of articles."
9963 (let ((articles (if (listp article) article (list article))))
9972 (interactive (list (gnus-summary-article-number)))
9997 (interactive (list (gnus-summary-article-number)))
10041 If NO-EXPIRE, auto-expiry will be inhibited."
10048 (not (memq mark (list gnus-unread-mark gnus-spam-mark
10064 (gnus-set-mode-line 'summary)
10080 ;; Check for auto-expiry.
10081 (when (and gnus-newsgroup-auto-expire
10082 (memq mark gnus-auto-expirable-marks))
10111 (gnus-add-to-sorted-list gnus-newsgroup-marked
10115 (gnus-add-to-sorted-list gnus-newsgroup-spam-marked
10119 (gnus-add-to-sorted-list gnus-newsgroup-dormant
10123 (gnus-add-to-sorted-list gnus-newsgroup-unreads
10147 If NO-EXPIRE, auto-expiry will be inhibited."
10151 ;; If no mark is given, then we check auto-expiring.
10155 gnus-newsgroup-auto-expire
10156 (memq mark gnus-auto-expirable-marks))
10250 (gnus-add-to-sorted-list gnus-newsgroup-expirable article)
10282 (gnus-add-to-sorted-list gnus-newsgroup-marked article)))
10285 (gnus-add-to-sorted-list gnus-newsgroup-spam-marked
10289 (gnus-add-to-sorted-list gnus-newsgroup-dormant article)))
10292 (gnus-add-to-sorted-list gnus-newsgroup-unreads article))))
10333 (gnus-summary-mark-forward n gnus-del-mark gnus-inhibit-user-auto-expire))
10341 (- n) gnus-del-mark gnus-inhibit-user-auto-expire))
10506 (not gnus-newsgroup-auto-expire)
10521 ;; have to do when using auto-expiry or adaptive scoring.
10535 (gnus-set-mode-line 'summary))
10578 (eq gnus-auto-select-next 'quietly))
10632 "Return a list of all articles in the current thread.
10636 (data (gnus-data-find-list article))
10665 ;; Return the list of articles.
10674 (gnus-newsgroup-threads (list (gnus-id-to-thread (gnus-root-id id)))))
10946 (gnus-set-mode-line 'summary))
11093 (gnus-set-mode-line 'summary)
11275 (mapcar (lambda (el) (list el))
11302 (list (read-string "Save parts of type: "
11365 (setq files (list (cdr (assq 'name (car ps)))))
11406 b (1- e) (list 'gnus-number gnus-reffed-article-number
11412 (gnus-add-to-sorted-list gnus-newsgroup-unreads
11447 (interactive (list (gnus-summary-article-number)))
11574 (let* ((cond (list 'cond))
11576 (list gnus-summary-highlight))
11577 (while list
11578 (setcdr c (cons (list (caar list) (list 'quote (cdar list)))
11581 list (cdr list)))
11582 (gnus-byte-compile (list 'lambda nil cond))))))
11608 "Update the list of read articles in GROUP.
11609 UNREAD is a sorted list."
11628 ;; Compute the ranges of read articles by looking at the list of
11652 group (delq nil (list (if add (list add 'add '(read)))
11653 (if del (list del 'del '(read))))))
11657 ',(delq nil (list
11658 (if del (list del 'add '(read)))
11659 (if add (list add 'del '(read))))))))))
11669 ;; Enter this list into the group info.
11679 (dolist (buffer (buffer-list))
11685 (and (eq major-mode 'gnus-summary-mode)
11690 (not gnus-dead-summary-mode))))
11736 (interactive (list (gnus-summary-article-number)))
11816 (unless (eq major-mode 'gnus-summary-mode)
11837 (gnus-set-mode-line 'summary)
11847 (gnus-merge 'list
11863 (gnus-agent-get-undownloaded-list))
11864 ;; Remove list identifiers from subject
11865 (when gnus-list-identifiers
11866 (gnus-summary-remove-list-identifiers))
11888 ;; Use a compressed range to avoid creating a huge list.
11889 (gnus-range-difference (list gnus-newsgroup-active) old))
11955 (nnmail-fetched-sources (list t))