Using Message-ID for reply splitting into groups

Using Message-ID for reply splitting into groups

[Nelson Ferreira]

Hi all.

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 ?

I was thinking of something of the likes of adding a personal key plus the
group name, so that either fancy-splitting or procmail would know which 
group to put it too.

I would also enable this only if gcc-self is t.

I know I would have to thinker with message-make-fdqn or message-make-message-id...

What is the right way to do it, or is this a very dumb move ?

Thanks,

        Nelson

-- 
Nelson Ferreira

Re: Using Message-ID for reply splitting into groups

[Nelson Ferreira]

[-- Attachment #1: Type: text/plain, Size: 672 bytes --]


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


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: MsgId split tag --]
[-- Type: text/x-patch, Size: 592 bytes --]

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)

[-- Attachment #3: Type: text/plain, Size: 849 bytes --]




"njsf" == Nelson Ferreira <nelson.ferreira@bigfoot.com> 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

Re: Using Message-ID for reply splitting into groups

[Kai Großjohann]

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!