Reviewed-by: Carl Worth <cworth@cworth.org>
The notmuch-hello functionality is now sufficiently useful that we
want to make it the default view of notmuch for new users. This also
effectively hides the "hello" name from the user, so we'll be free to
change that in the implementation if necessary.
This change also shuffles the requires between notmuch.el and
notmuch-hello.el. This fixes things so that our documented (require
'notmuch) is sufficient for getting the notmuch-hello functionality.
Finally, the shuffling caused the notmuch-search-oldest-first variable
from one file to the other. While doing that, give this variable the
defcustom treatment for easier customization.
(require 'cl)
(require 'notmuch-lib)
(require 'cl)
(require 'notmuch-lib)
(require 'notmuch-mua)
(declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation))
(require 'notmuch-mua)
(declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation))
:type '(alist :key-type (string) :value-type (string))
:group 'notmuch)
:type '(alist :key-type (string) :value-type (string))
:group 'notmuch)
+(defcustom notmuch-search-oldest-first t
+ "Show the oldest mail first when searching."
+ :type 'boolean
+ :group 'notmuch)
+
;;
(defun notmuch-version ()
;;
(defun notmuch-version ()
(require 'notmuch-lib)
(require 'notmuch-show)
(require 'notmuch-mua)
(require 'notmuch-lib)
(require 'notmuch-show)
(require 'notmuch-mua)
+(require 'notmuch-hello)
(defcustom notmuch-search-result-format
`(("date" . "%s ")
(defcustom notmuch-search-result-format
`(("date" . "%s ")
(defvar notmuch-search-query-string)
(defvar notmuch-search-target-thread)
(defvar notmuch-search-target-line)
(defvar notmuch-search-query-string)
(defvar notmuch-search-target-thread)
(defvar notmuch-search-target-line)
-(defvar notmuch-search-oldest-first t
- "Show the oldest mail first in the search-mode")
(defvar notmuch-search-continuation)
(defvar notmuch-search-disjunctive-regexp "\\<[oO][rR]\\>")
(defvar notmuch-search-continuation)
(defvar notmuch-search-disjunctive-regexp "\\<[oO][rR]\\>")
;;;###autoload
(defun notmuch ()
;;;###autoload
(defun notmuch ()
- "Run notmuch to display all mail with tag of 'inbox'"
+ "Run notmuch and display saved searches, known tags, etc."
- (notmuch-search "tag:inbox" notmuch-search-oldest-first))
(setq mail-user-agent 'notmuch-user-agent)
(setq mail-user-agent 'notmuch-user-agent)