X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=vm;h=1b34b49567dd5992d71507460887e707d7b5368e;hb=6f9cb9511acc6e80bdce30e078b096008b9d7cf9;hp=5d7739ece36ee7a68985f0214cd807185ab941b7;hpb=0d3d27fdd2ebfd6b9edcce28ef57503d7beb3083;p=elisp.git

diff --git a/vm b/vm
index 5d7739e..1b34b49 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))
     )
@@ -412,7 +419,7 @@ attachement from mail."
 
   (interactive "FFind file: \np")
 
-  (if (string-match "^\\(mail\\|sent-mail\\)-[^/]+$"
+  (if (string-match "^\\(mail\\|sent\\)-[^/]+$"
                     (file-name-nondirectory filename))
 
       (if (find-buffer-visiting filename)
@@ -578,9 +585,9 @@ an attachment")
         (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)