X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=vm;h=318213b6e4d30ac5cd582c61801818472c84decb;hb=16f950b489d03a23e80080626bcadfafe24b3f98;hp=319968dec3dbf3eede60bf3e9e93ad685b86c9d9;hpb=45e682fbdb4a5f3ba322498315ebb0e452e927f4;p=elisp.git

diff --git a/vm b/vm
index 319968d..318213b 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
 
@@ -398,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)
@@ -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)