Function: gnus-find-subscribed-addresses

gnus-find-subscribed-addresses is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-find-subscribed-addresses)

Documentation

Return a regexp matching the addresses of all subscribed mail groups.

It consists of the to-address or to-list parameter of all groups with a subscribed parameter.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
;;;
;;; Gnus Utility Functions
;;;

(defun gnus-find-subscribed-addresses ()
  "Return a regexp matching the addresses of all subscribed mail groups.
It consists of the `to-address' or `to-list' parameter of all groups
with a `subscribed' parameter."
  (let (group address addresses)
    (dolist (entry (cdr gnus-newsrc-alist))
      (setq group (car entry))
      (when (gnus-parameter-subscribed group)
	(setq address (mail-strip-quoted-names
		       (or (gnus-group-fast-parameter group 'to-address)
			   (gnus-group-fast-parameter group 'to-list))))
	(when address
	  (cl-pushnew address addresses :test #'equal))))
    (when addresses
      (list (mapconcat #'regexp-quote addresses "\\|")))))