ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/gnus.el

Browse source
This commit is contained in:
Tom Willemsen 2012-11-07 18:52:39 +01:00
parent fdefffa218
commit 0dc0273a78
1 changed files with 13 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
.emacs.d/gnus.el
View file

@ -1,27 +1,22 @@
(setq gnus-select-method '(nntp "news.eternal-september.org")) (setq gnus-select-method '(nntp "news.gmane.org"))
(setq gnus-secondary-select-methods (setq gnus-secondary-select-methods
'((nnmaildir "gmail" '((nnmaildir "gmail"
(directory "~/documents/mail/gmail/")) (directory "~/documents/mail/gmail/"))
(nnmaildir "ninthfloor" (nnmaildir "ninthfloor"
(directory "~/documents/mail/ninthfloor/")) (directory "~/documents/mail/ninthfloor/"))
(nnmaildir "arch"
(directory "~/documents/mail/arch/"))
(nnmaildir "aethon" (nnmaildir "aethon"
(directory "~/documents/mail/aethon/")) (directory "~/documents/mail/aethon/"))
(nnmaildir "ryuslash" (nnmaildir "ryuslash"
(directory "~/documents/mail/ryuslash.org/")) (directory "~/documents/mail/ryuslash.org/"))))
(nntp "news.gmane.org"))) ; (nntp "news.gmane.org"))
(setq gnus-auto-subscribed-groups nil) (setq gnus-auto-subscribed-groups nil)
(setq gnus-save-newsrc-file nil) (setq gnus-save-newsrc-file nil)
(setq gnus-read-newsrc-file nil) (setq gnus-read-newsrc-file nil)
(setq gnus-novice-user t) (setq gnus-novice-user t)
(setq gnus-article-truncate-lines nil) (setq gnus-article-truncate-lines nil)
(setq message-send-mail-function 'message-send-mail-with-sendmail) (setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq sendmail-program "/usr/bin/msmtp") (setq sendmail-program "/usr/bin/msmtp")
(setq message-sendmail-extra-arguments '("-a" "gmail")) (setq message-sendmail-extra-arguments '("-a" "gmail"))
;; (setq gnus-parameters ;; (setq gnus-parameters
;; '(("gmail" ;; '(("gmail"
;; (display . all)) ;; (display . all))
@ -29,16 +24,19 @@
;; (display . all) ;; (display . all)
;; ("arch" ;; ("arch"
;; (display . all))))) ;; (display . all)))))
(setq gnus-permanently-visible-groups (setq gnus-permanently-visible-groups
"\\(gmail\\|aethon\\|arch\\|ninthfloor\\|ryuslash\\):INBOX") (eval-when-compile
(regexp-opt '("gmail:inbox"
"aethon:inbox"
"ninthfloor:inbox"
"ryuslash:inbox"))))
(setq nntp-marks-is-evil t) (setq nntp-marks-is-evil t)
(setq gnus-check-new-newsgroups nil) (setq gnus-check-new-newsgroups nil)
(setq gnus-posting-styles (setq gnus-posting-styles
'((".*" '((".*"
(address "tom@ryuslash.org")
(eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))
("gmail:"
(address "ryuslash@gmail.com") (address "ryuslash@gmail.com")
(eval (setq message-sendmail-extra-arguments '("-a" "gmail")))) (eval (setq message-sendmail-extra-arguments '("-a" "gmail"))))
("ninthfloor:" ("ninthfloor:"
@ -50,18 +48,10 @@
("aethon:" ("aethon:"
(address "thomas@aethon.nl") (address "thomas@aethon.nl")
(signature-file "~/documents/work/aethon/signature.txt") (signature-file "~/documents/work/aethon/signature.txt")
(eval (setq message-sendmail-extra-arguments '("-a" "aethon")))) (eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))))
("ryuslash:" (setq user-mail-address "tom@ryuslash.org")
(address "tom@ryuslash.org")
(eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))))
(setq user-mail-address "ryuslash@gmail.com")
(setq user-full-name "Tom Willemsen") (setq user-full-name "Tom Willemsen")
(add-hook 'gnus-summary-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-article-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-group-mode-hook '(lambda () (linum-mode -1)))
;-----[ BBDB ]-------------------------------------------------------- ;-----[ BBDB ]--------------------------------------------------------
;; (require 'bbdb) ;; (require 'bbdb)
;; (bbdb-initialize 'gnus 'message) ;; (bbdb-initialize 'gnus 'message)