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

emacs: Neaten `notmuch-show-insert-bodypart-internal'.

Browse source
This commit is contained in:
David Edmondson 2016-03-08 17:12:58 +00:00 committed by David Bremner
parent cb4e90e476
commit 742b566cac
1 changed files with 10 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
emacs/notmuch-show.el
View file

@ -848,21 +848,16 @@ will return nil if the CID is unknown or cannot be retrieved."
;; ;;
(defun notmuch-show-insert-bodypart-internal (msg part content-type nth depth button) (defun notmuch-show-insert-bodypart-internal (msg part content-type nth depth button)
(let ((handlers (notmuch-show-handlers-for content-type))) ;; Run the handlers until one of them succeeds.
;; Run the content handlers until one of them returns a non-nil (loop for handler in (notmuch-show-handlers-for content-type)
;; value. until (condition-case err
(while (and handlers (funcall handler msg part content-type nth depth button)
(not (condition-case err ;; Specifying `debug' here lets the debugger run if
(funcall (car handlers) msg part content-type nth depth button) ;; `debug-on-error' is non-nil.
;; Specifying `debug' here lets the debugger
;; run if `debug-on-error' is non-nil.
((debug error) ((debug error)
(progn (insert "!!! Bodypart handler `" (prin1-to-string handler) "' threw an error:\n"
(insert "!!! Bodypart insert error: ") "!!! " (error-message-string err) "\n")
(insert (error-message-string err)) nil))))
(insert " !!!\n") nil)))))
(setq handlers (cdr handlers))))
t)
(defun notmuch-show-create-part-overlays (button beg end) (defun notmuch-show-create-part-overlays (button beg end)
"Add an overlay to the part between BEG and END" "Add an overlay to the part between BEG and END"