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.
This commit is contained in:
Istvan Marko 2013-08-16 13:24:23 -07:00 committed by David Bremner
parent ee8305b519
commit 654260420d

View file

@ -588,6 +588,10 @@ message at DEPTH in the current thread."
;; Render the primary part. ;; Render the primary part.
(notmuch-show-insert-bodypart msg (car inner-parts) depth) (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 (when notmuch-show-indent-multipart
(indent-rigidly start (point) 1))) (indent-rigidly start (point) 1)))