;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is free software: you can redistribute it and/or modify ;;
;; it under the terms of the version 3 of the GNU General Public License ;;
;; as published by the Free Software Foundation. ;;
;; ;;
;; This program is distributed in the hope that it will be useful, but ;;
;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;
;; General Public License for more details. ;;
;; ;;
;; You should have received a copy of the GNU General Public License ;;
;; along with this program. If not, see . ;;
;; ;;
;; Written by and Copyright (C) Francois Fleuret ;;
;; Contact for comments & bug reports ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mymail-el
(setq mymail-history-file ("~/.mymail-el-history"))
;; (setq mymail-history '("p francois.fleuret,f 2013"))
(defun mymail/vm-visit-folder (param)
;; (interactive "smymail search: ")
(interactive (list (read-string "mymail search: " nil 'mymail-history)))
(let ((args (mapconcat (lambda (x) (concat "-s " "\"" x "\""))
(split-string param ",")
" ")))
(shell-command (concat "mymail " args " > /tmp/mymail.mbox"))
)
(vm-visit-folder "/tmp/mymail.mbox")
)