Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id AC6E44196F3 for ; Mon, 26 Apr 2010 08:08:05 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -1.9 X-Spam-Level: X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5 tests=[BAYES_00=-1.9, RCVD_IN_DNSWL_NONE=-0.0001] autolearn=ham Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id uAmsned+rLOn for ; Mon, 26 Apr 2010 08:08:04 -0700 (PDT) Received: from mail-bw0-f210.google.com (mail-bw0-f210.google.com [209.85.218.210]) by olra.theworths.org (Postfix) with ESMTP id 30FCB431FC1 for ; Mon, 26 Apr 2010 08:08:04 -0700 (PDT) Received: by bwz2 with SMTP id 2so11248351bwz.30 for ; Mon, 26 Apr 2010 08:08:03 -0700 (PDT) Received: by 10.204.7.194 with SMTP id e2mr2666046bke.103.1272294482963; Mon, 26 Apr 2010 08:08:02 -0700 (PDT) Received: from ut.hh.sledj.net (host83-217-165-81.dsl.vispa.com [83.217.165.81]) by mx.google.com with ESMTPS id 14sm1517920bwz.6.2010.04.26.08.07.45 (version=TLSv1/SSLv3 cipher=RC4-MD5); Mon, 26 Apr 2010 08:08:02 -0700 (PDT) Received: by ut.hh.sledj.net (Postfix, from userid 1000) id E6FF459413B; Mon, 26 Apr 2010 16:07:07 +0100 (BST) From: dme@dme.org To: notmuch@notmuchmail.org Subject: [PATCH] emacs: `notmuch' should display the `notmuch-hello' interface Date: Mon, 26 Apr 2010 16:07:04 +0100 Message-Id: <1272294424-17363-1-git-send-email-dme@dme.org> X-Mailer: git-send-email 1.7.0 X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 26 Apr 2010 15:08:05 -0000 From: David Edmondson --- emacs/notmuch-hello.el | 1 - emacs/notmuch-lib.el | 5 +++++ emacs/notmuch.el | 7 +++---- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 30b3a5e..bd882b8 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -24,7 +24,6 @@ (require 'cl) (require 'notmuch-lib) -(require 'notmuch) (require 'notmuch-mua) (declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation)) diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 47c74b9..b64aeab 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -33,6 +33,11 @@ :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 () diff --git a/emacs/notmuch.el b/emacs/notmuch.el index eecff23..428ae6c 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -54,6 +54,7 @@ (require 'notmuch-lib) (require 'notmuch-show) (require 'notmuch-mua) +(require 'notmuch-hello) (defcustom notmuch-search-result-format `(("date" . "%s ") @@ -221,8 +222,6 @@ For a mouse binding, return nil." (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]\\>") @@ -811,9 +810,9 @@ current search results AND that are tagged with the given tag." ;;;###autoload (defun notmuch () - "Run notmuch to display all mail with tag of 'inbox'" + "Run notmuch and display saved searches, known tags, etc." (interactive) - (notmuch-search "tag:inbox" notmuch-search-oldest-first)) + (notmuch-hello)) (setq mail-user-agent 'notmuch-user-agent) -- 1.7.0