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
|
;-*-emacs-lisp-*-
;
; Various mail-related things I put in my .emacs file
;
; use abbrevs in (Resent-)?(To|Cc|Bcc): lines
(add-hook 'mail-setup-hook 'mail-abbrevs-setup)
; load my address book
(load-file "~/.abbrevs")
; set my email address
(setq user-mail-address "richard@elmail.co.uk")
; set quoting character for replies
(setq mail-yank-prefix ">")
; set default Fcc folder
(setq mail-archive-file-name "~/mail/sent-mail")
; see /usr/doc/examples/vm/README.hilit19 for what's going on here
(cond (window-system
(setq hilit-mode-enable-list '(not text-mode)
hilit-background-mode 'light
hilit-inhibit-hooks nil
hilit-inhibit-rebinding nil)
(require 'hilit19)
(add-hook 'vm-summary-pointer-update-hook 'hilit-rehighlight-buffer)
(add-hook 'vm-select-message-hook 'hilit-rehighlight-buffer)
(hilit-translate comment 'firebrick-bold)
(hilit-set-mode-patterns
'outline-mode
'(("^\*.*$" nil defun)
))
))
|
