projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2bf63f3
)
*** empty log message ***
author
Francois Fleuret
<francois@fleuret.org>
Sun, 21 Mar 2010 20:37:44 +0000
(21:37 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Sun, 21 Mar 2010 20:37:44 +0000
(21:37 +0100)
vm
patch
|
blob
|
history
diff --git
a/vm
b/vm
index
319968d
..
5d7739e
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
;; (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"
(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))
(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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)
;; 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)
;; (add-hook 'vm-mail-send-hook 'ff/encrypt-mail-if-possible t)