summaryrefslogtreecommitdiff
path: root/config.el
blob: 598d8d9832c2520786e454cf992d3f2f53a7d3eb (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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
;; Not much related configurations
(defvar notmuch-hello-refresh-count 0)
(setq mail-user-agent 'message-user-agent)

(custom-set-variables
 '(message-send-hook (quote (notmuch-message-mark-replied)))
 '(notmuch-address-command "notmuch-addrlookup")
 '(notmuch-always-prompt-for-sender t)
 '(notmuch-crypto-process-mime t)
 '(notmuch-fcc-dirs
   (quote
    (("vasudev-debian@copyninja.info" . "vasudev-debian/Sent")
     ("vasudev@debian.org" . "vasudev-debian/Sent")
     ("vasudev@copyninja.info" . "vasudev/Sent")
     ("kamathvasudev@gmail.com" . "Gmail-1/Sent"))))
 '(notmuch-hello-tag-list-make-query "tag:unread")
 '(notmuch-message-headers (quote ("Subject" "To" "Cc" "Bcc" "Date" "Reply-To")))
 '(notmuch-saved-searches
   (quote
    ((:name "debian-devel" :query "tag:vasudev-debian/debian-devel and tag:unread")
     (:name "debian-fonts" :query "tag:vasudev-debian/debian-fonts and tag:unread")
     (:name "debian-india" :query "tag:vasudev-debian/debian-india and tag:unread")
     (:name "debian-devel-announce" :query "tag:vasudev-debian/debian-devel-announce and tag:unread")
     (:name "Plan9 and 9Front" :query "tag:vasudev/9fans and and tag:vasudev/9front and tag:unread")
     (:name "rkrishnan" :query "tag:vasudev/rkrishnan and tag:unread")
     (:name "vasudev/INBOX" :query "tag:vasudev/INBOX and tag:unread")
     (:name "vasudev-debian/INBOX" :query "tag:vasudev-debian/INBOX and tag:unread")
     (:name "debian-project" :query "tag:vasudev-debian/debian-project and tag:unread")
     (:name "libindic-dev" :query "tag:vasudev/libindic-dev and tag:unread")
     (:name "TODO" :query "tag:TODO")
     (:name "debian-rust" :query "tag:vasudev-debian/pkg-rust and tag:unread")
     (:name "Tahoe Development" :query "tag:vasudev/tahoe-dev and tag:unread")
     (:name "Intrigeri conversations" :query "tag:vasudev/nm-process and tag:unread")
     (:name "pkg-multimedia" :query "tag:vasudev-debian/pkg-multimedia and tag:unread and subject:.*rem.*")
     (:name "pkg-voip" :query "tag:vasudev-debian/pkg-voip and tag:unread and (subject:.*biboumi.* or subject:.*baresip.* or subject:.*libre.*)"))))
 '(notmuch-search-line-faces
   (quote
    (("deleted" :foreground "red")
     ("unread" :weight bold)
     ("flagged" :foreground "blue"))))
 '(notmuch-search-oldest-first nil)
 '(notmuch-show-all-multipart/alternative-parts nil)
 '(notmuch-show-all-tags-list t)
 '(notmuch-show-insert-text/plain-hook
   (quote
    (notmuch-wash-convert-inline-patch-to-part notmuch-wash-tidy-citations
                                               notmuch-wash-elide-blank-lines
                                               notmuch-wash-excerpt-citations))))

(add-hook 'notmuch-hello-refresh-hook 'notmuch-hello-refresh-status-message)

;; SMTP mail multi related configurations
(setq smtpmail-multi-accounts
      '((copyninja-mail "vasudev" "localhost" 25
                        header nil nil nil "rudra")
        (gmail-primary nil "localhost" 25
                       header nil nil nil "rudra")))
(setq smtpmail-multi-assosications
      '((("From" . "kamathvasudev@gmail.com")
         gmail-primary)
        (("From" . "vasudev@copyninja.info")
         copyninja-mail)
        (("From" . "vasudev@debian.org")
         copyninja-mail)))

;; Message sending functions
(setq send-mail-function 'smtpmail-multi-send-it
      message-send-mail-function 'smtpmail-multi-send-it
      smtpmail-auth-credntials "/home/vasudev/.authinfo.gpg")


;; GNUS posting style
(require 'gnus-art)
(setq gnus-posting-styles
      '(((header "to" "kamathvasudev@gmail.com")
         (address "kamathvasudev@gmail.com"))
        ((header "to" "vasudev@copyninja.info")
         (address "vasudev@copyninja.info"))
        ((header "to" "vasudev-debian@copyninja.info")
         (address "vasudev@debian.org"))
        ((header "to" "vasudev@debian.org")
         (address "vasudev@debian.org"))))

;; Enable bbdb configurations
(require 'bbdb-loaddefs)
(require 'bbdb)
(bbdb-initialize 'message 'gnus 'sendmail)
(setq bbdb-file "~/.bbdb.db")

;; size of bbdb popup
(setq bbdb-pop-up-window-size 10)

;; What do we do when invoking bbdb interactively
(setq bbdb-mua-update-interactive-p '(query . create))

;; Make sure we look at every address in a message and not only the
;; first one
(setq bbdb-message-all-addresses t)

(setq bbdb/mail-auto-create-p t
      bbdb/news-auto-create-p t)

(add-hook 'message-mode-hook
          '(lambda ()
             (flyspell-mode t)
             (local-set-key "<TAB>" 'bbdb-complete-name)))