From: Francois Fleuret <francois@fleuret.org>
Date: Sun, 21 Mar 2010 20:37:44 +0000 (+0100)
Subject: *** empty log message ***
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d3d27fdd2ebfd6b9edcce28ef57503d7beb3083;p=elisp.git

*** empty log message ***
---

diff --git a/vm b/vm
index 319968d..5d7739e 100644
--- a/vm
+++ b/vm
@@ -146,9 +146,9 @@
 ;; (add-to-list 'vm-mime-type-converter-alist '("text/html" "text/plain" "lynx -nolist -force_html -dump -stdin"))
 
 ;; (add-to-list 'vm-mime-type-converter-alist
-             ;; '("text/html" "text/plain"
-               ;; "w3m -cols 75 -graph -dump -T text/html"
-               ;; ))
+;; '("text/html" "text/plain"
+;; "w3m -cols 75 -graph -dump -T text/html"
+;; ))
 
 (add-to-list 'vm-mime-type-converter-alist
              '("text/html" "text/plain"
@@ -322,6 +322,20 @@ attachement from mail."
 (defadvice vm-highlight-headers (after ff/colorize-headers nil activate)
   (ff/colorize-headers))
 
+(defun ff/highlight-important-words ()
+  (let ((inhibit-read-only t))
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward "Fleuret" nil t)
+        (message "%d-%d"  (match-beginning 0) (match-end 0))
+        ;; (add-text-properties (match-beginning 0) (match-end 0)
+                             ;; '(face (:background "red"))
+                             ;; )
+        ))
+    ))
+
+;; (add-hook 'vm-select-message-hook 'ff/highlight-important-words)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; I want to have a file associated to every mail I am writing
 
@@ -501,8 +515,8 @@ an attachment")
 ;; If we can, encrypt!
 
 ;; (defun ff/encrypt-mail-if-possible () (interactive)
-  ;; (condition-case nil (mc-encrypt)
-    ;; (error nil)))
+;; (condition-case nil (mc-encrypt)
+;; (error nil)))
 
 ;; (add-hook 'vm-mail-send-hook 'ff/encrypt-mail-if-possible t)