projects
/
mymail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
953c4d5
)
Now logs error messages in /tmp/mymail.err.
author
Francois Fleuret
<francois@fleuret.org>
Tue, 29 Jul 2014 10:39:54 +0000
(12:39 +0200)
committer
Francois Fleuret
<francois@fleuret.org>
Tue, 29 Jul 2014 10:39:54 +0000
(12:39 +0200)
mymail-vm.el
patch
|
blob
|
history
diff --git
a/mymail-vm.el
b/mymail-vm.el
index
10bcb7d
..
1f9329f
100644
(file)
--- a/
mymail-vm.el
+++ b/
mymail-vm.el
@@
-80,13
+80,21
@@
prefaced with \\."
(while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
(setq n (+ n 1)))
(while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
(setq n (+ n 1)))
+ ;; (message (prin1-to-string
+ ;; (nconc (list "mymail"
+ ;; "--output" mbox-name
+ ;; "--default-search" "p"
+ ;; "--nb-mails-max" "500")
+ ;; search-args))
+ ;; )
+
(if (= (apply 'call-process
(if (= (apply 'call-process
- (nconc (list "mymail" nil
nil
nil
+ (nconc (list "mymail" nil
'(nil "/tmp/mymail.err")
nil
"--output" mbox-name
"--default-search" "p"
"--nb-mails-max" "500")
search-args))
0)
(vm-visit-folder mbox-name t)
"--output" mbox-name
"--default-search" "p"
"--nb-mails-max" "500")
search-args))
0)
(vm-visit-folder mbox-name t)
- (message "mymail failed"))
+ (message "mymail failed
. See /tmp/mymail.err
"))
))
))