From: Francois Fleuret Date: Sat, 13 Nov 2010 10:23:07 +0000 (+0100) Subject: Misc changes. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ba6c861c5c215cd9b3e1e1a15c2f01999ee329e;p=elisp.git Misc changes. --- diff --git a/vm b/vm index 318213b..6f41d75 100644 --- a/vm +++ b/vm @@ -1,4 +1,4 @@ -;; -*-Emacs-Lisp-*- +;; -*- mode: Emacs-Lisp; mode: rainbow; -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; This program is free software: you can redistribute it and/or modify ;; @@ -33,6 +33,7 @@ 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 " > " @@ -150,9 +151,14 @@ ;; "w3m -cols 75 -graph -dump -T text/html" ;; )) +;; (add-to-list 'vm-mime-type-converter-alist + ;; '("text/html" "text/plain" + ;; "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 @@ -299,7 +305,7 @@ attachement from mail." ;; To have a slightly darker background for headers (ff/configure-faces - '((ff/mail-header-face :background "#d0d0e8")) + '((ff/mail-header-face :background "#c8c8ff")) ) (defun ff/colorize-headers () (interactive) @@ -313,8 +319,6 @@ attachement from mail." ;; (vm-matched-header-contents-end) (point-min) (point-at-bol) - ;; '(face (:background "gray85")) - ;; '(face (:background "gray50" :foreground "gray95")) '(face ff/mail-header-face) ) ))) @@ -348,7 +352,9 @@ attachement from mail." (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) @@ -372,13 +378,14 @@ attachement from mail." "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)) )