+ (interactive
+ (list (read-string "mymail: " nil 'mymail-vm-history)))
+
+ (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) ",")
+ " ")))
+
+ (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
+ (setq n (+ n 1)))