From: SL Baur <steve@xemacs.org>
Subject: Re: group name in attribution
Date: 15 Jul 1998 22:29:58 -0700 [thread overview]
Message-ID: <m2iukybbxl.fsf@altair.xemacs.org> (raw)
In-Reply-To: Lars Magne Ingebrigtsen's message of "16 Jul 1998 06:05:03 +0200"
Lars Magne Ingebrigtsen <larsi@gnus.org> writes in ding@gnus.org:
> Graham Murray <graham@barnowl.demon.co.uk> writes:
>> I know that it is not currently possible, so could this possibly be
>> put on the "wish list"?
It is possible. I don't think an example of doing it is written down
anywhere though.
>> When a message is crossposted to multiple groups, it might be useful
>> for the attribution line to state in which group the reply is being
>> composed.
> You can set `message-citation-line-function' to a function that
> inserts whatever you wish.
It can be done in Supercite too. Here's one possible implementation
(adjust to suit, this is off the top of my head):
(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 (message-fetch-field "newsgroups")
(gnus-group-find-parameter group 'to-address)
(gnus-group-find-parameter group 'to-list))))
(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
(format " writes in %s" group-name)
"writes")
":\n"))))
Add to this `sc-rewrite-header-list' and set
`sc-preferred-header-style' to its index in the list to use it.
(setq sc-rewrite-header-list
(append sc-rewrite-header-list
'((sc-header-author-email-writes-in-group))))
(setq sc-preferred-header-style (1- (length sc-rewrite-header-list)))
next prev parent reply other threads:[~1998-07-16 5:29 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-07-15 18:00 Graham Murray
1998-07-16 4:05 ` Lars Magne Ingebrigtsen
1998-07-16 5:29 ` SL Baur [this message]
1998-07-16 21:45 ` Graham Murray
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2iukybbxl.fsf@altair.xemacs.org \
--to=steve@xemacs.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).