[PATCH 1/3] emacs: Tidy `notmuch-show-insert-part-header'.

[David Edmondson]

---
 emacs/notmuch-show.el |   26 ++++++++++++--------------
 1 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 03c1f6b..f62f8ac 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -286,20 +286,18 @@ message at DEPTH in the current thread."
   'face 'message-mml)

 (defun notmuch-show-insert-part-header (nth content-type declared-type 
&optional name comment)
-  (let ((button))
-    (setq button
-         (insert-button
-          (concat "[ "
-                  (if name (concat name ": ") "")
-                  declared-type
-                  (if (not (string-equal declared-type content-type))
-                      (concat " (as " content-type ")")
-                    "")
-                  (or comment "")
-                  " ]")
-          :type 'notmuch-show-part-button-type
-          :notmuch-part nth
-          :notmuch-filename name))
+  (let ((button (insert-button
+                (concat "[ "
+                        (if name (concat name ": ") "")
+                        declared-type
+                        (if (not (string-equal declared-type content-type))
+                            (concat " (as " content-type ")")
+                          "")
+                        (or comment "")
+                        " ]")
+                :type 'notmuch-show-part-button-type
+                :notmuch-part nth
+                :notmuch-filename name)))
     (insert "\n")
     ;; return button
     button))
-- 
1.7.8.3