projects
/
mymail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cosmetics.
[mymail.git]
/
mymail-vm.el
diff --git
a/mymail-vm.el
b/mymail-vm.el
index
5d31d6a
..
10bcb7d
100644
(file)
--- a/
mymail-vm.el
+++ b/
mymail-vm.el
@@
-21,10
+21,16
@@
;; (add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
;;
;; to your .emacs
;; (add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
;;
;; to your .emacs
+;;
+;; I also use
+;;
+;; (define-key vm-summary-mode-map "\\" 'mymail/vm-visit-folder)
+;;
+;; So that pressing "\" in the summary start a search with mymail
(defgroup mymail ()
(defgroup mymail ()
- "Command to visit a folder buil
d
on-the-fly with mymail"
- :version "0.9.
5
")
+ "Command to visit a folder buil
t
on-the-fly with mymail"
+ :version "0.9.
8
")
(defcustom mymail/default-additional-search-requests ""
"Comma-separated list of search requests to add to any search"
(defcustom mymail/default-additional-search-requests ""
"Comma-separated list of search requests to add to any search"
@@
-77,7
+83,8
@@
prefaced with \\."
(if (= (apply 'call-process
(nconc (list "mymail" nil nil nil
"--output" mbox-name
(if (= (apply 'call-process
(nconc (list "mymail" nil nil nil
"--output" mbox-name
- "--default-search" "p")
+ "--default-search" "p"
+ "--nb-mails-max" "500")
search-args))
0)
(vm-visit-folder mbox-name t)
search-args))
0)
(vm-visit-folder mbox-name t)