Function: nnheader-update-marks-actions

nnheader-update-marks-actions is a byte-compiled function defined in nnheader.el.gz.

Signature

(nnheader-update-marks-actions BACKEND-MARKS ACTIONS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnheader.el.gz
(defun nnheader-update-marks-actions (backend-marks actions)
  (dolist (action actions)
    (let ((range (nth 0 action))
	  (what  (nth 1 action))
	  (marks (nth 2 action)))
      (dolist (mark marks)
	(setq backend-marks
	      (gnus-update-alist-soft
	       mark
	       (cond
		((eq what 'add)
		 (range-concat (cdr (assoc mark backend-marks)) range))
		((eq what 'del)
		 (range-remove (cdr (assoc mark backend-marks)) range))
		((eq what 'set)
		 range))
	       backend-marks)))))
  backend-marks)