Lines Matching +refs:ps +refs:del
459 (defcustom gnus-del-mark ?r
460 "*Mark used for del'd articles."
611 (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
898 (defcustom gnus-ps-print-hook nil
899 "*A hook run before ps-printing something from Gnus."
2774 (let ((ps perms)
2776 (while ps
2780 (caar ps)
2794 (nth 1 (car ps))
2798 (setq ps (cdr ps)))
5708 (del (gnus-remove-from-range (gnus-copy-sequence old) list))
5713 (when del
5714 (push (list del 'del (list (cdr type))) delta-marks))))
5919 (gnus-request-set-mark ,group (list (list ',range 'del '(read))))
7914 (list gnus-del-mark gnus-read-mark gnus-ancient-mark
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)))))
9931 (gnus-summary-update-mark gnus-del-mark 'unread)))))
10051 (mark (or mark gnus-del-mark)))
10153 (setq mark gnus-del-mark))
10247 (let ((mark (or mark gnus-del-mark)))
10333 (gnus-summary-mark-forward n gnus-del-mark gnus-inhibit-user-auto-expire))
10341 (- n) gnus-del-mark gnus-inhibit-user-auto-expire))
10403 (gnus-summary-mark-article article gnus-del-mark))
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)))))
11646 (let ((del (gnus-remove-from-range (gnus-info-read info) read))
11648 (when (or add del)
11653 (if del (list del 'del '(read))))))
11658 (if del (list del 'add '(read)))
11659 (if add (list add 'del '(read))))))))))
11769 '((read gnus-del-mark "d")