From: Francois Fleuret 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)