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

emacs: show move addition of :notmuch-part to separate function

Browse source 
This separates out the adding of the :notmuch-part text property to a
separate function to simplify calling from the lazy part insertion
code.
This commit is contained in:
Mark Walters 2013-06-10 05:57:12 +01:00 committed by David Bremner
parent 490b02345e
commit 055f7621d6
1 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
emacs/notmuch-show.el
View file

@ -807,6 +807,27 @@ message at DEPTH in the current thread."
;; Return true if we created an overlay. ;; Return true if we created an overlay.
t)) t))
(defun notmuch-show-record-part-information (part beg end)
"Store PART as a text property from BEG to END"
;; Record part information. Since we already inserted subparts,
;; don't override existing :notmuch-part properties.
(notmuch-map-text-property beg end :notmuch-part
(lambda (v) (or v part)))
;; Make :notmuch-part front sticky and rear non-sticky so it stays
;; applied to the beginning of each line when we indent the
;; message. Since we're operating on arbitrary renderer output,
;; watch out for sticky specs of t, which means all properties are
;; front-sticky/rear-nonsticky.
(notmuch-map-text-property beg end 'front-sticky
(lambda (v) (if (listp v)
(pushnew :notmuch-part v)
v)))
(notmuch-map-text-property beg end 'rear-nonsticky
(lambda (v) (if (listp v)
(pushnew :notmuch-part v)
v))))
(defun notmuch-show-insert-bodypart (msg part depth &optional hide) (defun notmuch-show-insert-bodypart (msg part depth &optional hide)
"Insert the body part PART at depth DEPTH in the current thread. "Insert the body part PART at depth DEPTH in the current thread.
@ -836,23 +857,7 @@ If HIDE is non-nil then initially hide this part."
(when hide (when hide
(save-excursion (save-excursion
(notmuch-show-toggle-part-invisibility button))) (notmuch-show-toggle-part-invisibility button)))
;; Record part information. Since we already inserted subparts, (notmuch-show-record-part-information part beg (point))))
;; don't override existing :notmuch-part properties.
(notmuch-map-text-property beg (point) :notmuch-part
(lambda (v) (or v part)))
;; Make :notmuch-part front sticky and rear non-sticky so it stays
;; applied to the beginning of each line when we indent the
;; message. Since we're operating on arbitrary renderer output,
;; watch out for sticky specs of t, which means all properties are
;; front-sticky/rear-nonsticky.
(notmuch-map-text-property beg (point) 'front-sticky
(lambda (v) (if (listp v)
(pushnew :notmuch-part v)
v)))
(notmuch-map-text-property beg (point) 'rear-nonsticky
(lambda (v) (if (listp v)
(pushnew :notmuch-part v)
v)))))
(defun notmuch-show-insert-body (msg body depth) (defun notmuch-show-insert-body (msg body depth)
"Insert the body BODY at depth DEPTH in the current thread." "Insert the body BODY at depth DEPTH in the current thread."