[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Default email address based on displayed newsgroup
From: |
Olivier Sirven |
Subject: |
Re: Default email address based on displayed newsgroup |
Date: |
Wed, 29 Jul 2009 17:44:20 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.3 (darwin) |
Richard Riley <rileyrgdev@gmail.com> writes:
> gnus-posting-styles
>
> e.g
>
> ,----
> | setq gnus-posting-styles `((".*"
> | (name "Richard Riley")
> | (from "Richard Riley
> <rileyrgATgooglemailDOTcom>")
> | (eval(setq gnushush-user-agent-header (quote
> real)))
> | (signature-file "~/.emacs.d/.sigs/rgr.sig")
> | (eval (setq mml2015-signers '("xxxxxx")))
> | (organization "aich tea tea pea dicky riley dot
> net"))))
> `----
>
>
> And then in a custom el file I load I might do:
>
> ,----
> | (add-to-list `gnus-posting-styles `((or (string-match ,(rx (or
> "DevelopmentEmail" "emacs" "python" "ecb" "exim4" "gdb" "gnus" "hardware"
> "html" "muse" "mysql" "networking" "opengl" "pgp" "php" "plan" "readers"
> "security")) gnus-newsgroup-name) (DE-bbdb-match-field-recipient 'email-type
> "dev"))
> | (name "Richard Riley")
> | (from "Richard Riley
> <rileyrgdevATgmailDOTcom>")
> | (eval(setq gnushush-user-agent-header
> (quote real)))
> | (eval (setq mml2015-signers '("xxxxxx")))
> | (signature-file "~/.emacs.d/.sigs/d.sig"))
> t)
> `----
>
> You would probably take off the "or" clause there.
Thanks it worked exactly as I wanted!
--
Olivier