+(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)
+