From ae2561dafcaeea38d0128413b3e5a5821388b631 Mon Sep 17 00:00:00 2001 From: Ingo Lohmar Date: Sun, 3 Jun 2012 21:23:57 +0300 Subject: [PATCH] [PATCH] emacs: Fix notmuch-message-mark-replied. --- e1/b6137dddc6b688764864cc56d57ddb6fab2783 | 89 +++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100644 e1/b6137dddc6b688764864cc56d57ddb6fab2783 diff --git a/e1/b6137dddc6b688764864cc56d57ddb6fab2783 b/e1/b6137dddc6b688764864cc56d57ddb6fab2783 new file mode 100644 index 000000000..d646a2de1 --- /dev/null +++ b/e1/b6137dddc6b688764864cc56d57ddb6fab2783 @@ -0,0 +1,89 @@ +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 46304431FC4 + for ; Sun, 3 Jun 2012 11:24:07 -0700 (PDT) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: -0.799 +X-Spam-Level: +X-Spam-Status: No, score=-0.799 tagged_above=-999 required=5 + tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, + FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7] 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 eDv1zGJ1O1Ru for ; + Sun, 3 Jun 2012 11:24:07 -0700 (PDT) +Received: from mail-we0-f181.google.com (mail-we0-f181.google.com + [74.125.82.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) + (No client certificate requested) + by olra.theworths.org (Postfix) with ESMTPS id B8879431FAF + for ; Sun, 3 Jun 2012 11:24:06 -0700 (PDT) +Received: by werj55 with SMTP id j55so2895305wer.26 + for ; Sun, 03 Jun 2012 11:24:04 -0700 (PDT) +DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; + h=from:to:subject:user-agent:date:message-id:mime-version + :content-type; bh=0h5GJf/CpYOVQTryrXziUk3DIQtu+DWZPZ2VY9Ue2zY=; + b=Akm2xx34xZei96LF5mi0f0ijQfBgzmNDTjTKBsPlzH87V6lX8Bui2q5YAHl0F/w3d7 + tNJZ8QOOhFw6C7y0LVkwi5TpQ0mr4N7qJax1/9mIinVX3VYi0qbFCfUQcy9Tc4AVdvnB + 4Q9d9MuigtXceIB1iga20a05GAcUePLon9zxDXN1h3Z8GqRYmCo4enq+oYNWrveRLLTB + PNiIc5fZ1amLurFhjkWFsImJOWyEpxTMdMHbHCRtjB5PSP9CrnwgOXGh2Cm9Tyd+Xadc + SOV+t0mEbigaCW2duSBJ0sw/Vq2YSJZUq+w6/q+zCTYxh7hl5dS+YLeIstP6DIYObRRA + Zwew== +Received: by 10.216.211.8 with SMTP id v8mr8023447weo.176.1338747844199; + Sun, 03 Jun 2012 11:24:04 -0700 (PDT) +Received: from localhost (gr-140-233.dyn.huji.ac.il. [132.64.140.233]) + by mx.google.com with ESMTPS id eb8sm14497009wib.11.2012.06.03.11.24.01 + (version=TLSv1/SSLv3 cipher=OTHER); + Sun, 03 Jun 2012 11:24:03 -0700 (PDT) +From: Ingo Lohmar +To: notmuch@notmuchmail.org +Subject: [PATCH] emacs: Fix notmuch-message-mark-replied. +User-Agent: Notmuch/0.13.1+28~g981a87f (http://notmuchmail.org) + Emacs/24.1.50.1 (x86_64-pc-linux-gnu) +Date: Sun, 03 Jun 2012 21:23:57 +0300 +Message-ID: <87vcj8ckzm.fsf@acer.localhost.com> +MIME-Version: 1.0 +Content-Type: text/plain +X-Mailman-Approved-At: Sun, 03 Jun 2012 22:56:53 -0700 +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: Sun, 03 Jun 2012 18:24:07 -0000 + +notmuch-message-mark-replied used "apply" to change message tags +according to notmuch-message-replied-tags after sending a reply. This +works if the latter is a single-element list. But with the recently +changed format of tag changes, it breaks for multiple-element lists. +Use "funcall" to properly pass the list of tag changes as a single +argument. +--- + emacs/notmuch-message.el | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/emacs/notmuch-message.el b/emacs/notmuch-message.el +index 5964caa..d3738bf 100644 +--- a/emacs/notmuch-message.el ++++ b/emacs/notmuch-message.el +@@ -45,7 +45,7 @@ the \"inbox\" and \"todo\", you would set + (concat "+" str) + str)) + notmuch-message-replied-tags))) +- (apply 'notmuch-tag (notmuch-id-to-query (car (car rep))) tags))))) ++ (funcall 'notmuch-tag (notmuch-id-to-query (car (car rep))) tags))))) + + (add-hook 'message-send-hook 'notmuch-message-mark-replied) + +-- +1.7.10 + -- 2.26.2