diff options
| author |  David Edmondson <dme@dme.org> | 2010-05-17 13:41:12 +0100 |
|---|---|---|
| committer |  Carl Worth <cworth@cworth.org> | 2011-05-18 15:51:46 -0700 |
| commit | 31bd2872c36d744d0b5081dc3aefaad26d7e2858 (patch) | |
| tree | 61905843c374f571eca3c084077f62e0f1da41c2 /emacs | |
| parent | 97bc272b9ca88ebace722a1c06c656939f277e56 (diff) | |
emacs: Optionally show all parts in multipart/alternative.
Add a variable `notmuch-show-all-multipart/alternative-parts' that
allows the user to indicate that all candidate sub-parts of a
multipart/alternative part should be shown rather than just the
preferred part. The default is `nil', showing only the preferred part.
This is mostly a debugging aid.
Signed-off-by: Jameson Rollins <jrollins@finestructure.net>
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 72c87a1f..3d8431a6 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -83,6 +83,12 @@ any given message." notmuch-wash-elide-blank-lines notmuch-wash-excerpt-citations)) +;; Mostly useful for debugging. +(defcustom notmuch-show-all-multipart/alternative-parts nil + "Should all parts of multipart/alternative parts be shown?" + :group 'notmuch + :type 'boolean) + (defcustom notmuch-show-indent-multipart nil "Should the sub-parts of a multipart/* part be indented?" ;; dme: Not sure which is a good default. @@ -319,7 +325,8 @@ current buffer, if possible." ;; should be chosen if there are more than one that match? (mapc (lambda (inner-part) (let ((inner-type (plist-get inner-part :content-type))) - (if (string= chosen-type inner-type) + (if (or notmuch-show-all-multipart/alternative-parts + (string= chosen-type inner-type)) (notmuch-show-insert-bodypart msg inner-part depth) (notmuch-show-insert-part-header (plist-get inner-part :id) inner-type inner-type nil " (not shown)")))) inner-parts) |