Function: gnus-summary-mark-current-read-and-unread-as-read

gnus-summary-mark-current-read-and-unread-as-read is a byte-compiled function defined in gnus-sum.el.gz.

Signature

(gnus-summary-mark-current-read-and-unread-as-read &optional NEW-MARK)

Documentation

Intended to be used by gnus-mark-article-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-sum.el.gz
(defun gnus-summary-mark-current-read-and-unread-as-read (&optional new-mark)
  "Intended to be used by `gnus-mark-article-hook'."
  (let ((mark (gnus-summary-article-mark)))
    (when (or (gnus-unread-mark-p mark)
	      (gnus-read-mark-p mark))
      (gnus-summary-mark-article (gnus-summary-article-number)
				 (or new-mark gnus-read-mark)))))