From: Francois Fleuret <francois@fleuret.org>
Date: Fri, 1 Feb 2013 13:23:08 +0000 (+0100)
Subject: Initial commit.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=11819e767975e5e98828e34f4b3130fd2ce50c57;p=mymail.git

Initial commit.
---

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 <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")
+  )