Highlight only the full word, not the occurrences as a part.

[elisp.git] / vm

diff --git a/vm b/vm
index 458d30d..318213b 100644 (file)
--- 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"
@@ -299,10 +299,8 @@ attachement from mail."
 ;; To have a slightly darker background for headers
 
 (ff/configure-faces
- '((ff/mail-header-face
-    ;; :background "#ffe090"
-    :background "#d8d8e0"
-    )))
+ '((ff/mail-header-face :background "#d0d0e8"))
+ )
 
 (defun ff/colorize-headers () (interactive)
   (let ((inhibit-read-only t))
@@ -324,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
 
@@ -400,7 +412,7 @@ attachement from mail."
 
   (interactive "FFind file: \np")
 
-  (if (string-match "^\\(mail\\|sent-mail\\)-[^/]+$"
+  (if (string-match "^\\(mail\\|sent\\)-[^/]+$"
                     (file-name-nondirectory filename))
 
       (if (find-buffer-visiting filename)
@@ -503,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)