From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43505 Path: main.gmane.org!not-for-mail From: Nelson Ferreira Newsgroups: gmane.emacs.gnus.general Subject: Re: Using Message-ID for reply splitting into groups Date: Sat, 01 Jun 2002 01:44:36 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: <27143.5534734794$1042213806@news.gmane.org> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035179594 24400 80.91.224.250 (21 Oct 2002 05:53:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 05:53:14 +0000 (UTC) Return-Path: Original-Received: (qmail 1960 invoked from network); 1 Jun 2002 05:47:33 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 1 Jun 2002 05:47:33 -0000 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 17E1it-0002kw-00; Sat, 01 Jun 2002 00:46:43 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 01 Jun 2002 00:46:56 -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 AAA24601 for ; Sat, 1 Jun 2002 00:46:38 -0500 (CDT) Original-Received: (qmail 1951 invoked by alias); 1 Jun 2002 05:46:16 -0000 Original-Received: (qmail 1946 invoked from network); 1 Jun 2002 05:46:15 -0000 Original-Received: from pool-162-84-135-122.ny5030.east.verizon.net (HELO tuxie.homelinux.net) (root@162.84.135.122) by gnus.org with SMTP; 1 Jun 2002 05:46:15 -0000 Original-Received: (from njsf@localhost) by tuxie.homelinux.net (8.11.6/8.9.3) id g515lYM15353; Sat, 1 Jun 2002 00:47:34 -0500 X-Msgid-Archive-Tag: _---_xmat_-m:gnus_--- X-Msgid-Archive-Tag: _---_xmat_-m:gnus_--- X-Msgid-Archive-Tag: _---_xmat_-m:gnus_--- Original-To: ding@gnus.org X-Attribution: njsf In-Reply-To: (Nelson Ferreira's message of "Fri, 31 May 2002 22:03:11 -0400") User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.5 (beets, i686-pc-linux) Original-Lines: 88 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:43505 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43505 --=-=-= In reply to my own message, I'm posting a patch to message.el in message-make-message-id that concats the header X-Msgid-Archive-Tag to the Message-ID contacts if it is present. This allows me to do the following in my .gnus: (defun njsf-define-msg-id-tag-field nil "" (if (and (message-mail-p) (length gnus-newsgroup-name)) (let ((tag (concat "_---_xmat_-" gnus-newsgroup-name) "_---"))) (save-excursion (message-narrow-to-headers) (message-fill-header 'X-Msgid-Archive-Tag tag) (widen) )))) (add-hook 'message-send-hook 'njsf-define-msg-id-tag-field) Anybody has any comments, improvements or objections ? Regards, Nelson --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=msg-id-tag.diff Content-Description: MsgId split tag Index: lisp/message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 6.228 diff -u -r6.228 message.el --- lisp/message.el 2002/04/21 02:42:45 6.228 +++ lisp/message.el 2002/06/01 06:01:30 @@ -3723,6 +3723,10 @@ (and psupersedes (string-match "_-_@" psupersedes))) "_-_" "")) + (let ((msgid-arch-tag-p (message-fetch-field "x-msgid-archive-tag"))) + (if msgid-arch-tag-p + msgid-arch-tag-p + "")) "@" (message-make-fqdn) ">")) (defvar message-unique-id-char nil) --=-=-= "njsf" == Nelson Ferreira writes: njsf> Hi all. Did anyone ever tried to cook the Message-ID field njsf> so that you can split an incoming reply to mail you posted njsf> (or a reply), to the group where the you composed the njsf> original from ? njsf> I was thinking of something of the likes of adding a njsf> personal key plus the group name, so that either njsf> fancy-splitting or procmail would know which group to put it njsf> too. njsf> I would also enable this only if gcc-self is t. njsf> I know I would have to thinker with message-make-fdqn or njsf> message-make-message-id... njsf> What is the right way to do it, or is this a very dumb move njsf> ? njsf> Thanks, njsf> Nelson njsf> -- Nelson Ferreira -- Nelson Ferreira --=-=-=--