Function: message-prune-recipients

message-prune-recipients is a byte-compiled function defined in message.el.gz.

Signature

(message-prune-recipients RECIPIENTS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-prune-recipients (recipients)
  (dolist (rule message-prune-recipient-rules)
    (let ((match (car rule))
	  dup-match
	  address)
      (dolist (recipient recipients)
	(setq address (car recipient))
	(when (string-match match address)
	  (setq dup-match (replace-match (cadr rule) nil nil address))
	  (dolist (recipient recipients)
	    ;; Don't delete the address that triggered this.
	    (when (and (not (eq address (car recipient)))
		       (string-match dup-match (car recipient)))
	      (setq recipients (delq recipient recipients))))))))
  recipients)