Re: gnus-posting-styles confusing

["आशीष शुक्ल Ashish Shukla" <wahjava@gmail.com>]

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/