From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id aMFvJWEI8l8iIwAAsNZ9tg (envelope-from ); Sun, 03 Jan 2021 18:09:37 +0000 Received: from out1.migadu.com ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id WPhBMWAI8l+sSgAA1q6Kng (envelope-from ); Sun, 03 Jan 2021 18:09:36 +0000 X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers. DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1; t=1609697376; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=5h57jF1tpTMW1bGtU6swIv0cXF3JV+mYJvHrF/OmOXU=; b=kai0sYOHOwShzmqSG8VhYZ6Ow1EcXtDW52mK27JXpXHVBrpXNi3R/0+gIR18EoVGPbRfSV qN2q234qfGPJVHihlYlR5YVWp5LasbAsjMPrjbddF8AtBw4KDLkfCD1B/MNj1IPG2soR5v 6XHxQ9FY0l5Vr2X9mzHPjLTzliJ+3jleAmCUFynvgoJwAr/5Io6swP33xjguWIqy9GNpZa ZPxujbYOVJN2h5AQEpapwB4N9KBO2WCRicALpLNQ1jtQxqzX+QOCwKFck0VKOy0C4hBuXn vCmMpIjlEUlOaXgBJNUSUqsXwB7lWVgK1LAaV0qwCD2JJVqeCGgxVk6oG1fYtg== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH 1/3] piem-notmuch--with-current-message: Declare debug and indent specs Message-Id: <20210103180912.17404-2-kyle@kyleam.com> In-Reply-To: <20210103180912.17404-1-kyle@kyleam.com> References: <20210103180912.17404-1-kyle@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Migadu-Flow: FLOW_OUT X-Migadu-Auth-User: kyle@kyleam.com Date: Sun, 03 Jan 2021 18:09:36 GMT X-TUID: 0z92OR7hKUK/ --- piem-notmuch.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/piem-notmuch.el b/piem-notmuch.el index 361b450..ff8654c 100644 --- a/piem-notmuch.el +++ b/piem-notmuch.el @@ -33,6 +33,7 @@ (require 'piem) (require 'subr-x) (defmacro piem-notmuch--with-current-message (&rest body) + (declare (indent 0) (debug (body))) (let ((rv (make-symbol "rv"))) `(let (,rv) (with-current-notmuch-show-message @@ -43,7 +44,7 @@ (defun piem-notmuch-get-inbox () "Return inbox name from a `notmuch-show-mode' buffer." (when (derived-mode-p 'notmuch-show-mode) (piem-notmuch--with-current-message - (piem-inbox-by-header-match)))) + (piem-inbox-by-header-match)))) (defun piem-notmuch-get-mid () "Return the message ID of a `notmuch-show-mode' buffer." -- 2.29.2