57/9f46d615cb80aa0f95be25ba5e4b374fe1c816

   1 Return-Path: <bremner@tethera.net>\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 A6514431FAF\r
   6         for <notmuch@notmuchmail.org>; Sat,  8 Dec 2012 10:44:04 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\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 MNDzYFZcWg7Z for <notmuch@notmuchmail.org>;\r
  16         Sat,  8 Dec 2012 10:44:04 -0800 (PST)\r
  17 Received: from tesseract.cs.unb.ca (tesseract.cs.unb.ca [131.202.240.238])\r
  18         (using TLSv1 with cipher AES256-SHA (256/256 bits))\r
  19         (No client certificate requested)\r
  20         by olra.theworths.org (Postfix) with ESMTPS id 35809431FAE\r
  21         for <notmuch@notmuchmail.org>; Sat,  8 Dec 2012 10:44:04 -0800 (PST)\r
  22 Received: from fctnnbsc30w-142167090129.dhcp-dynamic.fibreop.nb.bellaliant.net\r
  23         ([142.167.90.129] helo=zancas.localnet)\r
  24         by tesseract.cs.unb.ca with esmtpsa\r
  25         (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.72)\r
  26         (envelope-from <bremner@tethera.net>)\r
  27         id 1ThPNb-0005qf-0g; Sat, 08 Dec 2012 14:44:03 -0400\r
  28 Received: from bremner by zancas.localnet with local (Exim 4.80)\r
  29         (envelope-from <bremner@tethera.net>)\r
  30         id 1ThPNV-0005iU-Ir; Sat, 08 Dec 2012 14:43:57 -0400\r
  31 From: david@tethera.net\r
  32 To: notmuch@notmuchmail.org\r
  33 Subject: [RFC PATCH] emacs/show: add command to view a patch using diff mode\r
  34 Date: Sat,  8 Dec 2012 14:43:52 -0400\r
  35 Message-Id: <1354992232-21791-1-git-send-email-david@tethera.net>\r
  36 X-Mailer: git-send-email 1.7.10.4\r
  37 X-Spam_bar: -\r
  38 Cc: David Bremner <bremner@debian.org>\r
  39 X-BeenThere: notmuch@notmuchmail.org\r
  40 X-Mailman-Version: 2.1.13\r
  41 Precedence: list\r
  42 List-Id: "Use and development of the notmuch mail system."\r
  43         <notmuch.notmuchmail.org>\r
  44 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  45         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  46 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  47 List-Post: <mailto:notmuch@notmuchmail.org>\r
  48 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  49 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  50         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  51 X-List-Received-Date: Sat, 08 Dec 2012 18:44:04 -0000\r
  52 \r
  53 From: David Bremner <bremner@debian.org>\r
  54 \r
  55 This enables fast navigation between hunks and better highlighting.\r
  56 \r
  57 The use of notmuch-get-bodypart-internal could be improved; hard\r
  58 coding to 1 seems to work for the output of git-format-patch. It also\r
  59 not so nice to call (insert (notmuch-get-bodypart-internal ...)) since the\r
  60 last thing n-g-b-i does is call buffer-string.\r
  61 ---\r
  62 \r
  63 The main thing that worries me is the use of\r
  64 notmuch-get-bodypart-internal.  Do we have a canonical way to get the\r
  65 message body?  It would also be nice to have "q" actually kill the\r
  66 buffer, but I didn't find a clean way to do that.\r
  67 \r
  68  emacs/notmuch-show.el |   16 ++++++++++++++++\r
  69  1 file changed, 16 insertions(+)\r
  70 \r
  71 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  72 index 20f8997..442e6ce 100644\r
  73 --- a/emacs/notmuch-show.el\r
  74 +++ b/emacs/notmuch-show.el\r
  75 @@ -1694,6 +1694,22 @@ to show, nil otherwise."\r
  76      (set-buffer-modified-p nil)\r
  77      (view-buffer buf 'kill-buffer-if-not-modified)))\r
  78  \r
  79 +(defun notmuch-show-view-as-patch ()\r
  80 +  "View the the current message as a patch."\r
  81 +  (interactive)\r
  82 +  (let* ((id (notmuch-show-get-message-id))\r
  83 +        (subject (concat "Subject: " (notmuch-show-get-subject) "\n"))\r
  84 +        (diff-default-read-only t)\r
  85 +        (buf (get-buffer-create (concat "*notmuch-patch-" id "*"))))\r
  86 +    (switch-to-buffer buf)\r
  87 +    (let ((inhibit-read-only t))\r
  88 +      (erase-buffer)\r
  89 +      (insert subject)\r
  90 +      (insert (notmuch-get-bodypart-internal id 1 nil)))\r
  91 +    (set-buffer-modified-p nil)\r
  92 +    (diff-mode)\r
  93 +    (goto-char (point-min))))\r
  94 +\r
  95  (defun notmuch-show-pipe-message (entire-thread command)\r
  96    "Pipe the contents of the current message (or thread) to the given command.\r
  97  \r
  98 -- \r
  99 1.7.10.4\r
 100 \r