group name in attribution

group name in attribution

[Graham Murray]

I know that it is not currently possible, so could this possibly be
put on the "wish list"?

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. I have noticed that some other newsreaders already show this
in the attribution line (or the user manually inserts it)

Re: group name in attribution

[Lars Magne Ingebrigtsen]

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"?
> 
> 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.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: group name in attribution

[SL Baur]

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)))

Re: group name in attribution

[Graham Murray]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> You can set `message-citation-line-function' to a function that
> inserts whatever you wish.

Thanks.

I have it working now. For some reason I (mistakenly) thought that the
current newsgroup was not available at the time which
message-citation-line-function was called.