From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/45072
Path: main.gmane.org!not-for-mail
From: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai
 =?iso-8859-15?q?Gro=DFjohann?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Using Message-ID for reply splitting into groups
Date: Sun, 02 Jun 2002 10:27:59 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <vafd6vaytio.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de>
References: <m3adqfbvs0.fsf@tuxie.homelinux.net>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1023006714 8419 127.0.0.1 (2 Jun 2002 08:31:54 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 2 Jun 2002 08:31:54 +0000 (UTC)
Cc: ding@gnus.org
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 17EQmH-0002BZ-00
	for <ding-account@gmane.org>; Sun, 02 Jun 2002 10:31:53 +0200
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 17EQjI-00081s-00; Sun, 02 Jun 2002 03:28:48 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 02 Jun 2002 03:29:05 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id DAA26718
	for <ding@hpc.uh.edu>; Sun, 2 Jun 2002 03:28:53 -0500 (CDT)
Original-Received: (qmail 14335 invoked by alias); 2 Jun 2002 08:28:32 -0000
Original-Received: (qmail 14326 invoked from network); 2 Jun 2002 08:28:32 -0000
Original-Received: from waldorf.cs.uni-dortmund.de (129.217.4.42)
  by gnus.org with SMTP; 2 Jun 2002 08:28:32 -0000
Original-Received: from lothlorien.cs.uni-dortmund.de (lothlorien [129.217.19.67])
        by waldorf.cs.uni-dortmund.de  with ESMTP id g528S4b27140;
	Sun, 2 Jun 2002 10:28:05 +0200 (MES)
Original-Received: from lucy.cs.uni-dortmund.de (lucy [129.217.19.80])
	by lothlorien.cs.uni-dortmund.de id KAA21079; Sun, 2 Jun 2002 10:27:59 +0200 (MET DST)
Original-Received: by lucy.cs.uni-dortmund.de (Postfix, from userid 6104)
	id A1D5B3B41C; Sun,  2 Jun 2002 10:27:59 +0200 (CEST)
Original-To: Nelson Ferreira <nelson.ferreira@bigfoot.com>
Mail-Followup-To: Nelson Ferreira <nelson.ferreira@bigfoot.com>,
	ding@gnus.org
In-Reply-To: <m3adqfbvs0.fsf@tuxie.homelinux.net> (Nelson Ferreira's message
 of "Fri, 31 May 2002 22:03:11 -0400")
Original-Lines: 31
User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2.90
 (i686-pc-linux-gnu)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:45072
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:45072

Nelson Ferreira <nelson.ferreira@bigfoot.com> writes:

> Did anyone ever tried to cook the Message-ID field so that you can split
> an incoming reply to mail you posted (or a reply), to the group where the
> you composed the original from ?

Yes, but I did it wrong.  I added stuff the rhs (after "@") whereas it
should have been added to the lhs.  Can you fix that?

;; Insert token into message id
(defadvice message-make-fqdn (around group-token activate)
  "Insert a token for the current group into the message id."
  (let ((fqdn ad-do-it)
	(gcc (save-restriction
	       (message-narrow-to-headers-or-head)
	       (message-fetch-field "gcc"))))
    (cond ((and gcc
		(string-match "^nnimap:\\(.*\\)$" gcc))
	   (setq ad-return-value (concat (match-string 1 gcc)
					 ".tok."
					 fqdn)))
	  ((and gnus-newsgroup-name
		(string-match "^nnimap:\\(.*\\)$" gnus-newsgroup-name))
	   (setq ad-return-value (concat (match-string 1 gnus-newsgroup-name)
					 ".tok."
					 fqdn)))
	  (t (setq ad-return-value fqdn)))))

kai
-- 
Silence is foo!