From 16d15b2b21e667f3c5fc77c270756ce7b246bd47 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 26 Aug 2014 10:44:53 +0200 Subject: Add picturefix mail settings - Add a mail indicator to the Awesome wibox. - Add a mailbox to Gnus - Add account information to OfflineIMAP --- emacs/.emacs.d/site-lisp/gnus-init.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/site-lisp') diff --git a/emacs/.emacs.d/site-lisp/gnus-init.el b/emacs/.emacs.d/site-lisp/gnus-init.el index 60093c4..5d58383 100644 --- a/emacs/.emacs.d/site-lisp/gnus-init.el +++ b/emacs/.emacs.d/site-lisp/gnus-init.el @@ -42,13 +42,15 @@ ;; (directory "~/documents/mail/aethon/")) (nnmaildir "ryuslash" (directory "~/documents/mail/ryuslash.org/")) + (nnmaildir "picturefix" + (directory "~/documents/mail/picturefix/")) (nntp "news.gwene.org"))) (setq gnus-auto-subscribed-groups nil) (setq gnus-save-newsrc-file nil) (setq gnus-read-newsrc-file nil) (setq gnus-article-truncate-lines nil) (setq gnus-permanently-visible-groups - (rx (and (or "gmail" "aethon" "ninthfloor" "ryuslash") + (rx (and (or "gmail" "aethon" "ninthfloor" "ryuslash" "picturefix") ":inbox"))) (setq gnus-check-new-newsgroups nil) (setq gnus-novice-user nil) @@ -62,6 +64,10 @@ ("ninthfloor:" (address "ryuslash@ninthfloor.org") (eval (setq message-sendmail-extra-arguments '("-a" "ninthfloor")))) + ("picturefix:" + (name "Tom Willemsen") + (address "tom@picturefix.nl") + (eval (setq message-sendmail-extra-arguments '("-a" "picturefix")))) ("arch:" (address "tom.willemsen@archlinux.us") (eval (setq message-sendmail-extra-arguments '("-a" "arch")))) @@ -73,7 +79,7 @@ (add-hook 'gnus-select-group-hook (lambda () (cond - ((string-match "aethon" + ((string-match (rx (or "aethon" "picturefix")) (gnus-group-real-name gnus-newsgroup-name)) (ispell-change-dictionary "nl")) (t (ispell-change-dictionary "en"))))) -- cgit v1.2.3-54-g00ecf