New supercite feature, anyone want it?
SL Baur <steve(a)xemacs.org> writes in xemacs-beta(a)xemacs.org:
I have an extension to Supercite citation in response to a request on
the Gnus devel list that makes lines like the above. Is anyone else
interested in seeing this get integrated into Supercite?
(defun sc-header-author-email-writes-in-group ()
"sc-author <email-addr> writes in group:"
(let* ((sc-mumble "")
(whofrom (sc-whofrom))
(group (or gnus-newsgroup-name ""))
(group-name (or (gnus-group-find-parameter group 'to-address)
(gnus-group-find-parameter group 'to-list)
(gnus-group-find-parameter group 'to-group)
(message-fetch-field "newsgroups"))))
(if whofrom
(insert sc-reference-tag-string
(sc-hdr "" (sc-mail-field "sc-author") " ")
(or (sc-hdr "<" (sc-mail-field "sc-from-address")
">" t)
(sc-hdr "<" (sc-mail-field "sc-reply-address")
">" t)
"")
(if group-name
(format " writes in %s" group-name)
" writes")
":\n")))))