aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs/notmuch-lib.el
diff options
context:
space:
mode:
authorGravatar David Edmondson <dme@dme.org>2010-04-22 09:27:33 +0100
committerGravatar Carl Worth <cworth@cworth.org>2010-04-23 12:50:18 -0700
commite9394932f7ccf71755faed8965876e6869e0eacb (patch)
tree170171cbdca0ed81347e9ec2976ee125d2539a05 /emacs/notmuch-lib.el
parentb65bcb5f8f14863f810cf41b9d8c14afacc76ae5 (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.el9
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 ()