1 Return-Path: <anarcat@angela.anarcat.ath.cx>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id E0314431FD0
\r
6 for <notmuch@notmuchmail.org>; Mon, 8 Aug 2011 03:29:46 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id 7eMYoNpmw2Er for <notmuch@notmuchmail.org>;
\r
16 Mon, 8 Aug 2011 03:29:46 -0700 (PDT)
\r
17 Received: from bureau.koumbit.net (homere.koumbit.net [209.44.112.81])
\r
18 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
\r
19 (No client certificate requested)
\r
20 by olra.theworths.org (Postfix) with ESMTPS id 4DC70431FB6
\r
21 for <notmuch@notmuchmail.org>; Mon, 8 Aug 2011 03:29:46 -0700 (PDT)
\r
22 Received: from localhost (g225081052.adsl.alicedsl.de [92.225.81.52])
\r
23 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
\r
24 (No client certificate requested)
\r
25 by bureau.koumbit.net (Postfix) with ESMTPSA id 209D3E80D11;
\r
26 Mon, 8 Aug 2011 06:27:10 -0400 (EDT)
\r
27 Received: by localhost (Postfix, from userid 1000)
\r
28 id EF0F36370; Mon, 8 Aug 2011 12:27:08 +0200 (CEST)
\r
29 From: =?UTF-8?q?Antoine=20Beaupr=C3=A9?= <anarcat@koumbit.org>
\r
30 To: notmuch@notmuchmail.org
\r
31 Subject: [PATCH] run notmuch-hello-mode-hook at the end of the hello mode
\r
33 Date: Mon, 8 Aug 2011 12:26:58 +0200
\r
34 Message-Id: <1312799218-10243-1-git-send-email-anarcat@koumbit.org>
\r
35 X-Mailer: git-send-email 1.7.2.5
\r
36 Cc: =?UTF-8?q?Antoine=20Beaupr=C3=A9?= <anarcat@koumbit.org>
\r
37 X-BeenThere: notmuch@notmuchmail.org
\r
38 X-Mailman-Version: 2.1.13
\r
40 List-Id: "Use and development of the notmuch mail system."
\r
41 <notmuch.notmuchmail.org>
\r
42 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
43 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
44 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
45 List-Post: <mailto:notmuch@notmuchmail.org>
\r
46 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
47 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
48 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
49 X-List-Received-Date: Mon, 08 Aug 2011 10:29:47 -0000
\r
51 i mostly use this to start offlineimap.el, but it could be used for
\r
52 other purposes. i have not added hooks to other modes, but those could
\r
53 be interesting as well. i am unsure as to how to make unit tests for
\r
56 emacs/notmuch-hello.el | 6 ++++++
\r
57 1 files changed, 6 insertions(+), 0 deletions(-)
\r
59 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
\r
60 index 65fde75..6389ac8 100644
\r
61 --- a/emacs/notmuch-hello.el
\r
62 +++ b/emacs/notmuch-hello.el
\r
63 @@ -118,6 +118,11 @@ Typically \",\" in the US and UK and \".\" in Europe."
\r
67 +(defcustom notmuch-hello-mode-hook nil
\r
68 + "Hook run at the end of `notmuch-hello-mode'."
\r
72 (defvar notmuch-hello-url "http://notmuchmail.org"
\r
73 "The `notmuch' web site.")
\r
75 @@ -336,6 +341,7 @@ Complete list of currently available key bindings:
\r
76 (setq major-mode 'notmuch-hello-mode
\r
77 mode-name "notmuch-hello")
\r
78 ;;(setq buffer-read-only t)
\r
79 + (run-mode-hooks 'notmuch-hello-mode 'notmuch-hello-mode-hook)
\r
82 (defun notmuch-hello-generate-tag-alist ()
\r