Gnus
No gnus is bad news. Sometimes it's good news.
This is my ~/.gnus for Gnus.
;; -*- emacs-lisp -*-
;;
;; ~/.gnus
;;
;; don't forget to subscribe to imap folders for the first time
;;
;; Thomas Krennwallner <tkren at kr dot tuwien dot ac dot at>
;;
;;
;; Personal settings
;;
(setq user-full-name "Thomas Krennwallner")
(setq user-mail-address "tkren AT NOSPAM kr DOT tuwien DOT ac DOT at")
(setq message-from-style 'angles)
(setq mail-host-address "kr.tuwien.ac.at")
(setq message-syntax-checks '((sender . disabled)))
(setq message-generate-headers-first t)
(setq mail-self-blind t) ;; bcc to tkren
;;
;; Personal email addresses
;;
(setq my-email-addresses (concat "\\("
"tkren AT NOSPAM kr DOT tuwien DOT ac DOT at" "\\|"
"thomas DOT krennwallner AT NOSPAM tuwien DOT ac DOT at"
"\\)"
)
)
;;
;; Personal headers
;;
(setq message-default-headers (concat
"X-Face: (AyZfZV\"!KH\"MTF)t0v,Brpg61vAyl\"x9NyDm/gakdi<9.\\\\aDlytY^1}O.[K_0EEbI9rD6 1CVK9qr7p-v9=5r!Q4eoGAcYQ|c$n)N\\@5*`b0%2eS/bt<E\\Zh[IWt#t[-(ic(z\")@ObL0wlp=OB\n"
;;"X-Accept-Language: en,de\n"
;;"X-Operating-System: Debian GNU/Linux\n"
"Organization: Vienna University of Technology\n")
)
;; only show these headers
(setq gnus-visible-headers
(concat
"^From:\\|^Subject:\\|^Newsgroups:"
"\\|^X-Newsreader:\\|^X-Mailer:\\|^User-Agent:"
"\\|^Message-ID:\\|^Organization:"
"\\|^To:\\|^Cc:\\|^Date:"
"\\|^X-Accept-Language:\\|^X-GPG-Key:\\|^X-GPG-Fingerprint:"
)
)
;; don't bugger me with dribbles
(setq gnus-always-read-dribble-file t)
;; don't bugger me with session password
(setq imap-store-password t)
;; archive sent messages
;;(setq gnus-message-archive-group "INBOX.sent-mail")
;;(setq gnus-message-archive-method '(nnimap "bigfish"))
(setq gnus-message-archive-method '(nnimap "gmail"))
(setq gnus-message-archive-group nil)
;;[Gmail]
;; my prefered threaded view:
;;
;; *
;; |->
;; | `->
;; `->
;;
(setq gnus-sum-thread-tree-root "* ")
(setq gnus-sum-thread-tree-single-indent "* ")
(setq gnus-sum-thread-tree-leaf-with-other "|-> ")
(setq gnus-sum-thread-tree-vertical "|")
(setq gnus-sum-thread-tree-single-leaf "`-> ")
(setq gnus-summary-same-subject "")
(copy-face 'default 'mysubject)
(setq gnus-face-1 'mysubject)
(copy-face 'default 'mytime)
(set-face-foreground 'mytime "indianred4")
(setq gnus-face-2 'mytime)
(copy-face 'default 'mythreads)
(set-face-foreground 'mythreads "indianred4")
(setq gnus-face-3 'mythreads)
(copy-face 'default 'mygrey)
(set-face-foreground 'mygrey "grey")
(setq gnus-face-4 'mygrey)
(copy-face 'default 'myblack)
(set-face-foreground 'myblack "grey60")
(setq gnus-face-5 'myblack)
(copy-face 'default 'mybiggernumbers)
(set-face-foreground 'mybiggernumbers "indianred4")
(setq gnus-face-6 'mybiggernumbers)
;;
;; my prefered summary format
;;
(setq gnus-summary-line-format (concat
"%*%5{%U%R%z%}"
"%4{|%}"
"%2{%-10&user-date;%}"
"%4{|%}"
"%2{ %}%(%-24,24n"
"%4{|%}"
"%2{%5i%}"
"%4{|%}"
"%2{%6k %}%)"
"%4{|%}"
"%2{ %}%3{%B%}%1{%s%}\n")
)
;;
;; use random signatures via randomsig.el
;;
;;(require 'randomsig)
;;(define-key message-mode-map (kbd "C-c s") 'randomsig-replace-sig)
;;(define-key message-mode-map (kbd "C-c S") 'randomsig-select-sig)
;;(require 'gnus-sum) ; probably required for `gnus-summary-save-map'
;;(define-key gnus-summary-save-map "-" 'gnus/randomsig-summary-read-sig)
;;(setq randomsig-dir "~/.signatures")
;;(setq randomsig-files (randomsig-search-sigfiles))
;;(setq message-signature 'randomsig-signature)
;;
;; Wrap at 72 cols.
;;
(add-hook 'message-mode-hook
'(lambda()
(turn-on-auto-fill)
(setq fill-column 72)
)
)
;;
;; Setup GPG/PGP
;;
;;(require 'pgg)
;;(setq pgg-cache-passphrase 't)
;;(setq pgg-passphrase-cache-expiry 3000)
;; (setq pgg-query-keyserver 't)
;; (setq pgg-default-user-id "djmaecki AT NOSPAM DOT ull DOT at")
;; (setq pgg-default-scheme 'gpg)
;; (setq mm-verify-option 'always)
;; (setq mm-decrypt-option 'always)
;; (setq gnus-buttonized-mime-types '("multipart/encrypted" "multipart/signed"))
;; (add-hook 'gnus-message-setup-hook 'mml-secure-message-sign-pgpmime)
;;
;; news server
;;
;;(setq gnus-select-method '(nntp "news.tuwien.ac.at"))
(setq gnus-select-method '(nnimap "gmail"
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo")
))
;;
;; incoming mails
;;
;; (setq gnus-secondary-select-methods '((nnimap "bigfish"
;; (nnimap-address "localhost")
;; (nnimap-server-port 22143)
;; (nnimap-nov-is-evil t)
;; (nnimap-authinfo-file "~/.authinfo")
;; )
;; (nnml "zaphod")
;; )
;; )
(setq gnus-secondary-select-methods '((nnimap "deri"
(nnimap-address "evs1.nuigalway.ie")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo")
)
(nnimap "bigfish"
(nnimap-address "bigfish.ull.at")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo")
)
)
)
(setq gnus-permanently-visible-groups "gmail")
;; sent mail
(setq starttls-use-gnutls t
starttls-gnutls-program "gnutls-cli"
starttls-extra-arguments nil
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-default-smtp-server "smtp.gmail.com"
smtpmail-local-domain "kr.tuwien.ac.at"
send-mail-function 'smtpmail-send-it
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-service 587
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
smtpmail-auth-credentials "~/.authinfo"
;; smtpmail-auth-credentials '(("smtp.gmail.com" 587 "krennwallner@gmail.com" nil))
;; smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
)
;; don't clutter ~/Mail/ with IncomingXXXX files
;; Development versions of Gnus save incoming mails
(setq mail-source-delete-incoming t)
;;
;; scan for new messages
;;
(gnus-demon-add-handler `gnus-demon-scan-news 5 5)
(gnus-demon-init)
;; integrate bbdb
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
;;(setq gnus-article-wash-function 'w3)
;;(setq mm-text-html-renderer 'w3)