X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=vm;h=f863e60eca85a43de1c98e5ef231ddc9d0deb294;hb=85c4238d46e71c1ded36f9ba912d66a6de4db708;hp=f700c990792644f75b2799a7b5655705e19a8822;hpb=db114167e8e2c85fe63ab00fb9472df35666b10b;p=elisp.git
diff --git a/vm b/vm
index f700c99..f863e60 100644
--- a/vm
+++ b/vm
@@ -14,7 +14,7 @@
;; along with this program. If not, see . ;;
;; ;;
;; Written by and Copyright (C) Francois Fleuret ;;
-;; Contact < francois@fleuret.org > for comments & bug reports ;;
+;; Contact for comments & bug reports ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq-default vm-summary-show-threads t)
@@ -27,8 +27,8 @@
(setq vm-auto-displayed-mime-content-types '(
"text"
- "image/jpeg"
- "image/png"
+ ;; "image/jpeg"
+ ;; "image/png"
"multipart"
"message/rfc822"
))
@@ -50,7 +50,8 @@
vm-mutable-frames nil
vm-summary-thread-indent-level 1
;; vm-summary-uninteresting-senders-arrow "->"
- vm-summary-uninteresting-senders-arrow "âº"
+ ;; vm-summary-uninteresting-senders-arrow "âº"
+ vm-summary-uninteresting-senders-arrow ">"
;; vm-summary-uninteresting-senders-arrow "â"
;; vm-summary-uninteresting-senders-arrow "â¤"
vm-summary-arrow "> "
@@ -74,7 +75,7 @@
;; vm-summary-format " %*%A %-3.3m %2d %5US %I%UA %s\n"
vm-summary-format " %*%a %-3.3m %2d %5US %I%UA %s\n"
;; vm-highlighted-header-regexp "From:\\|Subject:\\|Cc:\\|To:\\|Bcc:\\|Reply-To:"
- vm-highlighted-header-regexp "From:\\|Subject:"
+ vm-highlighted-header-regexp "From:\\|Subject:\\|Reply-To:"
vm-auto-folder-case-fold-search t
@@ -97,7 +98,7 @@
)
;; (add-to-list 'vm-visible-headers "From " t)
-;; (add-to-list 'vm-visible-headers "Reply-To:" t)
+(add-to-list 'vm-visible-headers "Reply-To:" t)
;; (add-to-list 'vm-visible-headers "X-Mailer:" t)
;; (add-to-list 'vm-visible-headers "X-from-in-bbdb:" t)
;; (add-to-list 'vm-visible-headers "Return-Path:")
@@ -136,7 +137,7 @@
)
;; To force it to be converted to plain text
- vm-mime-internal-content-type-exceptions '("text/html")
+ ;; vm-mime-internal-content-type-exceptions '("text/html")
vm-mime-external-content-types-alist '(
("application/x-dvi" "xdvi")
@@ -176,10 +177,10 @@
;; "html2text -style pretty -nobs"
;; ))
-(add-to-list 'vm-mime-type-converter-alist
- '("text/html" "text/plain"
- "html2text.sh"
- ))
+;; (add-to-list 'vm-mime-type-converter-alist
+ ;; '("text/html" "text/plain"
+ ;; "html2text.sh"
+ ;; ))
(add-to-list 'vm-mime-type-converter-alist
'("image" "image/xpm"
@@ -275,7 +276,9 @@ attachement from mail."
(defun vm-summary-function-S (&optional message)
(let ((s (string-to-int (vm-su-byte-count message))))
(if (> s 32768)
- (propertize (concat (int-to-string (/ s 1024)) "k") 'face 'bold)
+ (propertize (concat (int-to-string (/ s 1024)) "k")
+ 'face 'italic
+ )
"")))
(defun ff/vm-delete-and-go-down () (interactive)
@@ -325,7 +328,8 @@ attachement from mail."
;; To have a slightly darker background for headers
(ff/configure-faces
- '((ff/mail-header-face :background "#c8c8ff"))
+ ;; '((ff/mail-header-face :background "#c8c8ff"))
+ '((ff/mail-header-face :foreground "blue4"))
)
(defun ff/colorize-headers () (interactive)
@@ -541,6 +545,11 @@ an attachment")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If we can, encrypt!
+(add-hook 'vm-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-summary-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-virtual-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-mail-mode-hook 'mc-install-write-mode)
+
;; (defun ff/encrypt-mail-if-possible () (interactive)
;; (condition-case nil (mc-encrypt)
;; (error nil)))