From: Istvan Marko <notmuch@kismala.com>
Date: Fri, 16 Aug 2013 20:24:23 +0000 (-0700)
Subject: emacs: add buttons for all multipart/related parts
X-Git-Tag: 0.17_rc1~140
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=654260420d3be14a4218c327a571fe56873f9abb

emacs: add buttons for all multipart/related parts

When text/html parts include images as multipart/related and the
text/plain alternative is used these images can be completely hidden
with no easy way to access them or even find out that they are there.

Make notmuch-show-insert-part-multipart/related add buttons for all
parts, the first one visible the rest hidden.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 32c971a8..61a8c4cb 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -588,6 +588,10 @@ message at DEPTH in the current thread."
 
     ;; Render the primary part.
     (notmuch-show-insert-bodypart msg (car inner-parts) depth)
+    ;; Add hidden buttons for the rest
+    (mapc (lambda (inner-part)
+	    (notmuch-show-insert-bodypart msg inner-part depth t))
+	  (cdr inner-parts))
 
     (when notmuch-show-indent-multipart
       (indent-rigidly start (point) 1)))