ed/896d29802c15c5f99be988f0422d55141fb721

   1 Return-Path: <fgeller@gmail.com>\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 27C5B431FD0\r
   6         for <notmuch@notmuchmail.org>; Mon, 11 Jul 2011 01:42:17 -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: -0.789\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-0.789 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
  13         FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, T_MIME_NO_TEXT=0.01]\r
  14         autolearn=disabled\r
  15 Received: from olra.theworths.org ([127.0.0.1])\r
  16         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  17         with ESMTP id zt0zKC1kGIq8 for <notmuch@notmuchmail.org>;\r
  18         Mon, 11 Jul 2011 01:42:14 -0700 (PDT)\r
  19 Received: from mail-ew0-f53.google.com (mail-ew0-f53.google.com\r
  20         [209.85.215.53]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id 77E34431FB6\r
  23         for <notmuch@notmuchmail.org>; Mon, 11 Jul 2011 01:42:14 -0700 (PDT)\r
  24 Received: by ewy8 with SMTP id 8so1276538ewy.26\r
  25         for <notmuch@notmuchmail.org>; Mon, 11 Jul 2011 01:42:13 -0700 (PDT)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;\r
  27         h=from:to:subject:user-agent:date:message-id:mime-version\r
  28         :content-type; bh=WmoAGfQC6xRR3R3AYoBRZrjAQS7TZN1pOGnCQ7m7IaI=;\r
  29         b=fpzKG1w9HiMpSSxQx2/AR7IS1ugR/eAA+APDcIKhg4rZzVMdQfxZyaFMT0mfMswHbU\r
  30         FpAahYkPVPUelhDx7TH7El2ZnTYkbcsjrEIafKn1x9tcCw94nlG1RVK7gQrMOV5DfPgb\r
  31         xv2GWOW/xFxQo8zj276i7w1zxYXp4n/8NAYks=\r
  32 Received: by 10.213.9.138 with SMTP id l10mr1351926ebl.84.1310373732901;\r
  33         Mon, 11 Jul 2011 01:42:12 -0700 (PDT)\r
  34 Received: from localhorst.example.com (brln-4dba66f4.pool.mediaWays.net\r
  35         [77.186.102.244])\r
  36         by mx.google.com with ESMTPS id v36sm1018007eea.37.2011.07.11.01.42.08\r
  37         (version=TLSv1/SSLv3 cipher=OTHER);\r
  38         Mon, 11 Jul 2011 01:42:11 -0700 (PDT)\r
  39 Received: by localhorst.example.com (Postfix, from userid 501)\r
  40         id 719384671E2E; Mon, 11 Jul 2011 10:42:05 +0200 (CEST)\r
  41 From: Felix Geller <fgeller@gmail.com>\r
  42 To: notmuch@notmuchmail.org\r
  43 Subject: [PATCH] Emacs: Add variable to toggle message indentation in a thread\r
  44 User-Agent: Emacs/23.3.1 (x86_64-apple-darwin10.7.0)\r
  45 Date: Mon, 11 Jul 2011 10:42:04 +0200\r
  46 Message-ID: <m2r55xi4yr.fsf@gmail.com>\r
  47 MIME-Version: 1.0\r
  48 Content-Type: multipart/signed; boundary="=-=-=";\r
  49         micalg=pgp-sha1; protocol="application/pgp-signature"\r
  50 X-BeenThere: notmuch@notmuchmail.org\r
  51 X-Mailman-Version: 2.1.13\r
  52 Precedence: list\r
  53 List-Id: "Use and development of the notmuch mail system."\r
  54         <notmuch.notmuchmail.org>\r
  55 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  56         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  57 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  58 List-Post: <mailto:notmuch@notmuchmail.org>\r
  59 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  60 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  61         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  62 X-List-Received-Date: Mon, 11 Jul 2011 08:42:17 -0000\r
  63 \r
  64 --=-=-=\r
  65 Content-Transfer-Encoding: quoted-printable\r
  66 \r
  67 Hi,\r
  68 \r
  69 I added a variable to toggle message indentation in Emacs.\r
  70 \r
  71 Please let me know what you think.\r
  72 \r
  73 \r
  74 Cheers,\r
  75 Felix\r
  76 \r
  77 \r
  78 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  79 index a433dec..8101c27 100644\r
  80 =2D-- a/emacs/notmuch-show.el\r
  81 +++ b/emacs/notmuch-show.el\r
  82 @@ -90,6 +90,11 @@ any given message."\r
  83    :group 'notmuch\r
  84    :type 'boolean)\r
  85 =20\r
  86 +(defcustom notmuch-show-indent-messages-in-thread nil\r
  87 +  "Should the messages in a thread be indented according to their respecti=\r
  88 ve depth in the thread?"\r
  89 +  :group 'notmuch\r
  90 +  :type 'boolean)\r
  91 +\r
  92  (defcustom notmuch-show-indent-multipart nil\r
  93    "Should the sub-parts of a multipart/* part be indented?"\r
  94    ;; dme: Not sure which is a good default.\r
  95 @@ -237,7 +242,9 @@ unchanged ADDRESS if parsing fails."\r
  96    "Insert a notmuch style headerline based on HEADERS for a\r
  97  message at DEPTH in the current thread."\r
  98    (let ((start (point)))\r
  99 =2D    (insert (notmuch-show-spaces-n depth)\r
 100 +    (insert (if notmuch-show-indent-messages-in-thread\r
 101 +               (notmuch-show-spaces-n depth)\r
 102 +             "")\r
 103             (notmuch-show-clean-address (plist-get headers :From))\r
 104             " ("\r
 105             date\r
 106 @@ -733,7 +740,8 @@ current buffer, if possible."\r
 107      (setq content-end (point-marker))\r
 108 =20\r
 109      ;; Indent according to the depth in the thread.\r
 110 =2D    (indent-rigidly content-start content-end depth)\r
 111 +    (when notmuch-show-indent-messages-in-thread\r
 112 +      (indent-rigidly content-start content-end depth))\r
 113 =20\r
 114      (setq message-end (point-max-marker))\r
 115 =20\r
 116 \r
 117 --=-=-=\r
 118 Content-Type: application/pgp-signature\r
 119 \r
 120 -----BEGIN PGP SIGNATURE-----\r
 121 Version: GnuPG/MacGPG2 v2.0.17 (Darwin)\r
 122 \r
 123 iEYEARECAAYFAk4at10ACgkQMxgKfMb9y5aizgCfeYS3jf1guibTT3UR1CfhXkGg\r
 124 fRQAoJYUbqmYSkzKCWB0ruelzsmbogf1\r
 125 =H3S1\r
 126 -----END PGP SIGNATURE-----\r
 127 --=-=-=--\r