legacy-dotfiles/.emacs.d/gnus.el

61 lines
1.8 KiB
EmacsLisp
Raw Normal View History

2011-08-18 10:19:38 +02:00
(setq gnus-select-method '(nntp "news.eternal-september.org"))
(setq gnus-secondary-select-methods
'((nnmaildir "gmail"
(directory "~/documents/mail/gmail/"))
(nnmaildir "arch"
(directory "~/documents/mail/arch/"))
(nnmaildir "aethon"
(directory "~/documents/mail/aethon/"))
(nntp "news.gmane.org")
(nnrss "")))
2011-08-18 10:19:38 +02:00
(setq gnus-auto-subscribed-groups nil)
(setq gnus-save-newsrc-file nil)
(setq gnus-read-newsrc-file nil)
(setq gnus-novice-user t)
(setq gnus-article-truncate-lines nil)
2011-08-18 10:19:38 +02:00
(setq gnus-parameters
'(("gmail"
(display . all))
("aethon"
(display . all)
("arch"
(display . all)))))
(setq gnus-permanently-visible-groups
"\\(gmail\\|aethon\\|arch\\):INBOX")
2011-08-18 10:19:38 +02:00
(setq nntp-marks-is-evil t)
(setq gnus-check-new-newsgroups nil)
(setq gnus-posting-styles
'((".*" (address "ryuslash@gmail.com"))
("arch:" (address "tom.willemsen@archlinux.us"))
("aethon:"
(address "thomas@aethon.nl")
(signature-file "~/documents/work/aethon/signature.txt"))))
2011-08-18 10:19:38 +02:00
(setq user-mail-address "ryuslash@gmail.com")
(setq user-full-name "Tom Willemsen")
(load "tls")
(setq send-mail-function 'smtpmail-send-it
message-send-mail-function 'message-smtpmail-send-it
starttls-use-gnutls t
smtpmail-gnutls-credentials '(("smtp.gmail.com" 587 "ryuslash@gmail.com" nil))
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "ryuslash@gmail.com" nil))
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587
smtpmail-debug-info t
smtpmail-default-smtp-server "smtp.gmail.com")
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
2011-08-31 14:37:46 +02:00
;;; BBDB
(require 'bbdb)
(bbdb-initialize 'gnus 'message)
(bbdb-insinuate-gnus)