diff options
| author |  Tom Willemse | 2014-08-26 10:44:53 +0200 |
|---|---|---|
| committer | Tom Willemse | 2014-08-26 10:45:38 +0200 |
| commit | 16d15b2b21e667f3c5fc77c270756ce7b246bd47 (patch) | |
| tree | de5a35b33a31fcd848478cac4d670d559bff54f3 /emacs/.emacs.d/site-lisp | |
| parent | 62d9ac00b3ef4396723870082b5ad717f7969bc2 (diff) | |
| download | dotfiles-16d15b2b21e667f3c5fc77c270756ce7b246bd47.tar.gz dotfiles-16d15b2b21e667f3c5fc77c270756ce7b246bd47.zip | |
Add picturefix mail settings
- Add a mail indicator to the Awesome wibox.
- Add a mailbox to Gnus
- Add account information to OfflineIMAP
Diffstat (limited to 'emacs/.emacs.d/site-lisp')
| -rw-r--r-- | emacs/.emacs.d/site-lisp/gnus-init.el | 10 |
1 files changed, 8 insertions, 2 deletions
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"))))) |