dotfiles

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

commit 2f0b6c27adcdd00978bbac1e369c027cee83123a
parent 8f40b23429073f54e638e4ab83b853716ac65e98
Author: rsiddharth <rsiddharth@ninthfloor.org>
Date:   Fri, 10 Jun 2016 23:53:16 +0000

.gnus.el: posting styles; too long broke it down.

Fuck yeah.

Diffstat:
.gnus.el | 61+++++++++++++++++++++++++++++++++++++++++++------------------
1 file changed, 43 insertions(+), 18 deletions(-)

diff --git a/.gnus.el b/.gnus.el @@ -46,25 +46,50 @@ (".*outlook.office365.com.*" "nnimap+outlook.office365.com:Sent") (".*" "archive"))) -;; too long. break it down. +(defun rsd/smtp-method (server) + "Return X-Message-SMTP-Method pair for SERVER. + +SERVER is the hostname of the smtp server. The port is assumed to +be 587. +" + (let ((smtp "smtp") (port "587")) + `("X-Message-SMTP-Method" + ,(concat smtp " " server " " port)))) + +;; zarking posting styles +(defun rsd/default-posting-style () + "Return default posting style." + `(".*" + (name "rsiddharth") + (address "rsd@gnu.org") + ,(rsd/smtp-method "fencepost.gnu.org"))) + +(defun rsd/s-posting-style () + "Return ricketyspace posting style." + `(".*ricketyspace.net.*" + (address "s@ricketyspace.net") + ,(rsd/smtp-method "ricketyspace.net"))) + +(defun rsd/nf-posting-style () + "Return ninthfloor posting style." + `(".*ninthfloor.org.*" + (address "rsiddharth@ninthfloor.org") + ,(rsd/smtp-method "mail.ninthfloor.org"))) + +(defun rsd/bg-posting-style () + "Return bgsu posting style." + `(".*outlook.office365.com.*" + (name "Siddharth Ravikumar") + (address "sravik@bgsu.edu") + ;; sigh, dunno why "educational" institutions are moving to + ;; outlook :< + ,(rsd/smtp-method "outlook.office365.com"))) + (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@ninthfloor.org") - ("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")))) + `(,(rsd/default-posting-style) + ,(rsd/s-posting-style) + ,(rsd/nf-posting-style) + ,(rsd/bg-posting-style))) (defun rsd/gnus/get-msg-header (header) "Return value of HEADER in the message buffer."