Add vm advice for colouring

1 files changed, 11 insertions, 4 deletions

diff --git a/.vm b/.vm
index d2d3426..dc72d50 100644
--- a/.vm
+++ b/.vm
@@ -13,6 +13,17 @@
 (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)
+(defadvice vm-fill-paragraphs-containing-long-lines
+              (after u-vm-color activate)
+              (u-vm-color-fontify-buffer))
+(defadvice vm-show-current-message (after u-vm-color activate)
+    (u-vm-color-fontify-buffer-even-more))
+(defadvice vm-decode-mime-message (after u-vm-color activate)
+    (u-vm-color-fontify-buffer-even-more))
+
+;; fill paragraphs to 72 chars
+(setq vm-fill-paragraphs-containing-long-lines-in-reply 72)
+(setq vm-word-wrap-paragraphs-in-reply t)
 
 ; Setup a shortcut to the whole visit-imap-folder nonsense
 (defalias 'imap 'vm-visit-imap-folder)
@@ -149,10 +160,6 @@
 (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)