Lines Matching +defs:old +defs:ps +defs:output
65 (defcustom gnus-fetch-old-headers nil
66 "*Non-nil means that Gnus will try to build threads by grabbing old headers.
68 just marked as read) article, the old article will not normally be
70 will attempt to grab the headers to the old articles, and thereby
74 of old headers will be fetched. If it has the value `invisible', all
75 old headers will be fetched, but none will be displayed.
87 "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
88 If t, fetch all the available old headers."
898 (defcustom gnus-ps-print-hook nil
899 "*A hook run before ps-printing something from Gnus."
1359 "List of `gnus-fetch-old-headers' articles in the current newsgroup.")
1715 "|" gnus-summary-pipe-output
1806 "o" gnus-summary-insert-old-articles
2012 "p" gnus-summary-pipe-output
2265 ["Pipe through a filter..." gnus-summary-pipe-output t]
2530 ["See old articles" gnus-summary-insert-old-articles t]
2774 (let ((ps perms)
2776 (while ps
2780 (caar ps)
2794 (nth 1 (car ps))
2798 (setq ps (cdr ps)))
4151 (defun gnus-build-old-threads ()
4152 ;; Look at all the articles that refer back to old articles, and
4358 (old (car thread)))
4367 (setcar thread old)
4374 old-pos current thread data)
4379 (setq old-pos (gnus-point-at-bol))
4417 (if line nil current) data (- (point) old-pos))
4933 ;; We remember that we probably want to output a dummy
4990 ;; We may have an old dummy line to output before this
5216 ;; We might want to fetch old headers, but
5219 (not (eq gnus-fetch-old-headers 'some))
5220 (not (numberp gnus-fetch-old-headers)))
5222 gnus-fetch-old-headers))))
5366 (when (and gnus-fetch-old-headers
5368 (if (eq gnus-fetch-old-headers 'invisible)
5370 (gnus-build-old-threads)))
5707 (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
5708 (del (gnus-remove-from-range (gnus-copy-sequence old) list))
5710 (gnus-copy-sequence list) old)))
5978 ;; a case (which basically was the old function) is actually
6190 (defun gnus-summary-insert-subject (id &optional old-header use-old-header)
6194 (let* ((line (and (numberp old-header) old-header))
6195 (old-header (and (vectorp old-header) old-header))
6196 (header (cond ((and old-header use-old-header)
6197 old-header)
6209 old-header)
6211 (setq d (gnus-data-find (mail-header-number old-header))))
6223 (when old-header
6224 (mail-header-set-number header (mail-header-number old-header)))
6924 ;; to the old summary buffer when using a single
7323 'old))))
7571 (when (eq (gnus-summary-select-article nil nil 'pseudo) 'old)
8080 ;; We use the new limit, so we push the old limit on the stack.
8123 (when (or (eq gnus-fetch-old-headers 'some)
8124 (eq gnus-fetch-old-headers 'invisible)
8125 (numberp gnus-fetch-old-headers)
8128 ;; Deal with old-fetched headers and sparse threads.
8136 (eq gnus-fetch-old-headers 'invisible))
8153 (when (or (eq gnus-fetch-old-headers 'some)
8154 (eq gnus-fetch-old-headers 'invisible)
8155 (numberp gnus-fetch-old-headers)
8168 fetch-old-headers verbiage, and so on."
8173 (not (eq gnus-fetch-old-headers 'some))
8174 (not (numberp gnus-fetch-old-headers))
8175 (not (eq gnus-fetch-old-headers 'invisible))
8227 ;; If this is "fetch-old-headered" and there is no
8229 (and (or (eq gnus-fetch-old-headers 'some)
8230 (numberp gnus-fetch-old-headers))
8233 ;; If this is "fetch-old-headered" and `invisible', then
8235 (and (eq gnus-fetch-old-headers 'invisible)
8363 If LIMIT (the numerical prefix), fetch that many old headers instead
8369 (unless (eq gnus-fetch-old-headers 'invisible)
8839 (interactive (list (ps-print-preprint current-prefix-arg)))
8845 (ps-despool filename))
8862 (let ((ps-left-header
8872 (ps-right-header
8877 (gnus-run-hooks 'gnus-ps-print-hook)
8880 (ps-spool-buffer-with-faces)
8881 (ps-spool-buffer)))))
9532 ;; We go through the old list of expirable, and mark all
9978 ;; Remove old bookmark, if one exists.
9998 ;; Remove old bookmark, if one exists.
10094 (old-mark (gnus-summary-article-mark article)))
10097 (if (eq mark old-mark)
10159 (old-mark (gnus-summary-article-mark article)))
10162 (if (eq mark old-mark)
10236 ;; Replace the old mark with the new mark.
10854 If SILENT, don't output messages."
11096 (defun gnus-summary-pipe-output (&optional arg headers)
11361 (let ((ps (setq pslist (sort pslist 'gnus-pseudos<)))
11363 (while ps
11364 (setq action (cdr (assq 'action (car ps))))
11365 (setq files (list (cdr (assq 'name (car ps)))))
11366 (while (and ps (cdr ps)
11368 (or (cdr (assq 'action (cadr ps))) "2")))
11369 (push (cdr (assq 'name (cadr ps))) files)
11370 (setcdr ps (cddr ps)))
11375 (when (assq 'execute (car ps))
11376 (setcdr (assq 'execute (car ps))
11386 (setq ps (cdr ps)))))
11556 ;; Move old overlay.
11856 (when (and gnus-fetch-old-headers
11858 (if (eq gnus-fetch-old-headers 'invisible)
11860 (gnus-build-old-threads)))
11877 (defun gnus-summary-insert-old-articles (&optional all)
11878 "Insert all old articles in this group.
11883 (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
11889 (gnus-range-difference (list gnus-newsgroup-active) old))
11944 (message "No old news.")
11946 (gnus-summary-limit (gnus-sorted-nunion old older))))
11953 (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
11954 (old-active gnus-newsgroup-active)
11960 (while (> i (cdr old-active))
11968 (gnus-summary-limit (gnus-sorted-nunion old new))))