Function: rmail-summary-mark-seen

rmail-summary-mark-seen is a byte-compiled function defined in rmailsum.el.gz.

Signature

(rmail-summary-mark-seen N &optional NOMOVE UNSEEN)

Documentation

Remove the unseen mark from the current message, update the summary vector.

N is the number of the current message. Optional argument NOMOVE non-nil means we are already at the right column. Optional argument UNSEEN non-nil means mark the message as unseen.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailsum.el.gz
(defun rmail-summary-mark-seen (n &optional nomove unseen)
  "Remove the unseen mark from the current message, update the summary vector.
N is the number of the current message.  Optional argument NOMOVE
non-nil means we are already at the right column.  Optional argument
UNSEEN non-nil means mark the message as unseen."
  (save-excursion
    (unless nomove
      (beginning-of-line)
      (skip-chars-forward " ")
      (skip-chars-forward "0-9"))
    (when (char-equal (following-char) (if unseen ?\s ?-))
      (let ((buffer-read-only nil))
	(delete-char 1)
	(insert (if unseen "-" " ")))
      (let ((line (buffer-substring-no-properties (line-beginning-position)
						  (line-beginning-position 2))))
      (with-current-buffer rmail-buffer
	(aset rmail-summary-vector (1- n) line))))))