Lines Matching +defs:process +defs:mark
111 the parent and mark all the step-children as such.
444 (defcustom gnus-unread-mark ? ;Whitespace
449 (defcustom gnus-ticked-mark ?!
454 (defcustom gnus-dormant-mark ??
459 (defcustom gnus-del-mark ?r
464 (defcustom gnus-read-mark ?R
469 (defcustom gnus-expirable-mark ?E
474 (defcustom gnus-killed-mark ?K
479 (defcustom gnus-spam-mark ?$
485 (defcustom gnus-souped-mark ?F
490 (defcustom gnus-kill-file-mark ?X
495 (defcustom gnus-low-score-mark ?Y
500 (defcustom gnus-catchup-mark ?C
505 (defcustom gnus-replied-mark ?A
510 (defcustom gnus-forwarded-mark ?F
516 (defcustom gnus-recent-mark ?N
522 (defcustom gnus-cached-mark ?*
527 (defcustom gnus-saved-mark ?S
532 (defcustom gnus-unseen-mark ?.
538 (defcustom gnus-no-mark ? ;Whitespace
539 "*Mark used for articles that have no other secondary mark."
544 (defcustom gnus-ancient-mark ?O
549 (defcustom gnus-sparse-mark ?Q
554 (defcustom gnus-canceled-mark ?G
559 (defcustom gnus-duplicate-mark ?M
564 (defcustom gnus-undownloaded-mark ?-
570 (defcustom gnus-downloaded-mark ?+
575 (defcustom gnus-downloadable-mark ?%
580 (defcustom gnus-unsendable-mark ?=
585 (defcustom gnus-score-over-mark ?+
586 "*Score mark used for articles with high scores."
590 (defcustom gnus-score-below-mark ?-
591 "*Score mark used for articles with low scores."
595 (defcustom gnus-empty-thread-mark ? ;Whitespace
600 (defcustom gnus-not-empty-thread-mark ?=
611 (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
612 gnus-low-score-mark gnus-ancient-mark gnus-read-mark
613 gnus-souped-mark gnus-duplicate-mark)
620 "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
693 (defcustom gnus-summary-mark-below 0
856 (defcustom gnus-visual-mark-article-hook
886 (defcustom gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read)
888 The hook is intended to mark an article as read (or unread)
937 '(((eq mark gnus-canceled-mark)
946 (or (eq mark gnus-dormant-mark)
947 (eq mark gnus-ticked-mark)))
950 (or (eq mark gnus-dormant-mark)
951 (eq mark gnus-ticked-mark)))
953 ((or (eq mark gnus-dormant-mark)
954 (eq mark gnus-ticked-mark))
956 ((and (> score default-high) (eq mark gnus-ancient-mark))
958 ((and (< score default-low) (eq mark gnus-ancient-mark))
960 ((eq mark gnus-ancient-mark)
962 ((and (> score default-high) (eq mark gnus-unread-mark))
964 ((and (< score default-low) (eq mark gnus-unread-mark))
966 ((eq mark gnus-unread-mark)
988 mark: The article's mark.
1150 (defvar gnus-newsgroup-process-stack nil)
1292 "List of ranges of articles that have been through the scoring process.")
1403 (gnus-summary-mark-below . global)
1407 gnus-newsgroup-sparse gnus-newsgroup-process-stack
1666 "d" gnus-summary-mark-as-read-forward
1667 "D" gnus-summary-mark-as-read-backward
1668 "E" gnus-summary-mark-as-expirable
1669 "\M-u" gnus-summary-clear-mark-forward
1670 "\M-U" gnus-summary-clear-mark-backward
1676 "#" gnus-summary-mark-as-processable
1689 "\C-w" gnus-summary-mark-region-as-read
1691 "?" gnus-summary-mark-as-dormant
1756 (gnus-define-keys (gnus-summary-mark-map "M" gnus-summary-mode-map)
1759 "d" gnus-summary-mark-as-read-forward
1760 "r" gnus-summary-mark-as-read-forward
1761 "c" gnus-summary-clear-mark-forward
1762 " " gnus-summary-clear-mark-forward
1763 "e" gnus-summary-mark-as-expirable
1764 "x" gnus-summary-mark-as-expirable
1765 "?" gnus-summary-mark-as-dormant
1768 "#" gnus-summary-mark-as-processable
1777 "P" gnus-uu-mark-map)
1779 (gnus-define-keys (gnus-summary-mscore-map "V" gnus-summary-mark-map)
1782 "m" gnus-summary-mark-above
1805 "C" gnus-summary-limit-mark-excluded-as-read
1841 "#" gnus-uu-mark-thread
2028 (gnus-define-keys (gnus-uu-mark-map "P" gnus-summary-mark-map)
2029 "p" gnus-summary-mark-as-processable
2032 "v" gnus-uu-mark-over
2033 "s" gnus-uu-mark-series
2034 "r" gnus-uu-mark-region
2036 "R" gnus-uu-mark-by-regexp
2038 "t" gnus-uu-mark-thread
2040 "a" gnus-uu-mark-all
2041 "b" gnus-uu-mark-buffer
2042 "S" gnus-uu-mark-sparse
2043 "k" gnus-summary-kill-process-mark
2044 "y" gnus-summary-yank-process-mark
2045 "w" gnus-summary-save-process-mark
2117 ["Mark above" gnus-summary-mark-above t]
2123 ["Set mark below..." gnus-score-set-mark-below t]
2419 ["Mark as read" gnus-summary-mark-as-read-forward t]
2429 ["Catchup region" gnus-summary-mark-region-as-read
2430 (gnus-mark-active-p)]
2431 ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t])
2434 ["Mark as dormant" gnus-summary-mark-as-dormant t]
2435 ["Remove marks" gnus-summary-clear-mark-forward t]
2436 ["Set expirable mark" gnus-summary-mark-as-expirable t]
2450 ["Next or process marked articles" gnus-summary-limit-to-articles t]
2459 ["Set mark" gnus-summary-mark-as-processable t]
2460 ["Remove mark" gnus-summary-unmark-as-processable t]
2462 ["Mark above" gnus-uu-mark-over t]
2463 ["Mark series" gnus-uu-mark-series t]
2464 ["Mark region" gnus-uu-mark-region (gnus-mark-active-p)]
2465 ["Unmark region" gnus-uu-unmark-region (gnus-mark-active-p)]
2466 ["Mark by regexp..." gnus-uu-mark-by-regexp t]
2468 ["Mark all" gnus-uu-mark-all t]
2469 ["Mark buffer" gnus-uu-mark-buffer t]
2470 ["Mark sparse" gnus-uu-mark-sparse t]
2471 ["Mark thread" gnus-uu-mark-thread t]
2474 ["Kill" gnus-summary-kill-process-mark t]
2475 ["Yank" gnus-summary-yank-process-mark
2476 gnus-newsgroup-process-stack]
2477 ["Save" gnus-summary-save-process-mark t]
2625 (gnus-summary-mark-as-expirable
2629 (gnus-summary-mark-as-spam
2634 (gnus-summary-mark-as-read-forward
2669 (gnus-summary-mark-as-expirable "gnus/close" nil :visible nil)
2856 (make-local-variable 'gnus-summary-mark-positions)
2863 (gnus-update-summary-mark-positions))
2898 (defmacro gnus-data-mark (data)
2901 (defmacro gnus-data-set-mark (data mark)
2902 `(setcar (nthcdr 1 ,data) ,mark))
2920 `(= (nth 1 ,data) gnus-unread-mark))
2923 `(/= (nth 1 ,data) gnus-unread-mark))
2936 (defmacro gnus-data-make (number mark pos header level)
2937 `(list ,number ,mark ,pos ,header ,level))
2939 (defun gnus-data-enter (after-article number mark pos header level offset)
2943 (setcdr data (cons (gnus-data-make number mark pos header level)
3077 (defmacro gnus-summary-article-mark (&optional number)
3078 "Return the mark of article NUMBER."
3079 `(gnus-data-mark (gnus-data-find
3130 (defun gnus-unread-mark-p (mark)
3131 "Say whether MARK is the unread mark."
3132 (= mark gnus-unread-mark))
3134 (defun gnus-read-mark-p (mark)
3135 "Say whether MARK is one of the marks that mark as read.
3137 (not (or (= mark gnus-unread-mark)
3138 (= mark gnus-ticked-mark)
3139 (= mark gnus-spam-mark)
3140 (= mark gnus-dormant-mark)
3141 (= mark gnus-expirable-mark))))
3143 (defmacro gnus-article-mark (number)
3145 This macro should only be used when computing the mark the \"first\"
3147 `gnus-summary-article-mark' should be used to examine the
3150 ((memq ,number gnus-newsgroup-unsendable) gnus-unsendable-mark)
3151 ((memq ,number gnus-newsgroup-downloadable) gnus-downloadable-mark)
3152 ((memq ,number gnus-newsgroup-unreads) gnus-unread-mark)
3153 ((memq ,number gnus-newsgroup-marked) gnus-ticked-mark)
3154 ((memq ,number gnus-newsgroup-spam-marked) gnus-spam-mark)
3155 ((memq ,number gnus-newsgroup-dormant) gnus-dormant-mark)
3156 ((memq ,number gnus-newsgroup-expirable) gnus-expirable-mark)
3158 gnus-ancient-mark))))
3368 (defun gnus-update-summary-mark-positions ()
3378 (gnus-replied-mark ?Z)
3379 (gnus-score-below-mark ?Z)
3380 (gnus-score-over-mark ?Z)
3381 (gnus-undownloaded-mark ?Z)
3397 gnus-replied-mark ?B
3398 gnus-score-below-mark ?C
3399 gnus-score-over-mark ?C
3400 gnus-undownloaded-mark ?D)
3423 (setq gnus-summary-mark-positions pos))))
3464 gnus-tmp-process)
3477 gnus-score-below-mark gnus-score-over-mark)))
3480 (cond (gnus-tmp-process gnus-process-mark)
3482 gnus-cached-mark)
3483 (gnus-tmp-replied gnus-replied-mark)
3485 gnus-forwarded-mark)
3487 gnus-saved-mark)
3489 gnus-recent-mark)
3491 gnus-unseen-mark)
3492 (t gnus-no-mark)))
3495 gnus-undownloaded-mark)
3497 gnus-downloaded-mark)
3499 gnus-no-mark)))
3540 (if (and gnus-summary-mark-below
3542 gnus-summary-mark-below))
3543 ;; This article has a low score, so we mark it as read.
3545 (gnus-summary-mark-article-as-read gnus-low-score-mark))
3546 (when (eq (gnus-summary-article-mark) gnus-low-score-mark)
3548 ;; of a low score, but now it has risen, so we mark it as
3550 (gnus-summary-mark-article-as-unread gnus-unread-mark)))
3551 (gnus-summary-update-mark
3557 gnus-score-below-mark gnus-score-over-mark))
3589 (if (> number 1) gnus-not-empty-thread-mark
3590 gnus-empty-thread-mark)
3724 ;; so we need to update the mark positions as well.
3725 (gnus-update-summary-mark-positions))
4145 (push (cons gnus-reffed-article-number gnus-sparse-mark)
4314 (gnus-article-mark article)
4973 ((and gnus-summary-mark-below
4976 gnus-summary-mark-below)
4986 (push (cons number gnus-low-score-mark)
5000 ;; Compute the mark.
5001 (setq gnus-tmp-unread (gnus-article-mark number))
5046 gnus-score-below-mark gnus-score-over-mark))
5049 gnus-process-mark)
5051 gnus-cached-mark)
5053 gnus-replied-mark)
5055 gnus-forwarded-mark)
5057 gnus-saved-mark)
5059 gnus-recent-mark)
5061 gnus-unseen-mark)
5062 (t gnus-no-mark))
5065 gnus-undownloaded-mark)
5067 gnus-downloaded-mark)
5069 gnus-no-mark))
5147 (let (header number mark)
5157 (when (and gnus-summary-mark-below
5160 gnus-summary-mark-below)
5166 (push (cons number gnus-low-score-mark)
5169 (setq mark (gnus-article-mark number))
5170 (push (gnus-data-make number mark (1+ (point)) header 0)
5175 mark (memq number gnus-newsgroup-replied)
5371 ;; Let the Gnus agent mark articles as read.
5409 gnus-article-mark-lists))
5564 "Uncompress the mark ranges in MARKS."
5574 (defun gnus-article-mark-to-type (mark)
5576 (or (cadr (assq mark gnus-article-special-mark-lists))
5579 (defun gnus-article-unpropagatable-p (mark)
5581 (memq mark gnus-article-unpropagated-mark-lists))
5589 (types gnus-article-mark-lists)
5590 marks var articles article mark mark-type
5594 (setq mark (car marks)
5595 mark-type (gnus-article-mark-to-type mark)
5596 var (intern (format "gnus-newsgroup-%s" (car (rassq mark types)))))
5602 ((eq mark-type 'list)
5626 ((eq mark-type 'tuple)
5638 ((eq mark-type 'range)
5640 ((eq mark 'seen)
5655 "Go through the list of MISSING articles and remove them from the mark lists."
5659 (dolist (elem gnus-article-mark-lists)
5660 (when (eq (gnus-article-mark-to-type (cdr elem)) 'list)
5671 (let ((types gnus-article-mark-lists)
5701 (when (eq (gnus-article-mark-to-type (cdr type)) 'list)
5705 'request-set-mark gnus-newsgroup-name)
5722 (gnus-request-set-mark gnus-newsgroup-name delta-marks))
5832 (defun gnus-mark-xrefs-as-read (from-newsgroup headers unreads)
5833 "Look through all the headers and mark the Xrefs as read."
5919 (gnus-request-set-mark ,group (list (list ',range 'del '(read))))
5923 (gnus-request-set-mark group (list (list range 'add '(read))))
6251 The prefix argument, the list of process marked articles, and the
6272 ((and (gnus-region-active-p) (mark))
6274 ;; Work on the region between point and mark.
6275 (let ((max (max (point) (mark)))
6278 (goto-char (min (point) (mark)))
6286 ;; There are process-marked articles present.
6288 (gnus-summary-save-process-mark)
6296 "Iterate over the process/prefixed articles and do FORMS.
6309 (defun gnus-summary-save-process-mark ()
6310 "Push the current set of process marked articles on the stack."
6313 gnus-newsgroup-process-stack))
6315 (defun gnus-summary-kill-process-mark ()
6316 "Push the current set of process marked articles on the stack and unmark."
6318 (gnus-summary-save-process-mark)
6321 (defun gnus-summary-yank-process-mark ()
6322 "Pop the last process mark state off the stack and restore it."
6324 (unless gnus-newsgroup-process-stack
6325 (error "Empty mark stack"))
6326 (gnus-summary-process-mark-set (pop gnus-newsgroup-process-stack)))
6328 (defun gnus-summary-process-mark-set (set)
6329 "Make SET into the current process marked articles."
6332 (gnus-summary-set-process-mark (pop set))))
6636 "Perform any operation on all articles that are process/prefixed."
6654 (gnus-summary-remove-process-mark article)))))
6678 (not (eq gnus-canceled-mark (gnus-data-mark (car data)))))
6739 (gnus-mark-xrefs-as-read group headers gnus-newsgroup-unreads))
7336 (defun gnus-summary-set-current-mark (&optional current-mark)
7353 (eq (gnus-summary-article-mark) gnus-canceled-mark)))
7498 (if (eq (cdr (assq article gnus-newsgroup-reads)) gnus-canceled-mark)
7763 If not given a prefix, use the process marked articles instead."
7910 (gnus-summary-limit-to-marks (char-to-string gnus-unread-mark))
7914 (list gnus-del-mark gnus-read-mark gnus-ancient-mark
7915 gnus-killed-mark gnus-spam-mark gnus-kill-file-mark
7916 gnus-low-score-mark gnus-expirable-mark
7917 gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark
7918 gnus-duplicate-mark gnus-souped-mark)
7946 (when (if reverse (not (memq (gnus-data-mark (car data)) marks))
7947 (memq (gnus-data-mark (car data)) marks))
8021 (gnus-summary-limit-to-marks (list gnus-dormant-mark) 'reverse)
8032 (when (or (not (= (gnus-data-mark d) gnus-dormant-mark))
8048 (defun gnus-summary-limit-mark-excluded-as-read (&optional all)
8050 If ALL, mark even excluded ticked and dormants as read."
8068 (mapcar (lambda (n) (cons n gnus-catchup-mark)) articles)
8073 (push (cons article gnus-catchup-mark) gnus-newsgroup-reads))))))
8086 (gnus-summary-mark-below nil) ; Inhibit this.
8252 ;; We also mark as read here, if that's wanted.
8253 (when (and gnus-summary-mark-below
8254 (< score gnus-summary-mark-below))
8259 (push (cons number gnus-low-score-mark)
8284 ;; We also mark as read here, if that's wanted.
8289 (push (cons number gnus-low-score-mark)
8541 Obeys the standard process/prefix convention."
8550 (gnus-summary-remove-process-mark article)
8640 (gnus-mark-article-hook nil) ;Inhibit marking as read.
8824 "Generate and print a PostScript image of the process-marked (mail) articles.
8827 process-marked. With prefix arg, prompt the user for the name of the
8832 articles. If N is nil and articles have been marked with the process
8833 mark, print these instead.
8844 (gnus-summary-remove-process-mark article))
8931 (gnus-summary-update-secondary-mark (cdr gnus-article-current))))))
9082 If N is nil and any articles have been marked with the process mark,
9132 ;; we needn't render or mark the article.
9135 (gnus-mark-article-hook nil))
9218 (gnus-summary-mark-article article gnus-canceled-mark)
9249 gnus-article-mark-lists
9251 (copy-sequence gnus-article-mark-lists))))
9268 (push (cons to-article gnus-read-mark) gnus-newsgroup-reads)
9273 (when (eq (gnus-article-mark-to-type (cdar marks)) 'list)
9279 ;; then we have to add the mark to the list.
9291 (gnus-request-set-mark
9323 (gnus-summary-mark-article article gnus-canceled-mark))))
9324 (gnus-summary-remove-process-mark article))
9369 The article will be squeezed through the mail spooling process again,
9374 If N is nil and any articles have been marked with the process mark,
9517 ;; through the expiry process.
9532 ;; We go through the old list of expirable, and mark all
9534 (unless (eq es expirable) ;If nothing was expired, we don't mark.
9539 (gnus-summary-mark-article article gnus-canceled-mark)
9568 If N is nil and articles have been marked with the process mark,
9594 (gnus-summary-remove-process-mark (car articles))
9598 (gnus-summary-mark-article (car articles) gnus-canceled-mark))
9753 (gnus-summary-update-secondary-mark
9759 (gnus-summary-update-secondary-mark
9773 (gnus-run-hooks 'gnus-visual-mark-article-hook))))))
9792 (let (gnus-mark-article-hook)
9814 If UNMARK is positive, remove any kind of mark.
9820 (gnus-summary-mark-same-subject
9832 If UNMARK is positive, remove any kind of mark.
9838 (gnus-summary-mark-same-subject
9847 (defun gnus-summary-mark-same-subject (subject &optional unmark)
9850 If optional argument UNMARK is negative, mark articles as unread instead."
9857 (gnus-summary-mark-article-as-read gnus-killed-mark)
9864 (gnus-summary-mark-article-as-unread gnus-ticked-mark)
9871 (gnus-summary-mark-article-as-unread gnus-unread-mark)
9879 (defun gnus-summary-mark-as-processable (n &optional unmark)
9880 "Set the process mark on the next N articles.
9881 If N is negative, mark backward instead. If UNMARK is non-nil, remove
9882 the process mark instead. The difference between N and the actual
9886 (gnus-uu-mark-region (region-beginning) (region-end) unmark)
9893 (gnus-summary-remove-process-mark
9895 (gnus-summary-set-process-mark (gnus-summary-article-number)))
9905 "Remove the process mark from the next N articles.
9909 (gnus-summary-mark-as-processable n t))
9912 "Remove the process mark from all articles."
9916 (gnus-summary-remove-process-mark (car gnus-newsgroup-processable))))
9919 (defun gnus-summary-add-mark (article type)
9920 "Mark ARTICLE with a mark of TYPE."
9921 (let ((vtype (car (assq type gnus-article-mark-lists)))
9924 (error "No such mark type: %s" type)
9928 (gnus-summary-update-secondary-mark article)
9930 ;;; !!! mark we want to set.
9931 (gnus-summary-update-mark gnus-del-mark 'unread)))))
9933 (defun gnus-summary-mark-as-expirable (n)
9935 If N is negative, mark backward instead. The difference between N and
9938 (gnus-summary-mark-forward n gnus-expirable-mark))
9940 (defun gnus-summary-mark-as-spam (n)
9942 If N is negative, mark backward instead. The difference between N and
9945 (gnus-summary-mark-forward n gnus-spam-mark))
9947 (defun gnus-summary-mark-article-as-replied (article)
9958 (gnus-summary-update-secondary-mark article))))))
9960 (defun gnus-summary-mark-article-as-forwarded (article)
9968 (gnus-summary-update-secondary-mark article))))))
10005 (defun gnus-summary-mark-as-dormant (n)
10007 If N is negative, mark backward instead. The difference between N and
10010 (gnus-summary-mark-forward n gnus-dormant-mark))
10012 (defun gnus-summary-set-process-mark (article)
10013 "Set the process mark on ARTICLE and update the summary line."
10020 (gnus-summary-update-secondary-mark article)))
10022 (defun gnus-summary-remove-process-mark (article)
10023 "Remove the process mark from ARTICLE and update the summary line."
10028 (gnus-summary-update-secondary-mark article)))
10030 (defun gnus-summary-set-saved-mark (article)
10031 "Set the process mark on ARTICLE and update the summary line."
10034 (gnus-summary-update-secondary-mark article)))
10036 (defun gnus-summary-mark-forward (n &optional mark no-expire)
10038 If N is negative, mark backwards instead. Mark with MARK, ?r by default.
10048 (not (memq mark (list gnus-unread-mark gnus-spam-mark
10049 gnus-ticked-mark gnus-dormant-mark)))))
10051 (mark (or mark gnus-del-mark)))
10053 (gnus-summary-mark-article nil mark no-expire)
10061 (gnus-message 7 "No more %sarticles" (if mark "" "unread ")))
10067 (defun gnus-summary-mark-article-as-read (mark)
10074 (push (cons article mark) gnus-newsgroup-reads)
10078 ;; Allow the backend to change the mark.
10079 (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
10082 (memq mark gnus-auto-expirable-marks))
10083 (setq mark gnus-expirable-mark)
10084 ;; Let the backend know about the mark change.
10085 (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
10087 ;; Set the mark in the buffer.
10088 (gnus-summary-update-mark mark 'unread)
10091 (defun gnus-summary-mark-article-as-unread (mark)
10094 (old-mark (gnus-summary-article-mark article)))
10095 ;; Allow the backend to change the mark.
10096 (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
10097 (if (eq mark old-mark)
10101 (gnus-error 1 "Can't mark negative article numbers")
10109 (cond ((= mark gnus-ticked-mark)
10113 ((= mark gnus-spam-mark)
10117 ((= mark gnus-dormant-mark)
10133 (= mark gnus-ticked-mark)
10134 (= mark gnus-dormant-mark) (= mark gnus-unread-mark))))
10136 ;; Fix the mark.
10137 (gnus-summary-update-mark mark 'unread)
10140 (defun gnus-summary-mark-article (&optional article mark no-expire)
10148 ;; The mark might be a string.
10149 (when (stringp mark)
10150 (setq mark (aref mark 0)))
10151 ;; If no mark is given, then we check auto-expiring.
10152 (when (null mark)
10153 (setq mark gnus-del-mark))
10156 (memq mark gnus-auto-expirable-marks))
10157 (setq mark gnus-expirable-mark))
10159 (old-mark (gnus-summary-article-mark article)))
10160 ;; Allow the backend to change the mark.
10161 (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
10162 (if (eq mark old-mark)
10166 (if (not (if (or (= mark gnus-unread-mark)
10167 (= mark gnus-ticked-mark)
10168 (= mark gnus-spam-mark)
10169 (= mark gnus-dormant-mark))
10170 (gnus-mark-article-as-unread article mark)
10171 (gnus-mark-article-as-read article mark)))
10175 (not (= mark gnus-canceled-mark))
10180 (= mark gnus-ticked-mark)
10181 (= mark gnus-dormant-mark) (= mark gnus-unread-mark))))
10186 ;; Fix the mark.
10187 (gnus-summary-update-mark mark 'unread)
10190 (defun gnus-summary-update-secondary-mark (article)
10191 "Update the secondary (read, process, cache) mark."
10192 (gnus-summary-update-mark
10194 gnus-process-mark)
10196 gnus-cached-mark)
10198 gnus-replied-mark)
10200 gnus-forwarded-mark)
10202 gnus-saved-mark)
10204 gnus-recent-mark)
10206 gnus-unseen-mark)
10207 (t gnus-no-mark))
10213 (defun gnus-summary-update-download-mark (article)
10214 "Update the download mark."
10215 (gnus-summary-update-mark
10217 gnus-undownloaded-mark)
10219 gnus-downloaded-mark)
10221 gnus-no-mark))
10226 (defun gnus-summary-update-mark (mark type)
10227 (let ((forward (cdr (assq type gnus-summary-mark-positions)))
10236 ;; Replace the old mark with the new mark.
10237 (subst-char-in-region (point) (1+ (point)) (char-after) mark)
10240 (gnus-data-set-mark
10241 (gnus-data-find (gnus-summary-article-number)) mark)
10242 (gnus-summary-update-line (eq mark gnus-unread-mark)))))))
10244 (defun gnus-mark-article-as-read (article &optional mark)
10247 (let ((mark (or mark gnus-del-mark)))
10249 (if (= mark gnus-expirable-mark)
10257 (push (cons article mark) gnus-newsgroup-reads)
10263 (defun gnus-mark-article-as-unread (article &optional mark)
10265 (let ((mark (or mark gnus-ticked-mark)))
10268 (gnus-error 1 "Can't mark negative article numbers")
10280 (cond ((= mark gnus-ticked-mark)
10283 ((= mark gnus-spam-mark)
10287 ((= mark gnus-dormant-mark)
10296 (defalias 'gnus-summary-mark-as-unread-forward
10298 (make-obsolete 'gnus-summary-mark-as-unread-forward
10305 (gnus-summary-mark-forward n gnus-ticked-mark))
10307 (defalias 'gnus-summary-mark-as-unread-backward
10309 (make-obsolete 'gnus-summary-mark-as-unread-backward
10315 (gnus-summary-mark-forward (- n) gnus-ticked-mark))
10317 (defalias 'gnus-summary-mark-as-unread 'gnus-summary-tick-article)
10318 (make-obsolete 'gnus-summary-mark-as-unread 'gnus-summary-tick-article)
10319 (defun gnus-summary-tick-article (&optional article clear-mark)
10322 Optional 2nd argument CLEAR-MARK remove any kinds of mark."
10324 (gnus-summary-mark-article article (if clear-mark gnus-unread-mark
10325 gnus-ticked-mark)))
10327 (defun gnus-summary-mark-as-read-forward (n)
10329 If N is negative, mark backwards instead.
10333 (gnus-summary-mark-forward n gnus-del-mark gnus-inhibit-user-auto-expire))
10335 (defun gnus-summary-mark-as-read-backward (n)
10340 (gnus-summary-mark-forward
10341 (- n) gnus-del-mark gnus-inhibit-user-auto-expire))
10343 (defun gnus-summary-mark-as-read (&optional article mark)
10347 (gnus-summary-mark-article article mark))
10349 (defun gnus-summary-clear-mark-forward (n)
10354 (gnus-summary-mark-forward n gnus-unread-mark))
10356 (defun gnus-summary-clear-mark-backward (n)
10360 (gnus-summary-mark-forward (- n) gnus-unread-mark))
10362 (defun gnus-summary-mark-unread-as-read ()
10363 "Intended to be used by `gnus-summary-mark-article-hook'."
10365 (gnus-summary-mark-article gnus-current-article gnus-read-mark)))
10367 (defun gnus-summary-mark-read-and-unread-as-read (&optional new-mark)
10368 "Intended to be used by `gnus-summary-mark-article-hook'."
10369 (let ((mark (gnus-summary-article-mark)))
10370 (when (or (gnus-unread-mark-p mark)
10371 (gnus-read-mark-p mark))
10372 (gnus-summary-mark-article gnus-current-article
10373 (or new-mark gnus-read-mark)))))
10375 (defun gnus-summary-mark-current-read-and-unread-as-read (&optional new-mark)
10376 "Intended to be used by `gnus-summary-mark-article-hook'."
10377 (let ((mark (gnus-summary-article-mark)))
10378 (when (or (gnus-unread-mark-p mark)
10379 (gnus-read-mark-p mark))
10380 (gnus-summary-mark-article (gnus-summary-article-number)
10381 (or new-mark gnus-read-mark)))))
10383 (defun gnus-summary-mark-unread-as-ticked ()
10384 "Intended to be used by `gnus-summary-mark-article-hook'."
10386 (gnus-summary-mark-article gnus-current-article gnus-ticked-mark)))
10388 (defun gnus-summary-mark-region-as-read (point mark all)
10389 "Mark all unread articles between point and mark as read.
10390 If given a prefix, mark all articles between point and mark as read,
10398 (< (point) mark)
10403 (gnus-summary-mark-article article gnus-del-mark))
10407 (defun gnus-summary-mark-below (score mark)
10419 (gnus-summary-mark-article nil mark))
10425 (gnus-summary-mark-below score gnus-killed-mark))
10430 (gnus-summary-mark-above score gnus-unread-mark))
10435 (gnus-summary-mark-above score gnus-ticked-mark))
10437 (defun gnus-summary-mark-above (score mark)
10448 (gnus-summary-mark-article nil mark))
10480 (defun gnus-summary-catchup (&optional all quietly to-here not-mark reverse)
10504 (if (and not-mark
10520 ;; We actually mark all articles as canceled, which we
10526 (gnus-summary-mark-current-read-and-unread-as-read
10527 gnus-catchup-mark)
10529 (gnus-summary-mark-article-as-read gnus-catchup-mark)))
10533 (gnus-summary-mark-article-as-read gnus-catchup-mark)
10541 If ALL is non-nil, also mark ticked and dormant articles as read."
10553 If ALL is non-nil, also mark ticked and dormant articles as read."
10591 If given a prefix, mark all articles, unread as well as ticked, as
10607 (let (gnus-mark-article-hook)
10721 (gnus-summary-update-secondary-mark (cdr gnus-article-current)))
10932 (gnus-summary-mark-article-as-read gnus-killed-mark))
10934 (gnus-summary-mark-article-as-unread gnus-unread-mark))
10936 (gnus-summary-mark-article-as-unread gnus-ticked-mark)))
11040 If N is nil and any articles have been marked with the process mark,
11085 (gnus-summary-remove-process-mark article)
11087 (gnus-summary-set-saved-mark article)))
11100 If N is nil and any articles have been marked with the process mark,
11117 If N is nil and any articles have been marked with the process mark,
11128 If N is nil and any articles have been marked with the process mark,
11139 If N is nil and any articles have been marked with the process mark,
11150 If N is nil and any articles have been marked with the process mark,
11161 If N is nil and any articles have been marked with the process mark,
11172 If N is nil and any articles have been marked with the process mark,
11183 If N is nil and any articles have been marked with the process mark,
11410 gnus-unread-mark b (car pslist) 0 (- e b))
11426 (gnus-run-hooks 'gnus-mark-article-hook)))
11438 (start-process "gnus-execute" (current-buffer) shell-file-name
11440 (call-process shell-file-name nil t nil
11591 (mark (or (gnus-summary-article-mark) gnus-unread-mark))
11645 (when (gnus-check-backend-function 'request-set-mark group)
11651 (gnus-request-set-mark
11655 `(gnus-request-set-mark
11751 (let (gnus-mark-article-hook)
11769 '((read gnus-del-mark "d")
11770 (unread gnus-unread-mark "u")
11771 (ticked gnus-ticked-mark "!")
11772 (dormant gnus-dormant-mark "?")
11773 (expirable gnus-expirable-mark "e"))
11776 (defvar gnus-summary-generic-mark-map (make-sparse-keymap))
11777 (defvar gnus-summary-mark-map)
11780 (define-key gnus-summary-mark-map "M" gnus-summary-generic-mark-map)
11784 (defun gnus-summary-make-marking-command (name mark keystroke)
11786 (define-key gnus-summary-generic-mark-map keystroke map)
11793 mark (car lway) lway name)))
11797 (defun gnus-summary-make-marking-command-1 (mark way lway name)
11799 (format "gnus-summary-put-mark-as-%s%s"
11812 (gnus-summary-generic-mark n ,mark ',(nth 2 lway) ,(nth 3 lway))))
11814 (defun gnus-summary-generic-mark (n mark move unread)
11830 (gnus-summary-mark-article nil mark)
11834 (gnus-message 7 "No more %sarticles" (if mark "" "unread ")))
11861 ;; Let the Gnus agent mark articles as read.