On Wed, 02 Jul 2008 20:06:13 +0200 Richard G Riley <[EMAIL PROTECTED]> 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) "[EMAIL PROTECTED]") ((string-match "B" group) "[EMAIL PROTECTED]") (t "[EMAIL PROTECTED]"))))) 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 _______________________________________________ info-gnus-english mailing list [email protected] http://lists.gnu.org/mailman/listinfo/info-gnus-english
