projects
/
elisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cosmetics.
[elisp.git]
/
vm
diff --git
a/vm
b/vm
index
f700c99
..
1c17c4e
100644
(file)
--- a/
vm
+++ b/
vm
@@
-27,8
+27,8
@@
(setq vm-auto-displayed-mime-content-types '(
"text"
(setq vm-auto-displayed-mime-content-types '(
"text"
- "image/jpeg"
- "image/png"
+
;;
"image/jpeg"
+
;;
"image/png"
"multipart"
"message/rfc822"
))
"multipart"
"message/rfc822"
))
@@
-50,7
+50,8
@@
vm-mutable-frames nil
vm-summary-thread-indent-level 1
;; vm-summary-uninteresting-senders-arrow "->"
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 "> "
;; vm-summary-uninteresting-senders-arrow "➔"
;; vm-summary-uninteresting-senders-arrow "➤"
vm-summary-arrow "> "
@@
-136,7
+137,7
@@
)
;; To force it to be converted to plain text
)
;; 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")
vm-mime-external-content-types-alist '(
("application/x-dvi" "xdvi")
@@
-176,10
+177,10
@@
;; "html2text -style pretty -nobs"
;; ))
;; "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"
(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)
(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)
"")))
(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
;; 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)
)
(defun ff/colorize-headers () (interactive)
@@
-541,6
+545,11
@@
an attachment")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If we can, encrypt!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)))
;; (defun ff/encrypt-mail-if-possible () (interactive)
;; (condition-case nil (mc-encrypt)
;; (error nil)))