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
|
I find font-locking email very useful for colouring quoted text
differently to the new text. In fact, Gnus manages to colour every
quoted message differently, which is very handy once you get three or
four different people quoting each other. Can you get VM to do this?
FWIW, here is the relevant bit of my .vm file (i use XEmacs which may
(not) be relevant). Before anyone asks i don't know why i need to use
both vm-mail-mode-hook and mail-setup-hook, but it works for me, and i
can't be bothered to sort it out.
(require 'highlight-headers)
;;colours
(set-face-foreground 'message-headers "darkslateblue")
(set-face-foreground 'message-header-contents "brown")
(set-face-foreground 'message-highlighted-header-contents "black")
(set-face-foreground 'message-cited-text "darkgreen")
(make-face-bold 'message-highlighted-header-contents)
(make-face-unitalic 'message-header-contents)
;;highlighting
(defconst kmc-vm-mail-font-lock-keywords
(purecopy
(list
'("^\\([-a-zA-Z0-9]+:\\)[ ]*\\(.*\\)$" 1 message-headers t)
'("^\\([-a-zA-Z0-9]+:\\)[ ]*\\(.*\\)$" 2 message-header-contents t)
'("Subject[ \t]*:[ ]*\\(.*\\)$" 1 message-highlighted-header-contents t)
(list (concat highlight-headers-citation-regexp
"\\(.*\\)$") 2 'message-cited-text t)
(list (concat "\\("
highlight-headers-citation-header-regexp
"\\)") 1 'message-headers t)
)))
(add-hook 'vm-mail-mode-hook
(lambda ()
(setq font-lock-keywords kmc-vm-mail-font-lock-keywords)
))
(add-hook 'mail-setup-hook
(lambda ()
(setq font-lock-keywords kmc-vm-mail-font-lock-keywords)
)
======================================================================
> I've found it useful when you can display the quoted portion in a
> grey-ish color, rather than my default white on black. It seems to
> make it easier to focus in on the reply parts. Certainly not
> critical, but I'd find it a very nice feature.
I had to add a new hook to VM for making that:
vm-presentation-mode-hook. Then, I use the following. It fontifies the
"From" and "Subject" lines, as well as URLs, quoted text and auto-MIME
decode zones.
======================================================================
(setq vm-font-lock-words
'(("^Subject: \\(.*\\)$" . font-lock-reference-face)
("^From: \\(.*\\)" . font-lock-type-face)
("^[>|}].*" . font-lock-comment-face)
("^.*\\\[Click .*\\\]$" . font-lock-variable-name-face)
("\\(file\\|ftp\\|gopher\\|http\\|https\\|news\\|wais\\|www\\)://[^ \t\n\f\r\"<>|()]*[^ \t\n\f\r\"<>|.!?(){}]" . font-lock-string-face)
)
)
(defun vm-fontify ()
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(vm-font-lock-words t))
(turn-on-font-lock))
(add-hook 'vm-mode-hook
'(lambda ()
(local-set-key "r" 'vm-followup)
(vm-fontify)))
(add-hook 'vm-presentation-mode-hook
'(lambda ()
(vm-fontify)))
|
