Function: nnselect-request-update-mark

nnselect-request-update-mark is a byte-compiled function defined in nnselect.el.gz.

Signature

(nnselect-request-update-mark GROUP ARTICLE MARK)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnselect.el.gz
;; we pass this through to the real group in case it wants to adjust
;; the mark. We also use this to mark an article expirable iff it is
;; expirable in the real group.
(deffoo nnselect-request-update-mark (_group article mark)
  (let* ((artgroup (nnselect-article-group article))
	 (artnumber (nnselect-article-number article))
	 (gmark (gnus-request-update-mark artgroup artnumber mark)))
    (when (and artnumber
	       (memq mark gnus-auto-expirable-marks)
	       (= mark gmark)
	       (gnus-group-auto-expirable-p artgroup))
      (setq gmark gnus-expirable-mark))
    gmark))