(while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
(setq n (+ n 1)))
- (shell-command (concat "mymail --output " mbox-name " " args))
+ (shell-command (concat "mymail --quiet --output " mbox-name " " args))
(vm-visit-folder mbox-name t)
))