;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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 <http://www.gnu.org/licenses/>.  ;;
;;                                                                       ;;
;; Written by and Copyright (C) Francois Fleuret                         ;;
;; Contact <francois.fleuret@idiap.ch> 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")
  )