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

David Edmondson dme at dme.org
Fri Jan 20 01:43:30 PST 2012


---
 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



More information about the notmuch mailing list