Function: gnus-message-process-mark

gnus-message-process-mark is a byte-compiled function defined in gnus-uu.el.gz.

Signature

(gnus-message-process-mark UNMARKP NEW-MARKED)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-uu.el.gz
;; Process marking.

(defun gnus-message-process-mark (unmarkp new-marked)
  (let ((old (- (length gnus-newsgroup-processable) (length new-marked))))
    (gnus-message 6 "%d mark%s %s%s"
		  (length new-marked)
		  (if (= (length new-marked) 1) "" "s")
		  (if unmarkp "removed" "added")
		  (cond
		   ((and (zerop old)
			 (not unmarkp))
		    "")
		   (unmarkp
		    (format ", %d remain marked"
			    (length gnus-newsgroup-processable)))
		   (t
		    (format ", %d already marked" old))))))