X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=mymail-vm.el;h=10bcb7d9c49e4eba8fac9ba97d82ed806761ab49;hb=3b7b0589e990e27d91681e1b1aed65e7dbc90a05;hp=8486d5d2b921dc4351185083acff8412b66c84b9;hpb=94fbfa03a718d47c926dde6dd6b16fa14e92328c;p=mymail.git

diff --git a/mymail-vm.el b/mymail-vm.el
index 8486d5d..10bcb7d 100644
--- a/mymail-vm.el
+++ b/mymail-vm.el
@@ -21,9 +21,15 @@
 ;; (add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
 ;;
 ;; to your .emacs
+;;
+;; I also use
+;;
+;; (define-key vm-summary-mode-map "\\" 'mymail/vm-visit-folder)
+;;
+;; So that pressing "\" in the summary start a search with mymail
 
 (defgroup mymail ()
-  "Command to visit a folder build on-the-fly with mymail"
+  "Command to visit a folder built on-the-fly with mymail"
   :version "0.9.8")
 
 (defcustom mymail/default-additional-search-requests ""
@@ -77,7 +83,8 @@ prefaced with \\."
     (if (= (apply 'call-process
                   (nconc (list "mymail" nil nil nil
                                "--output" mbox-name
-                               "--default-search" "p")
+                               "--default-search" "p"
+                               "--nb-mails-max" "500")
                          search-args))
            0)
         (vm-visit-folder mbox-name t)