From: Francois Fleuret Date: Fri, 1 Feb 2013 13:55:22 +0000 (+0100) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=46cfbfe43243177f1522a55d8ada0935f476550e;p=mymail.git Update. --- diff --git a/mymail-vm.el b/mymail-vm.el index 1795834..03b52cc 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -1,32 +1,23 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; 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")) +;; Copyright (c) 2013 Francois Fleuret +;; Written by Francois Fleuret +;; +;; This file is part of mymail. +;; +;; mymail is free software: you can redistribute it and/or modify it +;; under the terms of the GNU General Public License version 3 as +;; published by the Free Software Foundation. +;; +;; mymail 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 mymail. If not, see . (defun mymail/vm-visit-folder (param) - - ;; (interactive "smymail search: ") - - (interactive (list (read-string "mymail search: " nil 'mymail-history))) + (interactive (list (read-string "mymail-vm search: " nil 'mymail-vm-history))) (let ((args (mapconcat (lambda (x) (concat "-s " "\"" x "\"")) (split-string param ",")