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

emacs: fix notmuch-show-part-button to not include newline

Browse source 
This makes the button cleaner, so that it doesn't include the entire
rest of the line that the button is on.
This commit is contained in:
Jameson Graef Rollins 2011-05-28 14:51:54 -07:00 committed by Carl Worth
parent c62a0d016f
commit da3e47e377
1 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
emacs/notmuch-show.el
View file

@ -280,18 +280,23 @@ message at DEPTH in the current thread."
'face 'message-mml)
(defun notmuch-show-insert-part-header (nth content-type declared-type &optional name comment)
(insert-button
(concat "[ "
(if name (concat name ": ") "")
declared-type
(if (not (string-equal declared-type content-type))
(concat " (as " content-type ")")
"")
(or comment "")
" ]\n")
:type 'notmuch-show-part-button-type
:notmuch-part nth
:notmuch-filename name))
(let ((button))
(setq button
(insert-button
(concat "[ "
(if name (concat name ": ") "")
declared-type
(if (not (string-equal declared-type content-type))
(concat " (as " content-type ")")
"")
(or comment "")
" ]")
:type 'notmuch-show-part-button-type
:notmuch-part nth
:notmuch-filename name))
(insert "\n")
;; return button
button))
;; Functions handling particular MIME parts.