X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=mymail.git;a=blobdiff_plain;f=mymail-vm.el;h=1f9329fca836995245179d1b1abfccf959fb0520;hp=d08583cd8a90a586c8c314603477740322e12e51;hb=6f1f0b6f5128a5e797e0f161f638bb1d8911770f;hpb=d55edbe1d2e93469dea60c8b984d07a5d6b85359

diff --git a/mymail-vm.el b/mymail-vm.el
index d08583c..1f9329f 100644
--- a/mymail-vm.el
+++ b/mymail-vm.el
@@ -80,12 +80,21 @@ prefaced with \\."
     (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
       (setq n (+ n 1)))
 
+    ;; (message (prin1-to-string
+              ;; (nconc (list "mymail"
+                           ;; "--output" mbox-name
+                           ;; "--default-search" "p"
+                           ;; "--nb-mails-max" "500")
+                     ;; search-args))
+             ;; )
+
     (if (= (apply 'call-process
-                  (nconc (list "mymail" nil nil nil
+                  (nconc (list "mymail" nil '(nil "/tmp/mymail.err") nil
                                "--output" mbox-name
-                               "--default-search" "p")
+                               "--default-search" "p"
+                               "--nb-mails-max" "500")
                          search-args))
            0)
         (vm-visit-folder mbox-name t)
-      (message "mymail failed"))
+      (message "mymail failed. See /tmp/mymail.err"))
     ))