emacs: Use one or three lines for 'if' forms
authorJonas Bernoulli <jonas@bernoul.li>
Sat, 8 Aug 2020 11:49:44 +0000 (13:49 +0200)
committerDavid Bremner <david@tethera.net>
Sun, 9 Aug 2020 23:53:30 +0000 (20:53 -0300)
Putting the COND and THEN parts on the same line but ELSE on a
separate line makes it harder to determine if there actually is
an ELSE part.

emacs/notmuch-lib.el
emacs/notmuch-tag.el
emacs/notmuch-tree.el

index da48bb86602dda774ea9f8bdb9725f13e7a48908..4496ecd2733e632d1e10b44b16df948971c5f0f9 100644 (file)
@@ -611,7 +611,8 @@ the given type."
                                   ,@(and process-crypto '("--decrypt=true"))
                                   ,(notmuch-id-to-query (plist-get msg :id))))
                           (coding-system-for-read
-                           (if binaryp 'no-conversion
+                           (if binaryp
+                               'no-conversion
                              (let ((coding-system
                                     (mm-charset-to-coding-system
                                      (plist-get part :content-charset))))
@@ -680,7 +681,8 @@ current buffer, if possible."
       ;; `gnus-decoded' charset.  Otherwise, we'll fetch the binary
       ;; part content and let mm-* decode it.
       (let* ((have-content (plist-member part :content))
-            (charset (if have-content 'gnus-decoded
+            (charset (if have-content
+                         'gnus-decoded
                        (plist-get part :content-charset)))
             (handle (mm-make-handle (current-buffer)
                                     `(,content-type (charset . ,charset)))))
index 1067f18513018802607276ae92edb4b2654adc0b..e71de04122c1f1d18f4a31d409c0c06b1f105e26 100644 (file)
@@ -532,7 +532,8 @@ and vice versa."
                       (and (symbolp name)
                            (symbol-name name))))
             (name-string (if name
-                             (if reverse (concat "Reverse " name)
+                             (if reverse
+                                 (concat "Reverse " name)
                                name)
                            (mapconcat #'identity tag-change " "))))
        (push (list key name-string
index 6a619ec2a90344b9bd20ed016f466971f87635d0..b498db0723e2aae2126b63ba0268636f89789a4c 100644 (file)
@@ -1009,7 +1009,8 @@ the same as for the function notmuch-tree."
   (setq notmuch-tree-basic-query basic-query)
   (setq notmuch-tree-query-context (if (or (string= query-context "")
                                           (string= query-context "*"))
-                                      nil query-context))
+                                      nil
+                                    query-context))
   (setq notmuch-tree-target-msg target)
   (setq notmuch-tree-open-target open-target)
   ;; Set the default value for `notmuch-show-process-crypto' in this