From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id IFLtCRevK1/oQQAA0tVLHw (envelope-from ) for ; Thu, 06 Aug 2020 07:19:51 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id wLmjBRevK19YXAAAbx9fmQ (envelope-from ) for ; Thu, 06 Aug 2020 07:19:51 +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) server-signature RSA-PSS (2048 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id AD21F940365 for ; Thu, 6 Aug 2020 07:19:50 +0000 (UTC) Received: from [144.217.243.247] (localhost [127.0.0.1]) by mail.notmuchmail.org (Postfix) with ESMTP id ED69629AAA; Thu, 6 Aug 2020 03:19:27 -0400 (EDT) Received: from mail.hostpark.net (mail.hostpark.net [212.243.197.30]) by mail.notmuchmail.org (Postfix) with ESMTPS id 6A48E29AA2 for ; Thu, 6 Aug 2020 03:19:14 -0400 (EDT) Received: from localhost (localhost [127.0.0.1]) by mail.hostpark.net (Postfix) with ESMTP id C1EA8B7D53 for ; Thu, 6 Aug 2020 09:19:11 +0200 (CEST) X-Virus-Scanned: by Hostpark/NetZone Mailprotection at hostpark.net Received: from mail.hostpark.net ([127.0.0.1]) by localhost (mail1.hostpark.net [127.0.0.1]) (amavisd-new, port 10124) with ESMTP id kr7eJDd3WHlf for ; Thu, 6 Aug 2020 09:19:11 +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 84AB4B7D4B for ; Thu, 6 Aug 2020 09:19:11 +0200 (CEST) From: Jonas Bernoulli To: notmuch@notmuchmail.org Subject: [PATCH v2 04/23] emacs: Closing parenthesis go on the same line Date: Thu, 6 Aug 2020 09:18:51 +0200 Message-Id: <20200806071910.10369-5-jonas@bernoul.li> X-Mailer: git-send-email 2.28.0 In-Reply-To: <20200806071910.10369-1-jonas@bernoul.li> References: <20200726165818.400-1-jonas@bernoul.li> <20200806071910.10369-1-jonas@bernoul.li> MIME-Version: 1.0 Message-ID-Hash: 5ZMY64EWR5MD5DCKGDOAM5OJ3G5VLKCO X-Message-ID-Hash: 5ZMY64EWR5MD5DCKGDOAM5OJ3G5VLKCO 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-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=none; 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-Spam-Score: 0.03 X-TUID: 7xBHm0yRkBkX --- emacs/notmuch-lib.el | 6 ++---- emacs/notmuch-show.el | 19 ++++++++----------- emacs/notmuch-tree.el | 4 ++-- emacs/notmuch.el | 6 ++---- 4 files changed, 14 insertions(+), 21 deletions(-) diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 7994d5ad..f8958a91 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -555,13 +555,11 @@ (defun notmuch-match-content-type (t1 t2) (string= (downcase t1) (downcase t2))))) (defvar notmuch-multipart/alternative-discouraged - '( - ;; Avoid HTML parts. + '(;; Avoid HTML parts. "text/html" ;; multipart/related usually contain a text/html part and some ;; associated graphics. - "multipart/related" - )) + "multipart/related")) (defun notmuch-multipart/alternative-determine-discouraged (msg) "Return the discouraged alternatives for the specified message." diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index f38866b0..8592936f 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -297,13 +297,12 @@ (defun notmuch-show-view-all-mime-parts () ;; ;; Any MIME part not explicitly mentioned here will be handled by an ;; external viewer as configured in the various mailcap files. - (let ((mm-inline-media-tests '( - ("text/.*" ignore identity) - ("application/pgp-signature" ignore identity) - ("multipart/alternative" ignore identity) - ("multipart/mixed" ignore identity) - ("multipart/related" ignore identity) - ))) + (let ((mm-inline-media-tests + '(("text/.*" ignore identity) + ("application/pgp-signature" ignore identity) + ("multipart/alternative" ignore identity) + ("multipart/mixed" ignore identity) + ("multipart/related" ignore identity)))) (mm-display-parts (mm-dissect-buffer))))) (defun notmuch-show-save-attachments () @@ -1785,10 +1784,8 @@ (defun notmuch-show-get-message-ids-for-open-messages () (if (notmuch-show-message-visible-p) (setq message-ids (append message-ids (list (notmuch-show-get-message-id))))) - (setq done (not (notmuch-show-goto-message-next))) - ) - message-ids - ))) + (setq done (not (notmuch-show-goto-message-next)))) + message-ids))) ;; Commands typically bound to keys. diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index 6ac0c62d..b1bb40b1 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -1020,8 +1020,8 @@ (defun notmuch-tree-worker (basic-query &optional query-context target open-targ (erase-buffer) (goto-char (point-min)) (let* ((search-args (concat basic-query - (if query-context (concat " and (" query-context ")")) - )) + (if query-context + (concat " and (" query-context ")")))) (message-arg (if unthreaded "--unthreaded" "--entire-thread"))) (if (equal (car (process-lines notmuch-command "count" search-args)) "0") (setq search-args basic-query)) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 2e84cd34..d6e0a9d5 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -910,8 +910,7 @@ (defun notmuch-search-buffer-title (query) query) "*")) (t - (concat "*notmuch-search-" query "*")) - ))) + (concat "*notmuch-search-" query "*"))))) (defun notmuch-read-query (prompt) "Read a notmuch-query from the minibuffer with completion. @@ -1003,8 +1002,7 @@ (defun notmuch-search (&optional query oldest-first target-thread target-line no (let ((proc (get-buffer-process (current-buffer))) (inhibit-read-only t)) (if proc - (error "notmuch search process already running for query `%s'" query) - ) + (error "notmuch search process already running for query `%s'" query)) (erase-buffer) (goto-char (point-min)) (save-excursion -- 2.28.0