projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3aa8b7a
)
Misc changes.
author
Francois Fleuret
<francois@fleuret.org>
Sat, 13 Nov 2010 10:23:07 +0000
(11:23 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Sat, 13 Nov 2010 10:23:07 +0000
(11:23 +0100)
vm
patch
|
blob
|
history
diff --git
a/vm
b/vm
index
318213b
..
6f41d75
100644
(file)
--- 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 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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-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 " > "
vm-summary-uninteresting-senders-arrow "->"
vm-summary-arrow "> "
vm-included-text-prefix " > "
@@
-150,9
+151,14
@@
;; "w3m -cols 75 -graph -dump -T text/html"
;; ))
;; "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"
(add-to-list 'vm-mime-type-converter-alist
'("text/html" "text/plain"
- "html2text
-nobs
"
+ "html2text
.sh
"
))
(add-to-list 'vm-mime-type-converter-alist
))
(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
;; 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)
)
(defun ff/colorize-headers () (interactive)
@@
-313,8
+319,6
@@
attachement from mail."
;; (vm-matched-header-contents-end)
(point-min)
(point-at-bol)
;; (vm-matched-header-contents-end)
(point-min)
(point-at-bol)
- ;; '(face (:background "gray85"))
- ;; '(face (:background "gray50" :foreground "gray95"))
'(face ff/mail-header-face)
)
)))
'(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
(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)
(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
"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))
)
(save-buffer)
(set-visited-file-name nil))
)