[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: gnus-posting-styles confusing
From: |
आशीष शुक्ल Ashish Shukla |
Subject: |
Re: gnus-posting-styles confusing |
Date: |
Tue, 14 Aug 2007 15:49:50 -0000 |
User-agent: |
G2/1.0 |
Tassilo Horn \/\/|20+3:
> आशीष शुक्ल Ashish Shukla <wahjava@gmail.com> writes:
>
> Hi,
Hi,
First of all apologies for late reply.
>
> > I've 2 mail addresses, one I use for mailing lists, and other I use
> > for rest of the communications. So if I'm sending mail to a mailing
> > list, it should go from my email address ("mailing list" one),
> > otherwise it will go from my default email address. So, is this
> > possible using "gnus-posting-styles" ?
>
> Yes, that's exactly what they are for. Let's assume you have the
> following groups for the mailing lists:
>
> mail.lists.one
> mail.lists.two
> ...
> mail.lists.nine
How're those groups created ? Are you using group mail splitting ?
Hmm..
Anyways, following is my .gnus.
-- begin .gnus --
(defun its-gnu() 't)
(defun my-gnus-user-agent()
"My custom User-Agent field"
(concat (format "Gnus/%s (Oort %s) "
(gnus-continuum-version (gnus-version))
gnus-version-number)
(cond ((its-gnu) (format "Emacs/%s " emacs-version))
(t (format "XEmacs/%s " emacs-program-version)))
(cond ((eq window-system 'gtk)' "(GTK)")
(t (format "(%s)" system-configuration)))))
(require 'cl)
(defun match-from-list(list value)
"Returns the index of value in the list"
(let ((n 0))
(dolist (var list -1)
(if
(string-equal (format "%s" value) (format "%s" var))
(return n) (setq n (+ n 1)))
)))
(setq mail-yank-prefix "| ")
(setq user-full-name "Ashish Shukla आशीष शुक्ल")
(setq user-mail-address "wahjava@remove.it.human.gmail.com")
(setq gnus-visible-headers
(concat "^\\(From:\\|Subject:\\|Date:\\|Followup-To:\\|X-Newsreader:
\\|To:\\|"
"User-Agent:\\|X-Mailer:\\|Organization:\\|Newsgroups:\\)"))
;;; only default posting style for now
(setq gnus-posting-styles
'(
(".*"
("From" "wahjava@remove.it.human.gmail.com (Ashish Shukla आशीष
शुक्ल)")
("Organization" "/\\/0/\\/3")
("X-PGP" "762E5E74")
("PGP" "762E5E74")
("X-PGP-FP" "1E00 4679 77E4 F8EE 2E4B 56F2 1F2F 8410 762E
5E74")
("X-Attribution" "आशीष")
("X-Mailer" (my-gnus-user-agent))
(signature-file "~/.signature"))
))
(setq gnus-message-archive-group "nnmaildir:sent-mail")
(setq message-default-headers
(with-temp-buffer
(insert "X-Face: ")
(insert-file-contents "~/.xface")
(buffer-string)))
(setq message-required-mail-headers
(nconc message-required-mail-headers
(list '(Face . (lambda () (gnus-convert-png-to-face
"~/Pictures/
face.png"))))))
(setq mail-sources '((maildir :path "~/Maildir/")))
(setq gnus-select-method '(nnnil))
(setq gnus-secondary-select-methods
'((nnmaildir ""
(directory "~/mail")
(get-new-mail t))))
(setq nnmail-split-methods
'(("sent-mail" "^From:.*wahjava\\(?:.ml\\)?
@remove[.]it[.]human[.]gmail[.]com")
("lists" "^List-Id: ")
("inbox" "")))
(require 'pgg)
(autoload 'pgg-encrypt-region "pgg" "Encrypt the current region." t)
(autoload 'pgg-encrypt-symmetric-region "pgg"
"Encrypt the current region with symmetric algorithm." t)
(autoload 'pgg-decrypt-region "pgg" "Decrypt the current region." t)
(autoload 'pgg-sign-region "pgg" "Sign the current region." t)
(autoload 'pgg-verify-region "pgg" "Verify the current region." t)
(autoload 'pgg-insert-key "pgg" "Insert the ASCII armored public key."
t)
(autoload 'pgg-snarf-keys-region "pgg" "Import the public keys in the
current region." t)
;; verify/decrypt only if mml knows about the protocol used
(setq mm-verify-option 'known)
(setq mm-decrypt-option 'known)
;; Here we make button for the multipart
(setq gnus-buttonized-mime-types '("multipart/encrypted" "multipart/
signed"))
;; Tells Gnus to inline the part
(eval-after-load "mm-decode"
'(add-to-list 'mm-inlined-types "application/pgp$"))
;; Tell Gnus how to display the part when it is requested
(eval-after-load "mm-decode"
'(add-to-list 'mm-inline-media-tests '("application/pgp$"
mm-inline-text identity)))
;; Tell Gnus not to wait for a request, just display the thing
;; straight away.
(eval-after-load "mm-decode"
'(add-to-list 'mm-automatic-display "application/pgp$"))
;; But don't display the signatures please.
(eval-after-load "mm-decode"
(quote (setq mm-automatic-display (remove "application/pgp-
signature"
mm-automatic-display))))
;; auto-sign all outgoing messages
(add-hook 'gnus-message-setup-hook 'mml-secure-message-sign-pgpmime)
(require 'supercite)
(setq sc-preferred-header-style (match-from-list sc-rewrite-header-
list '(sc-header-verbose)))
(setq message-cite-function 'sc-cite-original)
(setq sc-citation-leader "")
(setq sc-citation-delimiter "|")
(setq sc-nested-citation-p t)
(setq sc-electric-references-p t)
(setq sc-reference-tag-string ",--- ")
(setq sc-fixup-whitespace-p t)
(setq sc-blank-lines-after-headers nil)
(setq sc-cite-blank-lines-p nil)
(setq sc-auto-fill-region-p nil)
; display smilies
(setq gnus-treat-display-smileys t)
'(toolbar-news-reader (quote gnus))
'(toolbar-mail-reader (quote vm))
'(mail-user-agent (quote my-gnus-user-agent))
'(message-send-mail-function quote 'message-send-mail-with-sendmail)
'(message-fromh-style (quote parens))
'(mail-from-style (quote parens))
'(mail-specify-envelope-from t)
'(sc-preferred-attribution-list (quote ("sc-lastchoice" "x-
attribution" "firstname" "initials" "lastname")))
;;; Local Variables:
;;; mode: emacs-lisp
;;; tab-width: 4
;;; End:
;;; vim:filetype=lisp
-- end .gnus --
I just started using Gnus 3-4 week back. I share my "maildir" style
mailbox with 2 other MUA's also namely, mutt, and Kmail. And following
is what I do in mutt to make sure all my mails to mailing lists go
from my mailing list address and should save in "lists" maildir.
-- begin excerpt --
lists freebsd-questions@freebsd.org
subscribe freebsd-questions@freebsd.org
lists questions@freebsd.org
subscribe questions@freebsd.org
save-hook '~l' +lists
send-hook '~l' 'my_hdr from: आशीष शुक्ल Ashish Shukla
<wahjava.ml@remove.it.human.gmail.com>'
-- end excerpt --
>
> Then I'd suggest to use these posting styles.
>
> ,----
> | (setq gnus-posting-styles
> | '(("."
> | (address "default@address.invalid"))
> | ("mail\\.lists\\."
> | (address "mailinglist@address.invalid"))))
> `----]
So please now tell me what to do, to have my mails to mailing list
should have "From" field set to correct address.
>
> Bye,
> Tassilo
> --
> The desire to be rewarded for one's creativity does not justify
> depriving the world in general of all or part of that creativity.
> (Richard M. Stallman)
Thanks to all for replying,
Ashish Shukla
--
http://wahjava.wordpress.com/
- Re: gnus-posting-styles confusing, (continued)
- Re: gnus-posting-styles confusing, आशीष शुक्ल Ashish Shukla, 2007/08/13
- Message not available
- Re: gnus-posting-styles confusing, आशीष शुक्ल Ashish Shukla, 2007/08/13
- Re: gnus-posting-styles confusing, Tassilo Horn, 2007/08/13
- Message not available
- Re: gnus-posting-styles confusing, आशीष शुक्ल Ashish Shukla, 2007/08/13
- Re: gnus-posting-styles confusing, Exal de Jesus Garcia Carrillo, 2007/08/13
- Re: gnus-posting-styles confusing, Sivaram Neelakantan, 2007/08/13
- Re: gnus-posting-styles confusing, Tassilo Horn, 2007/08/13
- Message not available
- Re: gnus-posting-styles confusing, Adam Sjøgren, 2007/08/13
- Re: gnus-posting-styles confusing, आशीष शुक्ल Ashish Shukla, 2007/08/14
- Message not available
- Re: gnus-posting-styles confusing,
आशीष शुक्ल Ashish Shukla <=
- Re: gnus-posting-styles confusing, Tassilo Horn, 2007/08/14
- Message not available
- Re: gnus-posting-styles confusing, आशीष शुक्ल Ashish Shukla, 2007/08/14