projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
10b4d51
)
Update.
author
Francois Fleuret
<francois@fleuret.org>
Tue, 18 Jun 2013 07:33:09 +0000
(09:33 +0200)
committer
Francois Fleuret
<francois@fleuret.org>
Tue, 18 Jun 2013 07:33:09 +0000
(09:33 +0200)
vm
patch
|
blob
|
history
diff --git
a/vm
b/vm
index
8e25489
..
71e6629
100644
(file)
--- a/
vm
+++ b/
vm
@@
-532,6
+532,7
@@
an attachment")
(add-hook 'vm-mail-send-hook 'flyspell-mode-off)
;; Append so that it happens after the mime encoding
;; (add-hook 'vm-mail-send-hook 'ff/check-badly-encoded-address t)
(add-hook 'vm-mail-send-hook 'flyspell-mode-off)
;; Append so that it happens after the mime encoding
;; (add-hook 'vm-mail-send-hook 'ff/check-badly-encoded-address t)
+
;; Append this hook so that it runs after all other checks
(add-hook 'vm-mail-send-hook 'ff/dissociate-file-from-vm-mail-buffer t)
;; Append this hook so that it runs after all other checks
(add-hook 'vm-mail-send-hook 'ff/dissociate-file-from-vm-mail-buffer t)
@@
-542,10
+543,11
@@
an attachment")
(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)
(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)
+(add-hook 'vm-presentation-mode-hook 'mc-install-read-mode)
;; (defun ff/encrypt-mail-if-possible () (interactive)
;; (defun ff/encrypt-mail-if-possible () (interactive)
-
;; (condition-case nil (mc-encrypt
)
-;; (error nil)))
+
;; (condition-case nil (mc-encrypt-message
)
+
;; (error nil)))
;; (add-hook 'vm-mail-send-hook 'ff/encrypt-mail-if-possible t)
;; (add-hook 'vm-mail-send-hook 'ff/encrypt-mail-if-possible t)
@@
-558,7
+560,8
@@
an attachment")
(defun ff/goto-next-mail-field () (interactive)
(let ((field (save-excursion
(end-of-line)
(defun ff/goto-next-mail-field () (interactive)
(let ((field (save-excursion
(end-of-line)
- (re-search-backward (concat "\\(^[a-zA-Z\-]*: \\|^" mail-header-separator "$\\)") nil t)
+ (re-search-backward
+ (concat "\\(^[a-zA-Z\-]*: \\|^" mail-header-separator "$\\)") nil t)
(match-string 1))))
(cond ((string= field "To: ")
(match-string 1))))
(cond ((string= field "To: ")
@@
-593,6
+596,7
@@
an attachment")
t)
(substitute-key-definition 'next-line 'mail-abbrev-next-line vm-mail-mode-map global-map)
t)
(substitute-key-definition 'next-line 'mail-abbrev-next-line vm-mail-mode-map global-map)
+
(substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer vm-mail-mode-map global-map)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer vm-mail-mode-map global-map)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;