Added the --default-search option.

[mymail.git] / mymail-vm.el

diff --git a/mymail-vm.el b/mymail-vm.el
index f424c85..db10a86 100644 (file)
--- a/mymail-vm.el
+++ b/mymail-vm.el
@@ -45,9 +45,11 @@
       (setq n (+ n 1)))
 
     (if (= (apply 'call-process
-                  (nconc (list "mymail" nil nil nil "--output" mbox-name)
+                  (nconc (list "mymail" nil nil nil
+                               "--output" mbox-name
+                               "--default-search" "p")
                          search-args))
-            0)
+           0)
         (vm-visit-folder mbox-name t)
       (message "mymail failed"))
   ))