Function: nnmail-expiry-target-group

nnmail-expiry-target-group is a byte-compiled function defined in nnmail.el.gz.

Signature

(nnmail-expiry-target-group TARGET GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmail.el.gz
(defun nnmail-expiry-target-group (target group)
  ;; Do not invoke this from nntp-server-buffer!  At least nnfolder clears
  ;; that buffer if the nnfolder group isn't selected.
  (let (nnmail-cache-accepted-message-ids)
    ;; Don't enter Message-IDs into cache.
    ;; Let users hack it in TARGET function.
    (when (functionp target)
      (setq target (funcall target group)))
    (unless (eq target 'delete)
      (when (or (gnus-request-group target nil nil (gnus-get-info target))
		(gnus-request-create-group target))
	(let ((group-art (gnus-request-accept-article target nil t t)))
	  (when (and (consp group-art)
		     (cdr group-art))
	    (gnus-group-mark-article-read target (cdr group-art))))))))