;; (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"
(mbox-name nil)
(search-args
-
(apply 'nconc
- (mapcar
- (lambda (searche-request)
- (if (not (string= searche-request ""))
- (list "--search" searche-request)))
- (if (string= (substring param 0 1) "\\")
- (split-string (substring param 1 nil) ",")
- (split-string (concat param "," mymail/default-additional-search-requests) ","))
- )))
-
+ (mapcar
+ (lambda (searche-request)
+ (if (not (string= searche-request ""))
+ (list "--search" searche-request)))
+ (if (string= (substring param 0 1) "\\")
+ (split-string (substring param 1 nil) ",")
+ (split-string (concat param ","
+ mymail/default-additional-search-requests) ","))
+ )))
)
(while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n)))
0)
(vm-visit-folder mbox-name t)
(message "mymail failed"))
- ))
+ ))