debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs/show: Remove the 'no-buttons option of `notmuch-show-insert-bodypart'

Browse source 
No code uses the 'no-buttons argument to
`notmuch-show-insert-bodypart', so remove it.
This commit is contained in:
David Edmondson 2016-02-20 18:24:39 +00:00 committed by David Bremner
parent e103f0a971
commit adefa734e3
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-show.el
View file

@ -959,9 +959,7 @@ this part.")
HIDE determines whether to show or hide the part and the button 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 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 is t, hide the part initially and show the button."
'no-buttons, show the part but do not add any buttons (this is
useful for quoting in replies)."
(let* ((content-type (downcase (plist-get part :content-type))) (let* ((content-type (downcase (plist-get part :content-type)))
(mime-type (notmuch-show-mime-type part)) (mime-type (notmuch-show-mime-type part))
@ -972,12 +970,10 @@ useful for quoting in replies)."
(beg (point)) (beg (point))
;; This default header-p function omits the part button for ;; This default header-p function omits the part button for
;; the first (or only) part if this is text/plain. ;; the first (or only) part if this is text/plain.
(button (when (and (not (equal hide 'no-buttons)) (button (when (funcall notmuch-show-insert-header-p-function part hide)
(funcall notmuch-show-insert-header-p-function part hide))
(notmuch-show-insert-part-header nth mime-type content-type (plist-get part :filename)))) (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 ;; 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 ;; and we have a button to allow toggling.
;; uses 'no-buttons automatically includes long parts)
(show-part (not (or (equal hide t) (show-part (not (or (equal hide t)
(and long button)))) (and long button))))
(content-beg (point))) (content-beg (point)))