From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id juJuIZ1i9WBcGwAAgWs5BA (envelope-from ) for ; Mon, 19 Jul 2021 13:31:41 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id 0Bq3HJ1i9WDnAgAA1q6Kng (envelope-from ) for ; Mon, 19 Jul 2021 11:31:41 +0000 Received: from mail.notmuchmail.org (nmbug.tethera.net [144.217.243.247]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 214301044A for ; Mon, 19 Jul 2021 13:31:41 +0200 (CEST) Received: from nmbug.tethera.net (localhost [127.0.0.1]) by mail.notmuchmail.org (Postfix) with ESMTP id B3E3B290FB; Mon, 19 Jul 2021 07:31:27 -0400 (EDT) Received: from mail.hostpark.net (mail.hostpark.net [212.243.197.30]) by mail.notmuchmail.org (Postfix) with ESMTPS id CA42C290A8 for ; Mon, 19 Jul 2021 07:31:13 -0400 (EDT) Received: from localhost (localhost [127.0.0.1]) by mail.hostpark.net (Postfix) with ESMTP id BA0F616616 for ; Mon, 19 Jul 2021 13:31:12 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=bernoul.li; h= content-transfer-encoding:mime-version:references:in-reply-to :x-mailer:message-id:date:date:subject:subject:from:from :received:received; s=sel2011a; t=1626694270; bh=axkGq14bHZNO9iz Vd0lUiRgOBnIJpP5TswUzRp9EgJ8=; b=KKntoMwZrUfkOreio3aVZue/+PNd+2m MMP5eYPHYBGXufVd+o69Z4+AY4PCVkcG3jQEHcp3+hOiV5d0RJzt/a/+BK0zMIRK 6MaAVkPQYtsmcSjPt4WWC505jSeH5X2S7rNMshp8Uky1MxjX4dIqfAUViy0VQOvW Jo4Z02I9kqnc= X-Virus-Scanned: by Hostpark/NetZone Mailprotection at hostpark.net Received: from mail.hostpark.net ([127.0.0.1]) by localhost (mail0.hostpark.net [127.0.0.1]) (amavisd-new, port 10224) with ESMTP id xDkH72LE-2Ss for ; Mon, 19 Jul 2021 13:31:10 +0200 (CEST) Received: from customer (localhost [127.0.0.1]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by mail.hostpark.net (Postfix) with ESMTPSA id 783051661F for ; Mon, 19 Jul 2021 13:31:10 +0200 (CEST) From: Jonas Bernoulli To: notmuch@notmuchmail.org Subject: [PATCH 4/5] emacs: notmuch-show-pipe-message: cosmetics Date: Mon, 19 Jul 2021 13:31:08 +0200 Message-Id: <20210719113109.5197-5-jonas@bernoul.li> X-Mailer: git-send-email 2.31.1 In-Reply-To: <20210719113109.5197-1-jonas@bernoul.li> References: <20210719113109.5197-1-jonas@bernoul.li> MIME-Version: 1.0 Message-ID-Hash: AKFQ6WWQCJTKXABK4R2W7LZJUUPL3XYY X-Message-ID-Hash: AKFQ6WWQCJTKXABK4R2W7LZJUUPL3XYY X-MailFrom: jonas@bernoul.li X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; emergency; loop; banned-address; member-moderation; header-match-notmuch.notmuchmail.org-0; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; suspicious-header X-Mailman-Version: 3.2.1 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Help: List-Post: List-Subscribe: List-Unsubscribe: Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1626694301; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=oTFzqza4XnoUu+ZJCmPvCdoilWFcFPL2h00pfX79oO0=; b=qeCydVV6Af2Q4k/NF/C2GdtmBtiCxHNSKFEjoxwKYETeYMnt8OkogtOVGyWlEy51hLvLu6 36Bw9TTZd6tU2gZ4VmleTmCnWi6lZmuVRWcmnqkCaFuDBjo42ORJPFEfl++NSl56G5l3Rn kodDu8WjLQgZyz4Q808nhmHDWL+7J/riXzhb32cE3SxlsjyirEDNpEt4YDOFojef0T7hc/ XS5BR40P2d9jusAzSPhPcujPeGTka5UnGjnI+mDkPvEeqD1tMbqaqnua/seYXW1gtGtEzb GC7a3fozkb3/A374cY+ND8BFbyUNolVhclWS+FAjHH1W24SNa+tpbqqNBTTDbw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1626694301; a=rsa-sha256; cv=none; b=gx+aJVL5ptnmheBwuLysv8Qx9MGaAPA61cB3dTQEH6YX7tte/RZmOLBlLvF5U7oB/7SEML 73ukkWq27uIiO8Q1rLt4ThogBuFmSaTYo2j9eOZRMV9et1YR5M/fXyNcohRtLCrKL2Ymrp 1v1w6C2eEtB3YSEBtYP+4CYeBQOrC+v8/KL0QDtgsm837lUco8DgqTpz9hydb23IsBfmkb w8MkFp3VLh3W+V8y5Zcf7N48UKRFGmds2RT+i15uWd53HTechClBd3vvYCzLtYqKh6V7UB H4Tzb/3u3tz8xcpXqsO+cwdEtpJeWI5p7yt1hWKV/3sgl+3gNPyqTAq1jT5QHQ== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("body hash did not verify") header.d=bernoul.li header.s=sel2011a header.b=KKntoMwZ; dmarc=none; spf=pass (aspmx1.migadu.com: domain of notmuch-bounces@notmuchmail.org designates 144.217.243.247 as permitted sender) smtp.mailfrom=notmuch-bounces@notmuchmail.org X-Migadu-Spam-Score: -0.08 Authentication-Results: aspmx1.migadu.com; dkim=fail ("body hash did not verify") header.d=bernoul.li header.s=sel2011a header.b=KKntoMwZ; dmarc=none; spf=pass (aspmx1.migadu.com: domain of notmuch-bounces@notmuchmail.org designates 144.217.243.247 as permitted sender) smtp.mailfrom=notmuch-bounces@notmuchmail.org X-Migadu-Queue-Id: 214301044A X-Spam-Score: -0.08 X-Migadu-Scanner: scn0.migadu.com X-TUID: ALcaMpfKb9t4 --- emacs/notmuch-show.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 9a95eb34..b14db1dd 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -2076,19 +2076,19 @@ (defun notmuch-show-pipe-message (entire-thread command) (let ((cwd default-directory) (buf (get-buffer-create (concat "*notmuch-pipe*")))) (with-current-buffer buf - (setq buffer-read-only nil) - (erase-buffer) - ;; Use the originating buffer's working directory instead of - ;; that of the pipe buffer. - (cd cwd) - (let ((exit-code (call-process-shell-command shell-command nil buf))) - (goto-char (point-max)) - (set-buffer-modified-p nil) - (setq buffer-read-only t) - (unless (zerop exit-code) - (pop-to-buffer buf) - (message (format "Command '%s' exited abnormally with code %d" - shell-command exit-code)))))))) + (setq buffer-read-only t) + (let ((inhibit-read-only t)) + (erase-buffer) + ;; Use the originating buffer's working directory instead of + ;; that of the pipe buffer. + (cd cwd) + (let ((exit-code (call-process-shell-command shell-command nil buf))) + (goto-char (point-max)) + (set-buffer-modified-p nil) + (unless (zerop exit-code) + (pop-to-buffer buf) + (message (format "Command '%s' exited abnormally with code %d" + shell-command exit-code))))))))) (defun notmuch-show-tag-message (&rest tag-changes) "Change tags for the current message. -- 2.31.1