From: Francois Fleuret Date: Wed, 6 Feb 2013 07:34:10 +0000 (+0100) Subject: Now catches mymail errors. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ac726a97e3c958596f534832b7676e7b11410a3;p=mymail.git Now catches mymail errors. --- diff --git a/mymail-vm.el b/mymail-vm.el index 7b2e6ea..07ed864 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -28,16 +28,25 @@ (let ((n 1) (mbox-name nil) - (args (mapconcat - (lambda (searche-request) - (if (not (string= searche-request "")) - (concat "-s " "\"" searche-request "\""))) - (split-string (concat param "," mymail/default-search-request) ",") - " "))) + (search-args + (apply 'nconc + (mapcar + (lambda (searche-request) + (if (not (string= searche-request "")) + (list "-s" searche-request))) + (split-string (concat param "," mymail/default-search-request) ",") + )))) (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n))) (setq n (+ n 1))) - (shell-command (concat "mymail --quiet --output " mbox-name " " args)) - (vm-visit-folder mbox-name t) + (if (= (apply 'call-process + (nconc `("mymail" nil nil nil "--output" ,mbox-name) + search-args)) + 0) + (vm-visit-folder mbox-name t) + (message "mymail failed")) + + ;; (shell-command (concat "mymail --quiet --output " mbox-name " " args)) + ;; (vm-visit-folder mbox-name t) ))