Lines Matching +defs:face +defs:or +defs:list
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
47 (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
48 (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
67 If an unread article in the group refers to an older, already read (or
95 If the root of a thread has expired or been read in a previous
104 `dummy' or `empty'.
155 Useful functions to put in this list include:
206 whether it is read or not."
246 This can either be a regular expression or list of regular expressions
261 `gnus-summary-show-thread' by hand or select an article."
265 (not (or (consp value) (functionp value))))
309 e.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or
332 the first unseen article), `unseen-or-unread' (place point on the subject
333 line of the first unseen article or, if all article have been seen, on the
334 subject line of the first unread article), or a function to be called to
342 (const unseen-or-unread)))
378 NOTE: The list of unfetched articles will always be nil when plugged
379 and, when unplugged, a subset of the undownloaded article list."
437 :type '(repeat (choice (list :value (fun) function)
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."
637 list of parameters to that command."
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
767 Some functions you can use are `+', `max', or `min'."
792 :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
857 (list 'gnus-highlight-selected-summary)
876 (list 'gnus-summary-highlight-line)
888 The hook is intended to mark an article as read (or unread)
904 "*A hook called after an article is moved, copied, respooled, or crossposted."
929 (defcustom gnus-summary-selected-face 'gnus-summary-selected
932 :type 'face)
946 (or (eq mark gnus-dormant-mark)
950 (or (eq mark gnus-dormant-mark)
953 ((or (eq mark gnus-dormant-mark)
976 A list of (FORM . FACE) pairs. When deciding how a a particular
978 of the face field after the first true form is used. You can change
979 how those summary lines are displayed, by editing the face field.
992 face)))
1034 :type list
1061 (repeat (list (regexp :tag "Highlight regexp")
1086 "Function to be called to alter the list of articles to be selected."
1122 supply the MIME-Version header or deliberately strip it from the mail.
1180 (?s gnus-tmp-subject-or-nil ?s)
1184 (?a (or (car (funcall gnus-extract-address-components gnus-tmp-from))
1193 (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
1209 (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)
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.")
1419 "A list of variables that have separate values in different newsgroups.
1420 A list of newsgroup (summary buffer) local variables, or cons of
1449 ;; eval-and-compile about all of the declarations or evaluate the
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))))))
1549 (replace-match (or newtext ""))))
1724 [follow-link] mouse-face
1882 "M" gnus-mailing-list-insinuate
1900 "f" gnus-article-display-x-face
1925 "l" gnus-article-hide-list-identifiers
1942 "x" gnus-article-display-x-face
1943 "d" gnus-article-display-face
2081 ;; and make a pane (or submenu) for each one.
2111 (list
2142 ["List identifiers" gnus-article-hide-list-identifiers t]
2186 ["Show X-Face" gnus-article-display-x-face t]
2206 (sort (if (fboundp 'coding-system-list)
2207 (coding-system-list)
2323 ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
2362 ["Send a message (mail or news)" gnus-summary-post-news
2364 '(:help "Compose a new message (mail or news)"))]
2450 ["Next or process marked articles" gnus-summary-limit-to-articles t]
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
2593 (repeat :tag "User defined list" gmm-tool-bar-item)
2603 :visible (or (not gnus-agent)
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
2690 See `gmm-tool-bar-from-list' for the format of the list."
2691 :type 'gmm-tool-bar-zap-list
2705 (or (not gnus-summary-tool-bar-map) force))
2713 (map (gmm-tool-bar-from-list gnus-summary-tool-bar
2714 gnus-summary-tool-bar-zap-list
2751 (list
2754 (list
2765 (list (car header))
2773 (list (caar ts))
2781 (list
2784 (if (or (string= (nth 1 header)
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))))))))
2860 (turn-on-gnus-mailing-list-mode)
2874 ;; Use the value from the list.
2931 (defmacro gnus-data-find-list (number &optional data)
2932 `(let ((bdata ,(or data 'gnus-newsgroup-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))
2952 (if (not (or data
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)
2993 (or gnus-newsgroup-data-reverse
2998 (defun gnus-data-update-list (data offset)
3006 "Say whether this article is a pseudo article or not."
3010 "Say whether this article is a sparse article or not."
3014 "Say whether this article is a sparse article or not."
3018 "Say whether this article is a parent or not."
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))
3042 "Say whether this article is intangible or not."
3046 "Say whether ARTICLE is read or not."
3047 (not (or (memq article gnus-newsgroup-marked)
3061 (or (get-text-property (point) 'gnus-number)
3067 ,(or number '(gnus-summary-article-number)))))
3075 ,(or number '(gnus-summary-article-number))))))
3080 ,(or number '(gnus-summary-article-number)))))
3085 ,(or number '(gnus-summary-article-number)))))
3089 "Return current subject string or nil if nothing."
3101 `(or (cdr (assq ,(or number '(gnus-summary-article-number))
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)))
3137 (not (or (= mark gnus-unread-mark)
3157 (t (or (cdr (assq ,number gnus-newsgroup-reads))
3221 (let ((table (or (copy-sequence standard-display-table)
3233 ;; We nix out any glyphs 127 through 255, or 127 through 159 in
3340 "Say whether ARTICLE is unread or not."
3345 (if (not (setq article (or article (gnus-summary-article-number))))
3351 (if (not (setq article (or article (gnus-summary-article-number))))
3354 (not (cdr (gnus-data-find-list article)))))
3357 (when (or n
3408 (setq pos (list (cons 'unread
3430 (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
3433 (or (car (funcall gnus-extract-address-components from))
3436 (defun gnus-summary-from-or-to-or-newsgroups (header gnus-tmp-from)
3443 (or
3462 gnus-tmp-expirable gnus-tmp-subject-or-nil
3470 (gnus-tmp-score (or gnus-tmp-score gnus-summary-default-score 0))
3472 (if (or (null gnus-summary-default-score)
3505 (or (and (string-match "^\".+\"" gnus-tmp-from)
3552 (if (or (null gnus-summary-default-score)
3597 (let ((c (or (mail-header-chars head) -1)))
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.
3633 (or (gnus-summary-read-group-1
3669 (gnus-kill-or-deaden-summary kill-buffer))
3702 (gnus-kill-or-deaden-summary kill-buffer))
3745 ;; articles or some excluded dormants, we include these in the
3762 (gnus-kill-or-deaden-summary kill-buffer))
3770 (gnus-kill-or-deaden-summary kill-buffer))
3781 (or (memq art gnus-newsgroup-undownloaded)
3814 ((eq gnus-auto-select-subject 'unseen-or-unread)
3815 (gnus-summary-first-unseen-or-unread-subject))
3830 ;; Generate the buffer, either with threads or without.
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))
4067 (concat (or (mail-header-xref (car (symbol-value id-dep)))
4069 (or (mail-header-xref header) "")))
4088 (setq ref-dep (intern (or parent-id "none") dependencies))
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))
4139 (nth 3 relation) "" (or (nth 4 relation) "")
4141 (or (nth 2 relation) "") 0 0 "")
4246 (or found (beginning-of-line 2)))
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
4352 (or (gnus-parent-id
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)))
4622 (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread)))
4624 (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207"
4672 (or (car extract) (cadr extract) ""))
4676 (or (car extract) (cadr extract) ""))))
4708 (> (or (cdr (assq (mail-header-number h1)
4711 (or (cdr (assq (mail-header-number h2)
4736 (gnus-thread-total-score-1 (list thread)))))
4746 (message-flatten-list thread))))
4764 (message-flatten-list thread)
4773 (or (append
4777 (list (or (cdr (assq (mail-header-number root)
4780 (list gnus-summary-default-score)
4792 (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
4838 THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])'
4839 or a straight list of headers."
4846 (default-score (or gnus-summary-default-score 0))
4853 gnus-tmp-replied gnus-tmp-subject-or-nil
4863 ;; If this is a straight (sic) list of headers, then a
4872 (while (or threads stack gnus-tmp-new-adopts new-roots)
4875 (or (not stack)
4878 (or gnus-tmp-new-adopts new-roots))
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)))
4974 (< (or (cdr (assq number gnus-newsgroup-scored))
4984 (gnus-add-to-sorted-list
5009 gnus-tmp-subject-or-nil
5038 gnus-tmp-score (or (cdr (assq number gnus-newsgroup-scored))
5041 (if (or (null gnus-summary-default-score)
5075 (or (and (string-match "^\".+\"" gnus-tmp-from)
5089 (or gnus-sum-thread-tree-root subject))
5091 (or gnus-sum-thread-tree-false-root subject))
5093 (or gnus-sum-thread-tree-single-indent subject))))
5123 (push (list (max 0 gnus-tmp-level)
5158 (< (or (cdr (assq number gnus-newsgroup-scored))
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))
5218 (and (or (and
5246 (or (and entry (not (eq (car entry) t))) ; Either it's active...
5270 gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
5275 ((not (zerop (or (car-safe read-all) 0)))
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))
5391 (or gnus-newsgroup-headers t)))))
5393 (defun gnus-compute-unseen-list ()
5398 (gnus-inverse-list-range-intersection
5422 (let ((article (or article number)))
5465 ;; Select all articles if `read-all' is non-nil, or if there
5467 (if (or read-all
5474 ;; articles in the group, or (if that's nil), the
5476 (or
5483 (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
5484 (scored (length scored-list))
5497 ((and (or (<= scored marked) (= scored number))
5531 (if (or (null select) (zerop select))
5535 (setq articles (sort scored-list '<))
5576 (or (cadr (assq mark gnus-article-special-mark-lists))
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)))
5633 (when (or (not (consp (setq article (pop articles))))
5644 (setcdr marks (list (cdr marks))))
5647 (or (and (consp (car articles))
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))
5691 (if (or (not (consp (car arts)))
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))))
5739 "Set the mode line of the article or summary buffers.
5758 (gnus-tmp-article-number (or gnus-current-article 0))
5802 (gnus-mode-line-buffer-identification (list mode-string)))
5806 "Go through the HEADERS list and add all Xrefs to a hash table.
5807 The resulting hash table is returned, or nil if no Xrefs were found."
5852 (or (gnus-methods-equal-p
5860 (or (not (eq gnus-use-cross-reference t))
5889 (setq active (or (gnus-activate-group group) active)))
5890 (when (or (> id (cdr active))
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))))
5951 (or dependencies
5972 ;; do not begin with 2 or 3.
5991 (or (and (search-forward "\n.\n" nil t)
6105 ;; Goes through the xover lines and returns a list of vectors
6110 Return a list of headers that match SEQUENCE (see
6118 (dependencies (or dependencies gnus-newsgroup-dependencies))
6135 (while (and (or sequence allp)
6142 (when (and (or allp
6158 (if (or (not also-fetch-heads)
6173 (or (not gnus-use-cross-reference)
6182 (when (or (and (not (eobp))
6192 OLD-HEADER can either be a header or a line number to insert
6219 ;; Remove list identifiers from subject.
6220 (when gnus-list-identifiers
6221 (let ((gnus-newsgroup-headers (list header)))
6222 (gnus-summary-remove-list-identifiers)))
6235 ;; article if ID is a number -- so that the next `P' or `N'
6236 ;; command will fetch the previous (or next) article even
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))))))
6357 (article (or article (gnus-summary-article-number)))
6358 (data (gnus-data-find-list article))
6361 (or (not gnus-summary-check-current)
6393 (article (or article (gnus-summary-article-number)))
6394 (data (gnus-data-find-list article (gnus-data-list 'rev)))
6397 (or (not gnus-summary-check-current)
6429 (article (or article (gnus-summary-article-number)))
6430 (articles (gnus-data-list backward))
6431 (arts (gnus-data-find-list article articles))
6433 (when (or (not gnus-summary-check-current)
6438 (and (or (not unread)
6469 If `gnus-auto-center-summary' is nil, or the article buffer isn't
6489 ;; possible valid number, or the second line from the top,
6497 ;; visible, or revert to using TOP-POS.
6532 ;; This function returns a list of article numbers based on the
6535 (defun gnus-list-of-unread-articles (group)
6537 (active (or (gnus-active group) (gnus-activate-group group)))
6547 (or (< (car read) (car active))
6548 (progn (setq read (list read))
6551 ;; `read' is a list of ranges.
6552 (when (/= (setq nlast (or (and (numberp (car read)) (car read))
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))
6590 (active (or (gnus-active group) (gnus-activate-group group)))
6600 (or (< (car read) (car active))
6601 (progn (setq read (list read))
6604 ;; `read' is a list of ranges.
6605 (when (/= (setq nlast (or (and (numberp (car read)) (car read))
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))))
6681 (or found 0)))
6715 (gnus-list-range-intersection
6720 (setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
6808 (unless (or quit-config
6867 (when (or no-questions
6869 (gnus-y-or-n-p "Discard changes to this group and exit? "))
6930 (if (or (eq (cdr quit-config) 'article)
6998 (defun gnus-kill-or-deaden-summary (buffer)
6999 "Kill or deaden the summary BUFFER."
7040 (list
7044 (mapcar (lambda (file) (list file))
7085 (or target-group
7102 (if (and (or (eq t unreads)
7125 Returns the article selected or nil if there are no matching articles."
7133 ((not (or unread undownloaded unseen))
7141 (or (memq num gnus-newsgroup-unfetched)
7142 (not (or (and unread
7158 (l (delq nil (list r d s))))
7160 (concat r "," d ", or" s))
7162 (concat (car l) ", or" (cadr l)))
7231 (if (or (numberp force) (vectorp force)) force)
7294 (let ((article (or article (gnus-summary-article-number)))
7295 (all-headers (not (not all-headers))) ;Must be t or nil.
7302 (if (or (and gnus-single-article-buffer
7303 (or (null gnus-current-article)
7310 (or (null gnus-current-article)
7331 (gnus-buttonized-mime-types (append (list "multipart/signed"
7352 (or (gnus-summary-display-article (gnus-summary-article-number))
7385 ((or (not gnus-auto-select-next)
7388 ((or (eq gnus-auto-select-next 'quietly)
7445 (if (or (not group)
7456 (or (not (eq gnus-summary-goto-unread 'never))
7471 (or (not (eq gnus-summary-goto-unread 'never))
7503 (if (or (null gnus-current-article)
7511 (setq endp (or (gnus-article-next-page lines)
7538 (if (or (null gnus-current-article)
7558 (defun gnus-summary-prev-page-or-article (&optional lines)
7566 "Scroll up (or down) one line current article.
7567 Argument LINES specifies lines to be scrolled up (or down if negative)."
7582 "Scroll down (or up) one line current article.
7583 Argument LINES specifies lines to be scrolled down (or up if negative)."
7638 (defun gnus-summary-first-unseen-or-unread-subject ()
7639 "Place the point on the subject line of the first unseen article or,
7700 (or (gnus-data-read-p (car data))
7711 (let ((article (gnus-data-number (car (gnus-data-list t)))))
7716 "Fetch ARTICLE (article number or Message-ID) and display it if it exists.
7721 (list
7723 "Article number or Message-ID: "
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
7798 (or header "subject") subject 'all nil nil
7809 (list (read-string (if current-prefix-arg
7816 "Limit the summary buffer to articles that are older than (or equal) AGE days.
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.
7936 not marked with MARKS. MARKS can either be a string of marks or a
7937 list of marks.
7943 (append marks nil))) ; Transform to list.
7954 "Limit to articles with score at or above SCORE."
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))
8029 ;; Find all articles that are either not dormant or have
8032 (when (or (not (= (gnus-data-mark d) gnus-dormant-mark))
8071 (unless (or (memq article gnus-newsgroup-dormant)
8085 (data (gnus-data-find-list (gnus-summary-article-number)))
8093 ;; Try to return to the article you were at, or one in the
8123 (when (or (eq gnus-fetch-old-headers 'some)
8131 (or
8135 (if (or (<= (length (cdr thread)) 1)
8153 (when (or (eq gnus-fetch-old-headers 'some)
8170 (if (or gnus-inhibit-limiting
8222 (or
8229 (and (or (eq gnus-fetch-old-headers 'some)
8246 (or (cdr (assq number gnus-newsgroup-scored))
8347 (if (or (not ref)
8374 (list (min
8382 (gnus-retrieve-headers (list gnus-newsgroup-end)
8415 (or (not (gnus-summary-article-sparse-p
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))))
8499 (when (setq to-address (or (gnus-fetch-field "reply-to")
8503 (list (cons 'to-address
8512 (or (search-forward "\n\n" nil t) (point)))
8546 (list (cons 'to-group ogroup))))
8602 (list (read-string
8610 (setq regexp (or gnus-last-search-regexp ""))
8618 (signal 'search-failed (list regexp)))))
8623 (list (read-string
8704 "Return a list of all articles that match REGEXP on HEADER.
8706 fetched headers for, whether they are displayed or not."
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
8730 (or (cdr (assq ',(cdr header) (mail-header-extra h)))
8738 (gnus-data-find-list
8740 (gnus-data-list backward))))
8741 (when (and (or (not unread) ; We want all articles...
8755 If HEADER is an empty string (or nil), the match is done on the entire
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
8887 defined in `gnus-summary-show-article-charset-alist', or the charset
8897 (or (cdr (assq arg gnus-summary-show-article-charset-alist))
8969 (cond ((or (not (numberp arg))
8977 "Show the headers if they are hidden, or hide them if they are shown.
8990 (or (not (looking-at "[^ \t\n]+:"))
9096 ACTION can be either `move' (the default), `crosspost' or `copy'."
9132 ;; we needn't render or mark the article.
9143 (setq to-method (or select-method
9154 (or (car select-method) to-newsgroup) articles)
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)))))
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)))
9370 which means that it will be put in some mail newsgroup or other
9382 (list current-prefix-arg
9385 (symbol-name (or gnus-summary-respool-default-method
9396 (list (intern method) ""))
9419 (or (file-readable-p file)
9501 ;; this group for `gnus-list-of-read-articles'
9505 (gnus-list-of-read-articles gnus-newsgroup-name))
9512 (or (gnus-group-find-parameter gnus-newsgroup-name 'expiry-target)
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)))
9554 (or gnus-expert-user
9555 (gnus-yes-or-no-p
9579 ;; Compute the list of articles to delete.
9584 (not (gnus-yes-or-no-p
9601 (assoc article (gnus-data-list nil))))))
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)))
9684 ,(or (mail-header-references gnus-current-headers) "")
9728 (or (message-fetch-field "references") "") " ")))
9756 (set-buffer (or buffer gnus-summary-buffer))
9778 (list
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)))
9973 (when (or (not (get-buffer gnus-article-buffer))
9997 (interactive (list (gnus-summary-article-number)))
10048 (not (memq mark (list gnus-unread-mark gnus-spam-mark
10051 (mark (or mark gnus-del-mark)))
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
10158 (let ((article (or article (gnus-summary-article-number)))
10166 (if (not (if (or (= mark gnus-unread-mark)
10247 (let ((mark (or mark gnus-del-mark)))
10250 (gnus-add-to-sorted-list gnus-newsgroup-expirable article)
10265 (let ((mark (or mark gnus-ticked-mark)))
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))))
10370 (when (or (gnus-unread-mark-p mark)
10373 (or new-mark gnus-read-mark)))))
10378 (when (or (gnus-unread-mark-p mark)
10381 (or new-mark gnus-read-mark)))))
10400 (when (or all
10412 (or gnus-summary-default-score 0)))
10442 (or gnus-summary-default-score 0)))
10497 (when (or quietly
10500 (gnus-y-or-n-p
10508 (or (not gnus-use-cache)
10521 ;; have to do when using auto-expiry or adaptive scoring.
10547 (when (or all (gnus-summary-find-prev))
10559 (when (or all (gnus-summary-find-next))
10576 ;; Select next newsgroup or exit.
10632 "Return a list of all articles in the current thread.
10635 (let* ((article (or article (gnus-summary-article-number)))
10636 (data (gnus-data-find-list article))
10652 (when (or (not top-subject)
10665 ;; Return the list of articles.
10674 (gnus-newsgroup-threads (list (gnus-id-to-thread (gnus-root-id id)))))
10681 "Make the current article child of the marked (or previous) article.
10684 is non-nil or the Subject: of both articles are the same."
10730 (let ((current (or (gnus-summary-article-number) gnus-newsgroup-end)))
10768 (if (or (consp gnus-thread-hide-subtree)
10783 (apply 'gnus-or (mapcar predicate
10797 (when (or (not predicate)
10814 ;; Go forward until either the buffer ends or the subthread
10817 (or (zerop (gnus-summary-next-thread 1 t))
10829 "Go to the same level (or less) next thread.
10831 Return the article number moved to, or nil if moving was impossible."
11052 ;; Whether to save decoded articles or raw articles.
11106 (gnus-save-all-headers (or headers gnus-save-all-headers)))
11275 (mapcar (lambda (el) (list el))
11281 (if (or (string= to-newsgroup "")
11286 (or (gnus-active to-newsgroup)
11288 (if (gnus-y-or-n-p (format "No such group: %s. Create it? "
11290 (or (and (gnus-request-create-group to-newsgroup to-method)
11302 (list (read-string "Save parts of type: "
11303 (or (car gnus-summary-save-parts-type-history)
11317 (let ((handles (or gnus-article-mime-handles
11337 (or
11365 (setq files (list (cdr (assq 'name (car ps)))))
11367 (string= (or action "1")
11368 (or (cdr (assq 'action (cadr ps))) "2")))
11395 (setq after-article (or (cdr (assq 'article (car pslist)))
11402 ": " (or (cdr (assq 'execute (car pslist))) "") "\n")
11406 b (1- e) (list 'gnus-number gnus-reffed-article-number
11407 gnus-mouse-face-prop gnus-mouse-face))
11412 (gnus-add-to-sorted-list gnus-newsgroup-unreads
11447 (interactive (list (gnus-summary-article-number)))
11463 (or
11472 (setq header (or header (gnus-id-to-header id)))
11474 (setq header (or header (gnus-summary-article-header id))))
11495 (if (or (not where)
11534 (when gnus-summary-selected-face
11539 (from (if (get-text-property beg gnus-mouse-face-prop)
11541 (or (next-single-property-change
11542 beg gnus-mouse-face-prop nil end)
11547 (or (next-single-property-change
11548 from gnus-mouse-face-prop nil end)
11550 ;; If no mouse-face prop on line we will have to = from = end,
11562 'face gnus-summary-selected-face))))))
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))))))
11587 (article (or (gnus-summary-article-number) gnus-current-article))
11588 (score (or (cdr (assq article
11591 (mark (or (gnus-summary-article-mark) gnus-unread-mark))
11599 (let ((face (funcall (gnus-summary-highlight-line-0))))
11600 (unless (eq face (get-text-property beg 'face))
11602 beg (gnus-point-at-eol) 'face
11603 (setq face (if (boundp face) (symbol-value face) face)))
11605 (funcall gnus-summary-highlight-line-function article face))))))
11608 "Update the list of read articles in GROUP.
11609 UNREAD is a sorted list."
11610 (let* ((active (or gnus-newsgroup-active (gnus-active group)))
11615 (if (or (not info) (not active))
11628 ;; Compute the ranges of read articles by looking at the list of
11648 (when (or add del)
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))
11695 (map-y-or-n-p
11707 (or gnus-newsgroup-ephemeral-ignored-charsets
11713 (or gnus-newsgroup-ephemeral-charset
11736 (interactive (list (gnus-summary-article-number)))
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))