From: Francois Fleuret Date: Tue, 29 Jul 2014 10:39:54 +0000 (+0200) Subject: Now logs error messages in /tmp/mymail.err. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=99c2641263ec72ae9721ef8eb667c5bb2cf03fc4;p=mymail.git Now logs error messages in /tmp/mymail.err. --- diff --git a/mymail-vm.el b/mymail-vm.el index 10bcb7d..1f9329f 100644 --- 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))) + ;; (message (prin1-to-string + ;; (nconc (list "mymail" + ;; "--output" mbox-name + ;; "--default-search" "p" + ;; "--nb-mails-max" "500") + ;; search-args)) + ;; ) + (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) - (message "mymail failed")) + (message "mymail failed. See /tmp/mymail.err")) ))