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 A9DBC40B942 for ; Thu, 1 Jul 2010 09:09:38 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -1.999 X-Spam-Level: X-Spam-Status: No, score=-1.999 tagged_above=-999 required=5 tests=[BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, FREEMAIL_FROM=0.001] 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 Dd6Lwa8zorDd for ; Thu, 1 Jul 2010 09:09:27 -0700 (PDT) Received: from mail-ww0-f45.google.com (mail-ww0-f45.google.com [74.125.82.45]) by olra.theworths.org (Postfix) with ESMTP id EA48C40B947 for ; Thu, 1 Jul 2010 09:09:08 -0700 (PDT) Received: by wwb18 with SMTP id 18so68548wwb.2 for ; Thu, 01 Jul 2010 09:09:07 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:from:to:cc:subject:date :message-id:x-mailer:in-reply-to:references; bh=PkeXAe78vR2Tf1uoF21gPefDJMi4hjv+cRgSZD7VAqY=; b=j6j1yZLDWRWJUYyqK7ReC+GyRXJ+9KBcHRPtONaUSyZAN2s5Yz6vL/5A9TNgUfYy/I GM98fV9Q3tPobIyevflNLctPtzMcO8qDBbidCGRdy6CD+BZpi1GzxUN1cYLXNZMbQoMs t2omz3dQZo9ChEWLb4AvjqgsWM/ogRkVAqpDM= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references; b=EgdUscAVRT/rd5yVB15YFvJNluUeAtzSkKu2fbzNfDbWcOmo3pNyLpHBCNH16RN9AQ 4QSs01oblAPgST4jVTGZQCMhfTC490Dil5bdonYv00H+2YFILNEBirj2yURql1mF9G9b MrzK+70wFE8LipL3XMvbwph/GSKF3Agt2v3g4= Received: by 10.103.81.12 with SMTP id i12mr4272274mul.89.1278000547303; Thu, 01 Jul 2010 09:09:07 -0700 (PDT) Received: from localhost ([91.144.186.21]) by mx.google.com with ESMTPS id a3sm347317fak.16.2010.07.01.09.09.06 (version=TLSv1/SSLv3 cipher=RC4-MD5); Thu, 01 Jul 2010 09:09:06 -0700 (PDT) From: Dmitry Kurochkin To: notmuch@notmuchmail.org Subject: [PATCH 5/5] Add notmuch-hello-hook. Called every time notmuch-hello buffer is updated. Date: Thu, 1 Jul 2010 20:08:27 +0400 Message-Id: <1278000507-22290-6-git-send-email-dmitry.kurochkin@gmail.com> X-Mailer: git-send-email 1.7.1 In-Reply-To: <1278000507-22290-1-git-send-email-dmitry.kurochkin@gmail.com> References: <1278000507-22290-1-git-send-email-dmitry.kurochkin@gmail.com> 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: Thu, 01 Jul 2010 16:09:39 -0000 --- emacs/notmuch-hello.el | 9 ++++++++- 1 files changed, 8 insertions(+), 1 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index f8ae332..5777e99 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -32,6 +32,11 @@ (defvar notmuch-hello-search-bar-marker nil "The position of the search bar within the notmuch-hello buffer.") +(defcustom notmuch-hello-hook nil + "Functions to call after populating a `notmuch-hello' buffer." + :group 'notmuch + :type 'hook) + (defcustom notmuch-recent-searches-max 10 "The number of recent searches to store and display." :type 'integer @@ -508,7 +513,9 @@ Complete list of currently available key bindings: (widget-forward 1))) (unless (widget-at) - (notmuch-hello-goto-search))))) + (notmuch-hello-goto-search)))) + + (run-hooks 'notmuch-hello-hook)) ;;;###autoload (defun notmuch-folder () -- 1.7.1