Re: Generating Mail-Followup-To: headers

[Matt Armstrong <matt@lickey.com>]

Josh Huber <huber@alum.wpi.edu> writes:

> take a look at this function I just whipped up:
> 
> (defun gnus-find-subscribed-addresses ()
>   (delete-if
>    nil (mapcar '(lambda (group)
> 		  (or (gnus-group-find-parameter group 'to-address)
> 		      (gnus-group-find-parameter group 'to-list)))
> 	       (delete-if-not '(lambda (group)
> 				 (gnus-group-find-parameter
> 				  group 'subscribed))
> 			      (mapcar '(lambda (item) (car item))
> 				      gnus-newsrc-alist)))))
> 
> I'm pretty sure that I shouldn't be just accessing gnus-newsrc-alist
> directly -- someone tell me what I should be doing.
>
> oh, and you'll need something like this:
> 
> (setq gnus-parameters
>       '(("^mail\\.lists\\." (subscribed . t))))

Way cool!

gnus-group-prepare-flat skips the first element of gnus-newsrc-alist
(which appears to always be a dummy group).  Besides that, it looks
like that is the best way to get at all the group names.

Here is the same thing in a procedural style that I can actually
understand.  :-)

(defun gnus-find-subscribed-addresses ()
  (let ((newsrc (cdr gnus-newsrc-alist))
	group address list)
    (while newsrc
      (setq group (car (car newsrc))
	    newsrc (cdr newsrc))
      (if (and (gnus-group-find-parameter group 'subscribed)
	       (setq address (or (gnus-group-find-parameter group 'to-address)
				 (gnus-group-find-parameter group 'to-list))))
	  (setq list (cons address list))))
    list))

-- 
matt