From 11819e767975e5e98828e34f4b3130fd2ce50c57 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Fri, 1 Feb 2013 14:23:08 +0100 Subject: [PATCH] Initial commit. --- mymail-vm.el | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 mymail-vm.el diff --git a/mymail-vm.el b/mymail-vm.el new file mode 100644 index 0000000..1795834 --- /dev/null +++ b/mymail-vm.el @@ -0,0 +1,37 @@ + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; 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") + ) -- 2.20.1