71/a658f781a4fde999943175251ea8e544a39536

   1 Return-Path: <bremner@tesseract.cs.unb.ca>\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 6539E431FC9\r
   6         for <notmuch@notmuchmail.org>; Sat, 25 Oct 2014 00:50:20 -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\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 0Bkl10Z9ZSW1 for <notmuch@notmuchmail.org>;\r
  16         Sat, 25 Oct 2014 00:50:16 -0700 (PDT)\r
  17 Received: from yantan.tethera.net (yantan.tethera.net [199.188.72.155])\r
  18         (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits))\r
  19         (No client certificate requested)\r
  20         by olra.theworths.org (Postfix) with ESMTPS id 44CF0431FBD\r
  21         for <notmuch@notmuchmail.org>; Sat, 25 Oct 2014 00:50:16 -0700 (PDT)\r
  22 Received: from remotemail by yantan.tethera.net with local (Exim 4.80)\r
  23         (envelope-from <bremner@tesseract.cs.unb.ca>)\r
  24         id 1Xhw70-0007Tr-Tq; Sat, 25 Oct 2014 04:50:10 -0300\r
  25 Received: (nullmailer pid 13174 invoked by uid 1000); Sat, 25 Oct 2014\r
  26         07:50:05 -0000\r
  27 From: David Bremner <david@tethera.net>\r
  28 To: notmuch@notmuchmail.org\r
  29 Subject: [PATCH] test/emacs: force *Messages* buffer to be writable\r
  30 Date: Sat, 25 Oct 2014 09:49:59 +0200\r
  31 Message-Id: <1414223399-13128-1-git-send-email-david@tethera.net>\r
  32 X-Mailer: git-send-email 2.1.1\r
  33 X-BeenThere: notmuch@notmuchmail.org\r
  34 X-Mailman-Version: 2.1.13\r
  35 Precedence: list\r
  36 List-Id: "Use and development of the notmuch mail system."\r
  37         <notmuch.notmuchmail.org>\r
  38 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  39         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  40 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  41 List-Post: <mailto:notmuch@notmuchmail.org>\r
  42 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  43 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  44         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  45 X-List-Received-Date: Sat, 25 Oct 2014 07:50:20 -0000\r
  46 \r
  47 In emacs 24.4 the messages buffer starts being read-only, which kills\r
  48 these tests.  This seems to be the point of the variable\r
  49 inihibit-read-only, which has existed at least since emacs 21.\r
  50 ---\r
  51  test/T310-emacs.sh      | 6 ++++--\r
  52  test/T450-emacs-show.sh | 3 ++-\r
  53  2 files changed, 6 insertions(+), 3 deletions(-)\r
  54 \r
  55 diff --git a/test/T310-emacs.sh b/test/T310-emacs.sh\r
  56 index ac966e5..af6b212 100755\r
  57 --- a/test/T310-emacs.sh\r
  58 +++ b/test/T310-emacs.sh\r
  59 @@ -877,7 +877,8 @@ exit 1\r
  60  EOF\r
  61  chmod a+x notmuch_fail\r
  62  test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\"))\r
  63 -              (with-current-buffer \"*Messages*\" (erase-buffer))\r
  64 +              (with-current-buffer \"*Messages*\"\r
  65 +                 (let ((inhibit-read-only t)) (erase-buffer)))\r
  66                (with-current-buffer (get-buffer-create \"*Notmuch errors*\")\r
  67                   (erase-buffer))\r
  68                (notmuch-search \"tag:inbox\")\r
  69 @@ -909,7 +910,8 @@ exit 0\r
  70  EOF\r
  71  chmod a+x notmuch_fail\r
  72  test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\"))\r
  73 -              (with-current-buffer \"*Messages*\" (erase-buffer))\r
  74 +              (with-current-buffer \"*Messages*\"\r
  75 +                 (let ((inhibit-read-only t)) (erase-buffer)))\r
  76                (with-current-buffer (get-buffer-create \"*Notmuch errors*\")\r
  77                   (erase-buffer))\r
  78                (notmuch-search \"tag:inbox\")\r
  79 diff --git a/test/T450-emacs-show.sh b/test/T450-emacs-show.sh\r
  80 index 2a3a535..bfcd5ef 100755\r
  81 --- a/test/T450-emacs-show.sh\r
  82 +++ b/test/T450-emacs-show.sh\r
  83 @@ -173,7 +173,8 @@ exit 1\r
  84  EOF\r
  85  chmod a+x notmuch_fail\r
  86  test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\"))\r
  87 -              (with-current-buffer \"*Messages*\" (erase-buffer))\r
  88 +              (with-current-buffer \"*Messages*\"\r
  89 +                  (let ((inhibit-read-only t)) (erase-buffer)))\r
  90                (condition-case err\r
  91                    (notmuch-show \"*\")\r
  92                  (error (message \"%s\" (second err))))\r
  93 -- \r
  94 2.1.1\r
  95 \r