summaryrefslogtreecommitdiffstats
path: root/.emacs.d/gnus.el
blob: 1bf988a397be4864a60a8161b687c8d153b20a84 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
;; -*- eval: (git-auto-commit-mode 1) -*-
(setq gnus-select-method '(nntp "news.eternal-september.org"))
(setq gnus-secondary-select-methods
      '((nnmaildir "gmail"
                   (directory "~/documents/mail/gmail/"))
        (nnmaildir "ninthfloor"
                   (directory "~/documents/mail/ninthfloor/"))
        (nnmaildir "arch"
                   (directory "~/documents/mail/arch/"))
        (nnmaildir "aethon"
                   (directory "~/documents/mail/aethon/"))
        (nnmaildir "ryuslash"
                   (directory "~/documents/mail/ryuslash.org/"))
        (nntp "news.gmane.org")))

(setq gnus-auto-subscribed-groups nil)
(setq gnus-save-newsrc-file nil)
(setq gnus-read-newsrc-file nil)
(setq gnus-novice-user t)
(setq gnus-article-truncate-lines nil)

(setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq sendmail-program "/usr/bin/msmtp")
(setq message-sendmail-extra-arguments '("-a" "gmail"))

;; (setq gnus-parameters
;;       '(("gmail"
;;          (display . all))
;;         ("aethon"
;;          (display . all)
;;         ("arch"
;;          (display . all)))))

(setq gnus-permanently-visible-groups
      "\\(gmail\\|aethon\\|arch\\|ninthfloor\\|ryuslash\\):INBOX")

(setq nntp-marks-is-evil t)

(setq gnus-check-new-newsgroups nil)

(setq gnus-posting-styles
      '((".*"
         (address "ryuslash@gmail.com")
         (eval (setq message-sendmail-extra-arguments '("-a" "gmail"))))
        ("ninthfloor:"
         (address "ryuslash@ninthfloor.org")
         (eval (setq message-sendmail-extra-arguments '("-a" "ninthfloor"))))
        ("arch:"
         (address "tom.willemsen@archlinux.us")
         (eval (setq message-sendmail-extra-arguments '("-a" "arch"))))
        ("aethon:"
         (address "thomas@aethon.nl")
         (signature-file "~/documents/work/aethon/signature.txt")
         (eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))
        ("ryuslash:"
         (address "tom@ryuslash.org")
         (eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))))

(setq user-mail-address "ryuslash@gmail.com")
(setq user-full-name "Tom Willemsen")

(add-hook 'gnus-summary-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-article-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-group-mode-hook '(lambda () (linum-mode -1)))

;-----[ BBDB ]--------------------------------------------------------
(require 'bbdb)
(bbdb-initialize 'gnus 'message)
(bbdb-insinuate-gnus)
(setq bbdb-north-american-phone-numbers-p nil)