X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=2a81ec1fe072fa76d138c85fa7a28e57306be365;hb=adefa734e3de8e05713205e686403be4f2236711;hp=8222f0d1e784821a4bae3345cdf732a07f7f731c;hpb=c802d12a1e43fe69f2fcf7a2f7d44018a55bfb65;p=notmuch diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 8222f0d1..2a81ec1f 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -959,9 +959,7 @@ this part.") HIDE determines whether to show or hide the part and the button as follows: If HIDE is nil, show the part and the button. If HIDE -is t, hide the part initially and show the button. If HIDE is -'no-buttons, show the part but do not add any buttons (this is -useful for quoting in replies)." +is t, hide the part initially and show the button." (let* ((content-type (downcase (plist-get part :content-type))) (mime-type (notmuch-show-mime-type part)) @@ -972,12 +970,10 @@ useful for quoting in replies)." (beg (point)) ;; This default header-p function omits the part button for ;; the first (or only) part if this is text/plain. - (button (when (and (not (equal hide 'no-buttons)) - (funcall notmuch-show-insert-header-p-function part hide)) + (button (when (funcall notmuch-show-insert-header-p-function part hide) (notmuch-show-insert-part-header nth mime-type content-type (plist-get part :filename)))) ;; Hide the part initially if HIDE is t, or if it is too long - ;; and we have a button to allow toggling (thus reply which - ;; uses 'no-buttons automatically includes long parts) + ;; and we have a button to allow toggling. (show-part (not (or (equal hide t) (and long button)))) (content-beg (point)))