use of flet in notmuch-emacs

diff --git a/27/457a84dcc419253d936c50e4ffcb14d14ad2cb b/27/457a84dcc419253d936c50e4ffcb14d14ad2cb
new file mode 100644 (file)
index 0000000..6cca918
--- /dev/null
+++ b/27/457a84dcc419253d936c50e4ffcb14d14ad2cb
@@ -0,0 +1,78 @@
+Return-Path: <david@tethera.net>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 13677431FBC\r
+       for <notmuch@notmuchmail.org>; Sun, 19 May 2013 04:32:03 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -2.3\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-2.3 tagged_above=-999 required=5\r
+       tests=[RCVD_IN_DNSWL_MED=-2.3] autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id 717hULG-74Ve for <notmuch@notmuchmail.org>;\r
+       Sun, 19 May 2013 04:31:55 -0700 (PDT)\r
+Received: from tempo.its.unb.ca (tempo.its.unb.ca [131.202.1.21])\r
+       (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id 5AF6E431FB6\r
+       for <notmuch@notmuchmail.org>; Sun, 19 May 2013 04:31:55 -0700 (PDT)\r
+Received: from tesseract.cs.unb.ca (tesseract.cs.unb.ca [131.202.240.238])\r
+       by tempo.its.unb.ca (8.13.8/8.13.8) with ESMTP id r4JBVswU016378\r
+       for <notmuch@notmuchmail.org>; Sun, 19 May 2013 08:31:54 -0300\r
+Received: from fctnnbsc30w-156034082078.dhcp-dynamic.fibreop.nb.bellaliant.net\r
+       ([156.34.82.78] helo=zancas.localnet)\r
+       by tesseract.cs.unb.ca with esmtpsa\r
+       (TLS1.2:DHE_RSA_AES_128_CBC_SHA1:128) (Exim 4.80)\r
+       (envelope-from <david@tethera.net>)\r
+       id 1Ue1qC-00034W-8u; Sun, 19 May 2013 08:31:54 -0300\r
+Received: from bremner by zancas.localnet with local (Exim 4.80)\r
+       (envelope-from <david@tethera.net>)\r
+       id 1Ue1q6-0006NI-La; Sun, 19 May 2013 08:31:46 -0300\r
+From: David Bremner <david@tethera.net>\r
+To: "Notmuch Mail List" <notmuch@notmuchmail.org>\r
+Subject: use of flet in notmuch-emacs\r
+User-Agent: Notmuch/0.15.2+84~g12d5e4e (http://notmuchmail.org) Emacs/24.3.1\r
+       (x86_64-pc-linux-gnu)\r
+Date: Sun, 19 May 2013 08:31:46 -0300\r
+Message-ID: <87vc6fjjdp.fsf@zancas.localnet>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain\r
+X-Spam_bar: -\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Sun, 19 May 2013 11:32:03 -0000\r
+\r
+\r
+Today I noticed\r
+\r
+,----\r
+| emacs --quick --directory emacs -batch -f batch-byte-compile emacs/notmuch-show.el\r
+| \r
+| In notmuch-show-view-part:\r
+| emacs/notmuch-show.el:541:22:Warning: `flet' is an obsolete macro (as of\r
+|     24.3); use either `cl-flet' or `cl-letf'.\r
+`----\r
+\r
+Chatter on #emacs suggests that cl-flet is not in fact a replacement for\r
+our use case since it does not do dynamic binding. I'm not really 100%\r
+sure what the best plan is, but the old definition of flet is available\r
+at\r
+\r
+        https://github.com/sigma/el-x/blob/master/lisp/dflet.el\r
+\r
+d\r
+\r
+\r