Tollef Fog Heen <[EMAIL PROTECTED]> writes: > * (J閞鬽e Marant) > > | Since you CC'ed me on reply, I guess you don't use such group parameters :-) > > ((and (message-mail-p) (stringp gnus-newsgroup-name) (tfheen-debian-group-p)) > (to (tfheen-debian-find-recipients)) > (cc nil)) > > (as posting style params) > > (defun tfheen-debian-find-recipients () > "Try to find all the recipients on debian lists." > (save-excursion > (set-buffer gnus-article-buffer) > (message-narrow-to-headers-or-head) > (or (message-fetch-field "Mail-Followup-To") > (mapconcat '(lambda(x) > (if (string-match "[EMAIL PROTECTED]" (car x)) > (car x) nil)) > (tfheen-get-recipients-parsed) ", ")))) > > (defun tfheen-get-recipients-parsed () > (save-excursion > (set-buffer gnus-article-buffer) > (message-narrow-to-headers-or-head) > (append (mail-header-parse-addresses > (message-fetch-field "to")) > (mail-header-parse-addresses > (message-fetch-field "cc"))))) > > Seems to work so far, at least. :)
Fine, but how exactly do I use this voodoo magic? :-) TIA. -- J閞鬽e Marant http://marant.org
