This repository has been archived on 2022-12-11. You can view files and clone it, but cannot push or open issues or pull requests.
dot-files/.gnus

94 lines
3.1 KiB
Plaintext

;; File: .gnus
;; Author: Collin J. Doering <rekahsoft@gmail.com>
;; Date: Jan 20, 2011
;; Description: Configuration file for gnus mail reader (in emacs-lisp)
(require 'smtpmail)
(setq smtpmail-debug-info t)
(setq nnmail-expiry-wait 2)
(setq nnmail-resplit-incoming t)
(setq user-mail-address "collin.doering@gmail.com")
(setq mail-host-address "gmail.com")
(setq gnus-message-archive-group "nnimap+collin.doering:INBOX.Sent")
(setq gnus-outgoing-message-group "nnimap+collin.doering:INBOX.Sent")
;; use smtp to send mail
(setq message-send-mail-function 'smtpmail-send-it
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
smtpmail-auth-credentials "~/.cd-authinfo"
smtpmail-default-smtp-server "smtp.gmail.com"
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587
smtpmail-local-domain "rekahsoft.homelinux.org")
;; set primary select method..
(setq gnus-select-method '(nnimap "collin.doering"
(remove-prefix "INBOX.")
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.cd-authinfo")))
;;
(setq gnus-secondary-select-methods
'((nnimap "rekahsoft"
(remove-prefix "INBOX.")
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo"))))
;; (nnimap "rekahsoft.mail"
;; (remove-prefix "INBOX.")
;; (nnimap-address "imap.gmail.com")
;; (nnimap-server-port 993)
;; (nnimap-stream ssl)
;; (nnimap-authinfo-file "~/.rkm-authinfo"))))
(remove-hook 'gnus-mark-article-hook
'gnus-summary-mark-read-and-unread-as-read)
(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)
;; setting up posting styles
(setq gnus-posting-styles
'((".*"
(address "collin.doering@gmail.com")
(name "Collin J. Doering"))
("rekahsoft@gmail.com"
(address "rekahsoft@gmail.com")
(name "Collin J. Doering (RekahSoft)"))))
;;gnus-group-line-format's default value was
;;"%M%S%p%P%5y:%B%(%g%)%l %O\n"
;;(setq gnus-group-line-format "%M%S%5y/%-5t: %uG %D\n")
(setq gnus-group-line-format "%M%S%p%P%5y:%B%(%uG%)%l %O\n")
(defun gnus-user-format-function-G (arg)
(concat (car (cdr gnus-tmp-method)) ":"
(or (gnus-group-find-parameter gnus-tmp-group 'display-name)
(let ((prefix (assq 'remove-prefix (cddr gnus-tmp-method))))
(if (and prefix
(string-match (concat "^\\("
(regexp-quote (cadr prefix))
"\\)")
gnus-tmp-qualified-group))
(substring gnus-tmp-qualified-group (match-end 1))
gnus-tmp-qualified-group)))))
(setq gnus-thread-hide-subtree t)
(setq gnus-summary-same-subject "")
(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 "`-> ")
(require 'gnus-demon)
(setq gnus-use-demon t)
(gnus-demon-add-handler 'gnus-group-get-new-news 10 2)
(gnus-demon-init)