From f3a9dea65865684ce2920e9ea17190b6fa9a9971 Mon Sep 17 00:00:00 2001 From: Neeum Zawaz Date: Wed, 16 Apr 2014 22:24:19 +1700 Subject: [PATCH] Emacs Keybindings no longer work after upgrading to 0.17 --- 86/147850de1a24bd06bd6dbc8cb3833bb9b31da1 | 112 ++++++++++++++++++++++ 1 file changed, 112 insertions(+) create mode 100644 86/147850de1a24bd06bd6dbc8cb3833bb9b31da1 diff --git a/86/147850de1a24bd06bd6dbc8cb3833bb9b31da1 b/86/147850de1a24bd06bd6dbc8cb3833bb9b31da1 new file mode 100644 index 000000000..df7593ec3 --- /dev/null +++ b/86/147850de1a24bd06bd6dbc8cb3833bb9b31da1 @@ -0,0 +1,112 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by olra.theworths.org (Postfix) with ESMTP id 21BDB431FBF + for ; Tue, 15 Apr 2014 22:24:47 -0700 (PDT) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: 0 +X-Spam-Level: +X-Spam-Status: No, score=0 tagged_above=-999 required=5 + tests=[RCVD_IN_DNSWL_NONE=-0.0001] autolearn=disabled +Received: from olra.theworths.org ([127.0.0.1]) + by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id n-KuzoFsI1Hl for ; + Tue, 15 Apr 2014 22:24:38 -0700 (PDT) +Received: from filter01.dlls.pa.frontiernet.net + (filter01.dlls.pa.frontiernet.net [199.224.80.228]) + by olra.theworths.org (Postfix) with ESMTP id 37935431FBD + for ; Tue, 15 Apr 2014 22:24:38 -0700 (PDT) +Received: from localhost (localhost [127.0.0.1]) + by filter01.dlls.pa.frontiernet.net (Postfix) with ESMTP id 0D79E2737A6 + for ; Wed, 16 Apr 2014 05:24:37 +0000 (UTC) +Received: from relay02.dlls.pa.frontiernet.net ([199.224.80.245]) + by localhost (filter01.dlls.pa.frontiernet.net [199.224.80.228]) + (amavisd-new, port 10024) + with LMTP id cYFh1H5lYTnw for ; + Wed, 16 Apr 2014 05:24:21 +0000 (UTC) +X-Originating-IP: [192.183.213.3] +X-Previous-IP: 192.183.213.3 +Received: from beetle_b (unknown [192.183.213.3]) + by relay02.dlls.pa.frontiernet.net (Postfix) with ESMTPA id CF8C24A0B9 + for ; Wed, 16 Apr 2014 05:24:19 +0000 (UTC) +Received: by beetle_b (Postfix, from userid 1000) + id 351CD8962B; Tue, 15 Apr 2014 22:24:19 -0700 (PDT) +From: Neeum Zawaz +To: notmuch@notmuchmail.org +Subject: Emacs Keybindings no longer work after upgrading to 0.17 +User-Agent: Notmuch/0.17 (http://notmuchmail.org) Emacs/23.4.1 + (x86_64-pc-linux-gnu) +Date: Tue, 15 Apr 2014 22:24:19 -0700 +Message-ID: <87eh0x26f0.fsf@fester.com> +MIME-Version: 1.0 +Content-Type: text/plain; charset=us-ascii +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.13 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Wed, 16 Apr 2014 05:24:47 -0000 + +Hi, + +I have this function: + + +(define-key notmuch-search-mode-map "a" + (lambda () + "Archive message." + (interactive) + (notmuch-search-tag "-inbox") + (notmuch-search-tag "-lowpriority") + (notmuch-search-tag "-@review") + (notmuch-search-tag "-@respond") + )) + +With the upgrade, if I try pressing "a" in search view, I get: + +Wrong type argument: stringp, 43 + +Yet if I run the commands manually, it works fine. + +The full error, BTW, is: + +Debugger entered--Lisp error: (wrong-type-argument stringp 45) + string-match("^[-+]\\S-+$" 45 nil) + #[(tag-change) "\305\306\307\310\n #,?\205\311\312!\207" [tag-change start string regexp inhibit-changing-match-data "^[-+]\\S-+$" nil t string-match error "Tag must be of the form `+this_tag' or `-that_tag'"] 4](45) + mapc(#[(tag-change) "\305\306\307\310\n #,?\205\311\312!\207" [tag-change start string regexp inhibit-changing-match-data "^[-+]\\S-+$" nil t string-match error "Tag must be of the form `+this_tag' or `-that_tag'"] 4] "-inbox") + notmuch-tag("(id:20140414235421.43aad8ffb333@www.pentaxforums.com)" "-inbox") + notmuch-search-tag("-inbox") + (lambda nil "Archive message." (interactive) (notmuch-search-tag "-inbox") (notmuch-search-tag "-lowpriority") (notmuch-search-tag "-@review") (notmuch-search-tag "-@respond"))() + call-interactively((lambda nil "Delete message." (interactive) (notmuch-search-tag "-inbox") (notmuch-search-tag "-lowpriority") (notmuch-search-tag "-@review") (notmuch-search-tag "-@respond")) nil nil) + +Strangely enough, the following works in show view. + +(define-key notmuch-show-mode-map "a" + (lambda () + "Archive message." + (interactive) + (notmuch-show-tag-message "-inbox") + (notmuch-show-tag-message "-lowpriority") + (notmuch-show-tag-message "-@review") + (notmuch-show-tag-message "-@respond") + )) + +-- +Dictionaries are for loosers. + + + /\ /\ /\ / + / \/ \ u e e n / \/ a w a z + >>>>>>mueen@nawaz.org<<<<<< + anl + + -- 2.26.2