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