diff options
author | David Edmondson <dme@dme.org> | 2010-04-22 09:27:33 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-23 12:50:18 -0700 |
commit | e9394932f7ccf71755faed8965876e6869e0eacb (patch) | |
tree | 170171cbdca0ed81347e9ec2976ee125d2539a05 /emacs/notmuch-lib.el | |
parent | b65bcb5f8f14863f810cf41b9d8c14afacc76ae5 (diff) |
emacs: Add notmuch-hello.el, a friendly frontend to notmuch
This is based on the prototype that Carl Worth described in the TODO
file. It provides a search bar as well as support for recent searches,
saved searches, and a list of all tags in the database (as well as the
number of messages with each tag).
Diffstat (limited to 'emacs/notmuch-lib.el')
-rw-r--r-- | emacs/notmuch-lib.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index cb9be301..274d7ec5 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -24,6 +24,15 @@ (defvar notmuch-command "notmuch" "Command to run the notmuch binary.") +(defgroup notmuch nil + "Notmuch mail reader for Emacs." + :group 'mail) + +(defcustom notmuch-folders '(("inbox" . "tag:inbox") ("unread" . "tag:unread")) + "List of searches for the notmuch folder view" + :type '(alist :key-type (string) :value-type (string)) + :group 'notmuch) + ;; XXX: This should be a generic function in emacs somewhere, not ;; here. (defun point-invisible-p () |