;; (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"
- :version "0.9.5")
+ "Command to visit a folder built on-the-fly with mymail"
+ :version "0.9.8")
(defcustom mymail/default-additional-search-requests ""
"Comma-separated list of search requests to add to any search"
(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"))
))