emacs: Closing parenthesis go on the same line

diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index 7994d5ad03c22d4938535fe2fad5fa299e079e99..f8958a9116605e1c98d92cdd3aa8cb8d3a497140 100644 (file)
--- 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 51f2a7d549765fee68321b9f8a309e615e2b0681..d088c80b3f5371c1b950e0ac7005bd72b869df58 100644 (file)
--- 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 6ac0c62d28cb7de66b43e9762e54dc920215eafc..b1bb40b13ac469e5adc1f7d1ba2fecdd99694eb2 100644 (file)
--- 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 2e84cd34e38d010a9aac6f277d3c355bbfce0434..d6e0a9d54ee48a6e074dd3f85dd561f19ae63ab8 100644 (file)
--- 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