* (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. :)
--
Tollef Fog Heen ,''`.
UNIX is user friendly, it's just picky about who its friends are : :' :
`. `'
`-
