-;; -*-Emacs-Lisp-*-
+;; -*- mode: Emacs-Lisp; mode: rainbow; -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is free software: you can redistribute it and/or modify ;;
vm-confirm-new-folders t
vm-mutable-windows t
vm-mutable-frames nil
+ vm-summary-thread-indent-level 1
vm-summary-uninteresting-senders-arrow "->"
vm-summary-arrow "> "
vm-included-text-prefix " > "
;; (add-to-list 'vm-mime-type-converter-alist '("text/html" "text/plain" "cat"))
;; (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"
+;; ))
+
;; (add-to-list 'vm-mime-type-converter-alist
;; '("text/html" "text/plain"
- ;; "w3m -cols 75 -graph -dump -T text/html"
+ ;; "html2text -style pretty -nobs"
;; ))
(add-to-list 'vm-mime-type-converter-alist
'("text/html" "text/plain"
- "html2text -nobs"
+ "html2text.sh"
))
(add-to-list 'vm-mime-type-converter-alist
;; To have a slightly darker background for headers
(ff/configure-faces
- '((ff/mail-header-face
- ;; :background "#ffe090"
- :background "#d8d8e0"
- )))
+ '((ff/mail-header-face :background "#c8c8ff"))
+ )
(defun ff/colorize-headers () (interactive)
(let ((inhibit-read-only t))
;; (vm-matched-header-contents-end)
(point-min)
(point-at-bol)
- ;; '(face (:background "gray85"))
- ;; '(face (:background "gray50" :foreground "gray95"))
'(face ff/mail-header-face)
)
)))
(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
(set-visited-file-name (format
"%s/mail-%s"
ff/vm-mail-draft-directory
- (format-time-string "%04Y%02m%02d-%02H%02M%02S" (current-time))))
+ (format-time-string
+ "%04Y%02m%02d-%02H%02M%02S"
+ (current-time))))
(set-buffer-modified-p nil)))
(add-hook 'mail-setup-hook 'ff/associate-file-to-vm-mail-buffer)
"Save the file under a new name and set the associated file to nil."
(let ((bn (buffer-file-name)))
(when bn
- (set-visited-file-name (concat (file-name-directory bn)
- "sent-"
- (file-name-nondirectory bn)
- "-"
- (replace-regexp-in-string "[^a-zA-Z0-9]+" "_"
- (ff/mail-header-field "Subject"))
- ))
+ (set-visited-file-name
+ (concat (file-name-directory bn)
+ "sent-"
+ (file-name-nondirectory bn)
+ "-"
+ (replace-regexp-in-string "[^a-zA-Z0-9]+" "_"
+ (ff/mail-header-field "Subject"))
+ ))
(save-buffer)
(set-visited-file-name nil))
)
(interactive "FFind file: \np")
- (if (string-match "^\\(mail\\|sent-mail\\)-[^/]+$"
+ (if (string-match "^\\(mail\\|sent\\)-[^/]+$"
(file-name-nondirectory filename))
(if (find-buffer-visiting filename)
;; 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)
(ff/first-buffer-in-mode (cdr l) m))))
(defun ff/compose-mail (&optional force-new)
- "Switch to an existing buffer with major mode `mail-mode',
+ "Cycles through an existing buffers with major mode `mail-mode',
or invoke `vm-compose-mail' if none can be found or if FORCE-NEW
-is t. If already in a mail buffer, burry it and go to the next."
+is t."
(interactive "P")
(when (eq major-mode 'mail-mode) (bury-buffer))
(let ((buf (and (not force-new)