Skip to content

Instantly share code, notes, and snippets.

@egh

egh/wl-fastfind.el

Created Oct 19, 2014
Embed
What would you like to do?
Wanderlust fastfind
;;; wl-fastfind.el --- Prompt for a query string and display search results.
;; Copyright (C) 2014 Erik Hetzner <egh@e6h.org>
;; Author: Erik Hetzner <egh@e6h.org>
;; Keywords: mail, net news
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; 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 GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(require 'elmo-imap4)
(require 'elmo-search)
(require 'wl-folder)
(require 'wl-summary)
(require 'wl-util)
(defcustom wl-fastfind-method
:elmo-search
"Method to use for wl-fastfind search."
:group 'wl-fastfind
:type '(choice (const :tag "elmo search" :elmo-search)
(const :tag "gmail search" :gmail)
(const :tag "imap search" :imap)))
(defcustom wl-fastfind-gmail-username
nil
"Username to use with wl-fastfind gmail search."
:group 'wl-fastfind
:type '(choice string (const :tag "not set" nil)))
(defcustom wl-fastfind-archive-folder
nil
"Folder to search with wl-fastfind imap search."
:group 'wl-fastfind
:type '(choice string (const :tag "not set" nil)))
;; Needed for Gmail search.
(add-to-list 'elmo-imap4-search-keys "x-gm-raw")
(defun wl-fastfind-escape-query-string (str)
"Replace single quotes (') in STR with double quotes (\"), then escape double-quotes."
(let* ((str1 (replace-regexp-in-string "'" "\"" str nil t))
(str2 (replace-regexp-in-string "\"" "\\\"" str1 nil t)))
str2))
(defun wl-fastfind-goto-elmo-search-folder ()
"Prompt for a query and display results.
Uses elmo-search folder with `elmo-search-default-engine'."
(let ((q (wl-fastfind-escape-query-string
(read-string (format "%s query: " elmo-search-default-engine)))))
(wl-folder-goto-folder-subr (format "[\"%s\"]" q))))
(defun wl-fastfind-goto-gmail-search-folder ()
"Prompt for a gmail query and display results.
Uses `wl-fastfind-gmail-username' to determine folder."
(if (null wl-fastfind-gmail-username)
(error "The variable `wl-fastfind-gmail-username' is not set!")
(let* ((q (wl-fastfind-escape-query-string
(read-string "gmail query: "))))
(wl-folder-goto-folder-subr
(format "/x-gm-raw:\"%s\"/%%[Gmail]/All Mail:%s@imap.gmail.com:993!"
q wl-fastfind-gmail-username)))))
(defun wl-fastfind-goto-imap-search-folder ()
"Prompt for an IMAP query and display results.
Searches `wl-fastfind-archive-folder'."
(if (null wl-fastfind-archive-folder)
(error "The variable `wl-fastfind-archive-folder' is not set!")
(wl-folder-goto-folder-subr
(concat "/"
(wl-read-search-condition
wl-fldmgr-make-filter-default)
"/" wl-fastfind-archive-folder))))
(defun wl-fastfind-goto-search-folder ()
"Prompt for a query and display results.
Behavior depends on the value of `wl-fastfind-method'."
(interactive)
(cond ((eq wl-fastfind-method :elmo-search)
(wl-fastfind-goto-elmo-search-folder))
((eq wl-fastfind-method :gmail)
(wl-fastfind-goto-gmail-search-folder))
((eq wl-fastfind-method :imap)
(wl-fastfind-goto-imap-search-folder))))
(define-key wl-folder-mode-map "Y" 'wl-fastfind-goto-search-folder)
(define-key wl-summary-mode-map "Y" 'wl-fastfind-goto-search-folder)
(provide 'wl-fastfind)
;;; wl-fastfind.el ends here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment