projects
/
mymail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6bbb61e
)
Add a documentation string, and ignore the default search if it is prefaced with \.
author
Francois Fleuret
<francois@fleuret.org>
Wed, 6 Feb 2013 20:09:39 +0000
(21:09 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Wed, 6 Feb 2013 20:09:39 +0000
(21:09 +0100)
mymail-vm.el
patch
|
blob
|
history
diff --git
a/mymail-vm.el
b/mymail-vm.el
index
db10a86
..
6e72e2e
100644
(file)
--- a/
mymail-vm.el
+++ b/
mymail-vm.el
@@
-23,6
+23,13
@@
:type 'string)
(defun mymail/vm-visit-folder (param)
:type 'string)
(defun mymail/vm-visit-folder (param)
+ "Read a comma-separated list of search requests for mymail,
+create a temporary mbox with the resulting mails, and open it in
+vm with `vm-visit-folder'.
+
+The string `mymail/default-search-request' is automatically
+concatenated to the provided request, except if the request is
+prefaced with \\."
(interactive
(list (read-string "mymail: " nil 'mymail-vm-history)))
(interactive
(list (read-string "mymail: " nil 'mymail-vm-history)))
@@
-36,7
+43,9
@@
(lambda (searche-request)
(if (not (string= searche-request ""))
(list "-s" searche-request)))
(lambda (searche-request)
(if (not (string= searche-request ""))
(list "-s" searche-request)))
- (split-string (concat param "," mymail/default-search-request) ",")
+ (if (string= (substring param 0 1) "\\")
+ (split-string (substring param 1 nil))
+ (split-string (concat param "," mymail/default-search-request) ","))
)))
)
)))
)