From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15658 Path: main.gmane.org!not-for-mail From: SL Baur Newsgroups: gmane.emacs.gnus.general Subject: Re: group name in attribution Date: 15 Jul 1998 22:29:58 -0700 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035154650 23323 80.91.224.250 (20 Oct 2002 22:57:30 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:57:30 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id WAA20560 for ; Wed, 15 Jul 1998 22:31:50 -0700 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id BAA04334 for ; Thu, 16 Jul 1998 01:28:34 -0400 Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id AAS00276; Thu, 16 Jul 1998 00:01:56 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 16 Jul 1998 00:27:05 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id AAA20500 for ; Thu, 16 Jul 1998 00:26:47 -0500 (CDT) Original-Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id BAA25783 for ; Thu, 16 Jul 1998 01:26:45 -0400 (EDT) Original-Received: (from steve@localhost) by altair.xemacs.org (8.9.1/8.9.1) id WAA20537; Wed, 15 Jul 1998 22:29:58 -0700 Mail-Copies-To: never Original-To: ding@gnus.org X-Face: (:YAD@JS'&Kz'M}n7eX7gEvPR6U1mJ-kt;asEc2qAv;h{Yw7ckz<7+X_SYeTNAaPui:e~x$ ,A=gkt*>UPL/}\a/#C~v2%ETiAY_sx;xve0yL??JWTtX_-NUzXyP38UdW#cmN1\4(X!c3m#%IbtB-3 Z-!xpZi!`E.s{(;aP=b11"!3wQu]1j@^V|;n=B|{l writes in ding@gnus.org: > Graham Murray 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 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)))