From 2ee8e971c546f0ffed726099b844cbd5f05de029 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 8 Aug 2020 13:49:39 +0200 Subject: [PATCH] emacs: Closing parenthesis go on the same line --- 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 @@ This replaces spaces, percents, and double quotes in STR with (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 51f2a7d5..d088c80b 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -297,13 +297,12 @@ position of the message in the thread." ;; ;; 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 () @@ -1791,10 +1790,8 @@ Reshows the current thread with matches defined by the new query-string." (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 @@ the same as for the function notmuch-tree." (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 @@ See `notmuch-tag' for information on the format of TAG-CHANGES." 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 @@ the configured default sort order." (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.43.0