debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: notmuch' should display the notmuch-hello' interface

Browse source 
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.
This commit is contained in:
David Edmondson 2010-04-26 16:07:04 +01:00 committed by Carl Worth
parent 159b05fcaa
commit 98cf886120
3 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
emacs/notmuch-hello.el
View file

@ -24,7 +24,6 @@
(require 'cl) (require 'cl)
(require 'notmuch-lib) (require 'notmuch-lib)
(require 'notmuch)
(require 'notmuch-mua) (require 'notmuch-mua)
(declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation)) (declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation))

5
emacs/notmuch-lib.el
View file

@ -33,6 +33,11 @@
:type '(alist :key-type (string) :value-type (string)) :type '(alist :key-type (string) :value-type (string))
:group 'notmuch) :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 ()

7
emacs/notmuch.el
View file

@ -54,6 +54,7 @@
(require 'notmuch-lib) (require 'notmuch-lib)
(require 'notmuch-show) (require 'notmuch-show)
(require 'notmuch-mua) (require 'notmuch-mua)
(require 'notmuch-hello)
(defcustom notmuch-search-result-format (defcustom notmuch-search-result-format
`(("date" . "%s ") `(("date" . "%s ")
@ -221,8 +222,6 @@ For a mouse binding, return nil."
(defvar notmuch-search-query-string) (defvar notmuch-search-query-string)
(defvar notmuch-search-target-thread) (defvar notmuch-search-target-thread)
(defvar notmuch-search-target-line) (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-continuation)
(defvar notmuch-search-disjunctive-regexp "\\<[oO][rR]\\>") (defvar notmuch-search-disjunctive-regexp "\\<[oO][rR]\\>")
@ -811,9 +810,9 @@ current search results AND that are tagged with the given tag."
;;;###autoload ;;;###autoload
(defun notmuch () (defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'" "Run notmuch and display saved searches, known tags, etc."
(interactive) (interactive)
(notmuch-search "tag:inbox" notmuch-search-oldest-first)) (notmuch-hello))
(setq mail-user-agent 'notmuch-user-agent) (setq mail-user-agent 'notmuch-user-agent)