dotfiles

config files and scripts at HOME.
git clone git://git.ricketyspace.net/dotfiles.git
Log | Files | Refs

commit bd1b7c6fee6399769d271edbd1afdc12a760e138
parent 5ed26197e795f3984dc6e88a0e7626ed748e1fa1
Author: rsiddharth <rsiddharth@ninthfloor.org>
Date:   Sat,  2 Apr 2016 02:44:51 +0000

oh no, caught the gnus bug.

Diffstat:
.gnus.el | 77+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----
1 file changed, 73 insertions(+), 4 deletions(-)

diff --git a/.gnus.el b/.gnus.el @@ -1,6 +1,75 @@ -;; rsd's gnus.el file. +;; oh no, it is gnus :| -;;;;; ^ takes you to the *Server* that lists of servers Gnus knows -;;;;; about. -;;;;; (setq gnus-select-method '(nntp "news.gwene.org")) + +(setq mail-sources + '((file :path "/var/mail/rsd") + (pop :server "fencepost.gnu.org" + :port 995 + :authentication 'apop + :connection ssl))) + +(setq gnus-secondary-select-methods + '((nnml "") + ;; sigh, dunno why "educational" institutions are moving to + ;; outlook :< + (nnimap "outlook.office365.com") + (nnimap "ricketyspace.net"))) + +(setq nnmail-split-methods + '(("gnu-www-commits" "^To:.*?www-commits@gnu.org.*") + ("gnu-www-discuss" "^\\(To\\|Cc\\):.*?www-discuss@gnu.org.*") + ("gnu-www-rt" "^Reply-To:.*?webmasters\\(-comment\\)?@gnu.org.*") + ("mail.gnu" "^\\(To\\|Cc\\|Bcc\\):.*?rsd@gnu.org.*") + ("mail.misc" ""))) + +(setq send-mail-function 'smtpmail-send-it + message-send-mail-function 'smtpmail-send-it + smtpmail-stream-type 'starttls) + +(setq gnus-update-message-archive-method t + gnus-gcc-mark-as-read t) + +(setq gnus-message-archive-group + '((".*ricketyspace.net.*" "nnimap+ricketyspace.net:Sent") + (".*ninthfloor.org.*" "nnimap+mail.ninthfloor.org:Sent") + ;; sigh, dunno why "educational" institutions are moving to + ;; outlook :< + (".*outlook.office365.com.*" "nnimap+outlook.office365.com:Sent") + (".*" "archive"))) + +;; too long. break it down. +(setq gnus-posting-styles + '((".*" + (name "rsiddharth") + (address "rsd@gnu.org") + ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587")) + (".*ricketyspace.net.*" + (address "s@ricketyspace.net") + ("X-Message-SMTP-Method" "smtp ricketyspace.net 587")) + (".*ninthfloor.org.*" + (address "rsiddharth@ninth.su") + ("X-Message-SMTP-Method" "smtp mail.ninthfloor.org 587")) + ;; sigh, dunno why "educational" institutions are moving to + ;; outlook :< + (".*outlook.office365.com.*" + (name "Siddharth Ravikumar") + (address "sravik@bgsu.edu") + (signature-file "~/v/git/rsd/notes/personal/sig-bgc") + ("X-Message-SMTP-Method" "smtp outlook.office365.com 587")))) + +;; this is so ugly. fix it. +(add-hook 'message-setup-hook + (lambda () + (save-excursion + (save-restriction + (message-narrow-to-headers) + (let ((from (message-fetch-field "from"))) + (cond + ((string-match "sravik@bgsu.edu" from) + (setq mml2015-signers '("00B252AF"))) + ((string-match "rsd@gnu.org\\|rsiddharth@ninthfloor.org" from) + (setq mml2015-signers '("B6AD4643"))))))))) + +;; duh, add the vanity header. +(setq gnus-visible-headers (concat gnus-visible-headers "\\|^User-Agent:"))