+ (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)