mymail-vm.el

   1
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;; This program is free software: you can redistribute it and/or modify  ;;
   4 ;; it under the terms of the version 3 of the GNU General Public License ;;
   5 ;; as published by the Free Software Foundation.                         ;;
   6 ;;                                                                       ;;
   7 ;; This program is distributed in the hope that it will be useful, but   ;;
   8 ;; WITHOUT ANY WARRANTY; without even the implied warranty of            ;;
   9 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      ;;
  10 ;; General Public License for more details.                              ;;
  11 ;;                                                                       ;;
  12 ;; You should have received a copy of the GNU General Public License     ;;
  13 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.  ;;
  14 ;;                                                                       ;;
  15 ;; Written by and Copyright (C) Francois Fleuret                         ;;
  16 ;; Contact <francois.fleuret@idiap.ch> for comments & bug reports        ;;
  17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18
  19 ;; mymail-el
  20
  21 (setq mymail-history-file ("~/.mymail-el-history"))
  22
  23 ;; (setq mymail-history '("p francois.fleuret,f 2013"))
  24
  25 (defun mymail/vm-visit-folder (param)
  26
  27   ;; (interactive "smymail search: ")
  28
  29   (interactive (list (read-string "mymail search: " nil 'mymail-history)))
  30
  31   (let ((args (mapconcat (lambda (x) (concat "-s " "\"" x "\""))
  32                          (split-string param ",")
  33                          " ")))
  34     (shell-command (concat "mymail " args " > /tmp/mymail.mbox"))
  35     )
  36   (vm-visit-folder "/tmp/mymail.mbox")
  37   )