30/1a96160585ff1d1fe2205f697d4393d4b00087

   1 Return-Path: <too@nixu.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 4906D429E25\r
   6         for <notmuch@notmuchmail.org>; Fri, 13 Jan 2012 00:18:31 -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 zvxXWKRYdqER for <notmuch@notmuchmail.org>;\r
  16         Fri, 13 Jan 2012 00:18:30 -0800 (PST)\r
  17 Received: from mail-gw3.nixu.fi (mail-gw3.nixu.fi [193.209.237.7])\r
  18         (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))\r
  19         (No client certificate requested)\r
  20         by olra.theworths.org (Postfix) with ESMTPS id C8C17431FB6\r
  21         for <notmuch@notmuchmail.org>; Fri, 13 Jan 2012 00:18:29 -0800 (PST)\r
  22 Received: from pps.filterd (mail-gw3 [127.0.0.1])\r
  23         by mail-gw3.nixu.fi (8.14.4/8.14.4) with SMTP id q0D8ILNb001501;\r
  24         Fri, 13 Jan 2012 10:18:21 +0200\r
  25 Received: from taco2.nixu.fi (taco2.nixu.fi [194.197.118.31])\r
  26         by mail-gw3.nixu.fi with ESMTP id 114cs11m1y-1\r
  27         (version=TLSv1/SSLv3 cipher=AES256-SHA bits=256 verify=NOT);\r
  28         Fri, 13 Jan 2012 10:18:20 +0200\r
  29 Received: from taco2.nixu.fi (localhost [127.0.0.1])\r
  30         by taco2.nixu.fi (8.14.3/8.14.3/Debian-5+lenny1) with ESMTP id\r
  31         q0D8IKwQ005184\r
  32         (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT);\r
  33         Fri, 13 Jan 2012 10:18:20 +0200\r
  34 Received: (from too@localhost)\r
  35         by taco2.nixu.fi (8.14.3/8.14.3/Submit) id q0D8IKNH005182;\r
  36         Fri, 13 Jan 2012 10:18:20 +0200\r
  37 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  38 To: notmuch@notmuchmail.org\r
  39 Subject: [PATCH] test: make (kill-emacs) from emacsclient work with emacs\r
  40         23.(1|2)\r
  41 Date: Fri, 13 Jan 2012 10:17:28 +0200\r
  42 Message-Id: <1326442648-5060-1-git-send-email-tomi.ollila@iki.fi>\r
  43 X-Mailer: git-send-email 1.7.7.3\r
  44 In-Reply-To: <20120112170244.GB18625@mit.edu>\r
  45 References: <20120112170244.GB18625@mit.edu>\r
  46 X-Proofpoint-Virus-Version: vendor=fsecure engine=2.50.10432:5.5.7110,\r
  47  1.0.211,       0.0.0000        definitions=2012-01-13_02:2012-01-13, 2012-01-13,\r
  48         1970-01-01 signatures=0\r
  49 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 spamscore=0\r
  50         ipscore=0 suspectscore=1\r
  51         phishscore=0 bulkscore=0 adultscore=0 classifier=spam adjust=0\r
  52         reason=mlx\r
  53         scancount=1 engine=6.0.2-1012030000 definitions=main-1201130003\r
  54 Cc: Tomi Ollila <tomi.ollila@iki.fi>\r
  55 X-BeenThere: notmuch@notmuchmail.org\r
  56 X-Mailman-Version: 2.1.13\r
  57 Precedence: list\r
  58 List-Id: "Use and development of the notmuch mail system."\r
  59         <notmuch.notmuchmail.org>\r
  60 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  61         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  62 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  63 List-Post: <mailto:notmuch@notmuchmail.org>\r
  64 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  65 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  66         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  67 X-List-Received-Date: Fri, 13 Jan 2012 08:18:31 -0000\r
  68 \r
  69 emacsclient --eval '(kill-emacs)' makes emacs versions 23.1\r
  70 and 23.2 ask user input from running emacs. Redefining\r
  71 yes-or-no-p function when kill-emacs is executed for these\r
  72 emacs versions in test-lib.el avoids this test problem.\r
  73 ---\r
  74 Thanks Austin for your comments. Including 'activate' into defadvice\r
  75 made it possible to use if (well, without progn...) instead of when\r
  76 which makes this also marginally faster (as we're not byte-compiling\r
  77 this).\r
  78 \r
  79  test/test-lib.el |    7 +++++++\r
  80  1 files changed, 7 insertions(+), 0 deletions(-)\r
  81 \r
  82 diff --git a/test/test-lib.el b/test/test-lib.el\r
  83 index 3b817c3..59c5868 100644\r
  84 --- a/test/test-lib.el\r
  85 +++ b/test/test-lib.el\r
  86 @@ -26,6 +26,13 @@\r
  87  ;; `read' call.\r
  88  (setq read-file-name-function (lambda (&rest _) (read)))\r
  89  \r
  90 +;; Work around a bug in emacs 23.1 and emacs 23.2 which prevents\r
  91 +;; noninteractive (kill-emacs) from emacsclient.\r
  92 +(if (and (= emacs-major-version 23) (< emacs-minor-version 3))\r
  93 +  (defadvice kill-emacs (before disable-yes-or-no-p activate)\r
  94 +    "Disable yes-or-no-p before executing kill-emacs"\r
  95 +    (defun yes-or-no-p (prompt) t)))\r
  96 +\r
  97  (defun notmuch-test-wait ()\r
  98    "Wait for process completion."\r
  99    (while (get-buffer-process (current-buffer))\r
 100 -- \r
 101 1.7.7.3\r
 102 \r