Re: [PATCH] emacs: wash: make word-wrap bound message width
[notmuch-archives.git] / 51 / e224c98362dd7e707eca7f7c6f7b4069b997b3
1 Return-Path: <nelhage@mit.edu>\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 5C4DA4196F0\r
6         for <notmuch@notmuchmail.org>; Fri, 14 May 2010 10:15:55 -0700 (PDT)\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
8 X-Spam-Flag: NO\r
9 X-Spam-Score: -1.9\r
10 X-Spam-Level: \r
11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5\r
12         tests=[BAYES_00=-1.9] autolearn=ham\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 7nQzLrhc1f8J for <notmuch@notmuchmail.org>;\r
16         Fri, 14 May 2010 10:15:44 -0700 (PDT)\r
17 Received: from dmz-mailsec-scanner-5.mit.edu (DMZ-MAILSEC-SCANNER-5.MIT.EDU\r
18         [18.7.68.34])\r
19         by olra.theworths.org (Postfix) with ESMTP id 03685418C25\r
20         for <notmuch@notmuchmail.org>; Fri, 14 May 2010 10:15:43 -0700 (PDT)\r
21 X-AuditID: 12074422-b7c13ae000003829-2c-4bed853fa8c9\r
22 Received: from mailhub-auth-4.mit.edu (MAILHUB-AUTH-4.MIT.EDU [18.7.62.39])\r
23         by dmz-mailsec-scanner-5.mit.edu (Symantec Brightmail Gateway) with\r
24         SMTP id 02.35.14377.F358DEB4; Fri, 14 May 2010 13:15:43 -0400 (EDT)\r
25 Received: from outgoing.mit.edu (OUTGOING-AUTH.MIT.EDU [18.7.22.103])\r
26         by mailhub-auth-4.mit.edu (8.13.8/8.9.2) with ESMTP id o4EHFhoh020220; \r
27         Fri, 14 May 2010 13:15:43 -0400\r
28 Received: from PHANATIQUE.MIT.EDU (c-71-192-160-118.hsd1.nh.comcast.net\r
29         [71.192.160.118]) (authenticated bits=0)\r
30         (User authenticated as nelhage@ATHENA.MIT.EDU)\r
31         by outgoing.mit.edu (8.13.6/8.12.4) with ESMTP id o4EHFgCT015653\r
32         (version=TLSv1/SSLv3 cipher=DHE-RSA-AES128-SHA bits=128 verify=NOT);\r
33         Fri, 14 May 2010 13:15:43 -0400 (EDT)\r
34 From: Nelson Elhage <nelhage@MIT.EDU>\r
35 To: notmuch@notmuchmail.org\r
36 Subject: [PATCH] emacs: notmuch-hello: Make widget-keymap a parent of\r
37         notmuch-hello-keymap\r
38 Date: Fri, 14 May 2010 13:15:38 -0400\r
39 Message-Id: <1273857338-20127-1-git-send-email-nelhage@mit.edu>\r
40 X-Mailer: git-send-email 1.6.6.30.g1e6fd\r
41 In-Reply-To: <1272882573-9864-1-git-send-email-Sebastian@SSpaeth.de>\r
42 References: <1272882573-9864-1-git-send-email-Sebastian@SSpaeth.de>\r
43 X-Brightmail-Tracker: AAAAARQpM2I=\r
44 X-BeenThere: notmuch@notmuchmail.org\r
45 X-Mailman-Version: 2.1.13\r
46 Precedence: list\r
47 List-Id: "Use and development of the notmuch mail system."\r
48         <notmuch.notmuchmail.org>\r
49 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
50         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
51 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
52 List-Post: <mailto:notmuch@notmuchmail.org>\r
53 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
54 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
55         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
56 X-List-Received-Date: Fri, 14 May 2010 17:15:55 -0000\r
57 \r
58 This lets us pick up later changes to widget-keymap if the user\r
59 customizes it in some way. This is the recommended way to use\r
60 `widget-keymap', according to its help.\r
61 ---\r
62 \r
63 This goes on top of Sebastian's patch. See\r
64 id:1273805175-6660-1-git-send-email-nelhage@ksplice.com, where I\r
65 submitted a similar, but less thorough, patch as his.\r
66 \r
67  emacs/notmuch-hello.el |    3 ++-\r
68  1 files changed, 2 insertions(+), 1 deletions(-)\r
69 \r
70 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
71 index 1042f31..5ec2aa4 100644\r
72 --- a/emacs/notmuch-hello.el\r
73 +++ b/emacs/notmuch-hello.el\r
74 @@ -215,7 +215,8 @@ diagonal."\r
75  \r
76  \r
77  (defvar notmuch-hello-mode-map\r
78 -  (let ((map (copy-keymap widget-keymap)))\r
79 +  (let ((map (make-sparse-keymap)))\r
80 +    (set-keymap-parent map widget-keymap)\r
81      (define-key map "v" '(lambda () "Display the notmuch version" (interactive)\r
82                             (message "notmuch version %s" (notmuch-version))))\r
83      (define-key map "?" 'notmuch-help)\r
84 -- \r
85 1.6.6.30.g1e6fd\r
86 \r