group specific message IDs

group specific message IDs

[Richard G Riley]

I read here

http://gnus.org/manual/gnus_367.html

that I can generate my own message IDs like this:

(defun message-make-message-id()
   (concat "<"(message-unique-id)"@yourmachine.yourdomain.tld>"))


But how can I do this ONLY for specific groups?

Re: group specific message IDs

[Ted Zlatanov]

On Wed, 02 Jul 2008 20:06:13 +0200 Richard G Riley <rileyrgdev@gmail.com> wrote: 

RGR> I read here

RGR> http://gnus.org/manual/gnus_367.html

RGR> that I can generate my own message IDs like this:

RGR> (defun message-make-message-id()
RGR>    (concat "<"(message-unique-id)"@yourmachine.yourdomain.tld>"))

RGR> But how can I do this ONLY for specific groups?

(defun riley-message-make-message-id()
  (if (string-match "your-pattern-here" gnus-newsgroup-name)
      (concat "<"(message-unique-id)"@yourmachine.yourdomain.tld>")
    (message-make-message-id)))

You could also just set user-mail-address instead of overriding
message-make-message-id, if you just want to change your domain name.
This will do it every time you enter a group:

(add-hook 'gnus-select-group-hook 'tzz-gnus-conditional-settings)

(defun tzz-gnus-conditional-settings ()
  "conditional gnus settings"
  (interactive)
  (let ((group (if (stringp gnus-newsgroup-name) gnus-newsgroup-name "")))
    (setq user-mail-address
	  (cond
	   ((string-match "A" group) "joe@here.com")
	   ((string-match "B" group) "jim@there.com")
	   (t "default@everywhere.com")))))

In the same way you could do fancier things with
message-make-message-id, but I generally avoid overriding functions if
possible, I'd rather customize variables.

Ted

Re: group specific message IDs

[renaudr]

On Wed, 02 Jul 2008 20:06:13 +0200, Richard G Riley <rileyrgdev@gmail.com>
said:


> (defun message-make-message-id()
>    (concat "<"(message-unique-id)"@yourmachine.yourdomain.tld>"))
>
> But how can I do this ONLY for specific groups?


I am sure Ted's answer is nice but not sufficient for most purposes where one
sends news from different providers, use different mail adresses and so... I
thus don't rely on system settings for mail sending and use smtpmail instead,
for news I customize the server to connect too.

I have a little library that I am using for almost 10 years now which allows
me to customize an X-Fake header that I set in a group/topic parameter. This
basically change some sensible fields such as the From and Message-Id fields
of the header.

For message id's I use

(defun message-fake-message-id (&optional faked-config-name env)
  "Fakes a unique message id base on faked configuration's machine's opinion"
  (flet ((message-make-fqdn () (message-fake-fqdn faked-config-name env)))
    (message-make-message-id)))

to rewrite how id's are generated.

I can send it to the group if there is some interest.

-- 
		Renaud