blob: ea07e15284ec3dd1d632ff321577817d085b6248 (
plain) (
blame)
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
;; -*- Emacs-Lisp -*-
(setq vm-imap-account-alist
'(
("imap:localhost:143:*:login:ryan:*" "local")
("imap-ssl:imap.google.com:993:*:login:ryanakca:*" "gmail")
)
)
(setq vm-primary-inbox "imap:localhost:143:INBOX:login:ryan:*")
; Setup coloring
(require 'u-vm-color)
(add-hook 'vm-select-message-hook 'u-vm-color-fontify-buffer)
(add-hook 'vm-summary-mode-hook 'u-vm-color-summary-mode)
; Setup a shortcut to the whole visit-imap-folder nonsense
(defalias 'imap 'vm-visit-imap-folder)
; Keep the -> line centered
(setq vm-auto-center-summary t)
; Enable multiple sender profiles
(require 'vm-pcrisis)
(vmpc-my-identities "rak@debian.org" "ryanakca@gmail.com"
"ryan.kavanagh@queensu.ca" "9rak@queensu.ca"
"ryanakca@kubuntu.org" "ryanakca@ubuntu.com"
"ryan@cs.queensu.ca" "ryank@cs.mcgill.ca"
"ryan.kavanagh@mail.mcgill.ca")
(setq vmpc-conditions
'( ("QueensU"
(vmpc-folder-match ".*QueensU.*"))
("ToDeb"
(vmpc-header-match "To" ".*debian.org"))
("default"
(vmpc-folder-account-match "local"))
) )
(setq vmpc-actions
'( ("FromQ"
(vmpc-composition-buffer
(setq user-mail-address "ryan.kavanagh@queensu.ca") ) )
("FromQCS"
(vmpc-composition-buffer
(setq user-mail-address "ryan@cs.queensu.ca") ) )
("FromDeb"
(vmpc-composition-buffer
(setq user-mail-address "rak@debian.org") ) )
) )
(setq vmpc-default-rules
'( ("default" "FromDeb")
("QueensU" "FromQ")
) )
(setq vmpc-reply-rules
'( ("ToDeb" "FromDeb")
) )
;; Store login info in .authinfo.gpg
(require 'auth-source)
;; Display whole message, require <SPC> to mark as read
(setq vm-preview-lines t)
;; bind ! to flag a message
(define-key vm-mode-map "!" 'vm-toggle-flag-message)
;; We'll always be saving to an imap server
(define-key vm-mode-map "s" 'vm-save-message-to-imap-folder)
;; We'll always be switching to an imap server
(define-key vm-mode-map "v" 'vm-visit-imap-folder)
;; assume we're saving to the same imap server
(setq vm-imap-save-to-server t)
;; delete a message after saving it
(setq vm-delete-after-saving t)
;; move to the next message after deleting
(setq vm-move-after-deleting t)
;; move to the next message after reading
(setq vm-move-after-reading t)
;; ask before creating a new folder to save to
(setq vm-confirm-new-folders t)
;; Automatically verify mime signatures
(setq vm-mime-verify-signatures t)
;; Ident threads
(setq-default vm-summary-show-threads t)
;; Don't try to load entire messages into memory at startup.
(setq vm-enable-external-messages '(imap))
(setq vm-imap-max-message-size 0)
;; Set attribution format
(setq vm-included-text-attribution-format "On %w, %m %2d, %y at %h %z, %F wrote:
")
;; Prefix included text by "> "
(setq vm-included-text-prefix "> ")
;; include text in reply
(setq vm-include-text-basic t)
;; summary format
(setq vm-summary-format "%n %*%a %-17.17F %2y %-3.3m %2d (%-4l) %4l/%-5c %I\"%s\"
")
;; fill paragraphs to 72 chars
(setq vm-fill-paragraphs-containing-long-lines-in-reply 72)
(setq vm-word-wrap-paragraphs-in-reply t)
;; BBDB
(require 'bbdb)
(bbdb-initialize 'vm)
(setq bbdb-send-mail-style 'vm)
;; signature
(setq mail-signature t)
(setq mail-signature-file "~/.signature")
;; gpg?
(require 'vm-pgg)
; prompt for signing
(add-hook 'vm-mail-send-hook 'vm-pgg-ask-hook t)
;; vim: set filetype=lisp:
|
