+ (interactive
+ (list (read-string "mymail: " nil 'mymail-vm-history)))
+
+ (let ((n 1)
+ (mbox-name nil)
+ (args (mapconcat
+ (lambda (searche-request) (concat "-s " "\"" searche-request "\""))
+ (split-string param ",")
+ " ")))
+ (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
+ (setq n (+ n 1)))