- (shell-command (concat "mymail --quiet --output " mbox-name " " args))
- (vm-visit-folder mbox-name t)
- ))
+ ;; (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 "/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. See /tmp/mymail.err"))
+ ))