--- emacs/notmuch-wash.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index 36041904..4fbb4e12 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -200,7 +200,7 @@ (defun notmuch-wash-button-label (overlay) (overlay-end overlay)))) (format label-format lines-count))) -(defun notmuch-wash-region-to-button (msg beg end type &optional prefix) +(defun notmuch-wash-region-to-button (beg end type &optional prefix) "Auxiliary function to do the actual making of overlays and buttons. BEG and END are buffer locations. TYPE should a string, either @@ -237,8 +237,7 @@ (defun notmuch-wash-excerpt-citations (msg depth) (beginning-of-line) (when (and (< (point) (point-max)) (re-search-forward notmuch-wash-original-regexp nil t)) - (notmuch-wash-region-to-button msg - (match-beginning 0) + (notmuch-wash-region-to-button (match-beginning 0) (point-max) "original")) (while (and (< (point) (point-max)) @@ -257,7 +256,7 @@ (defun notmuch-wash-excerpt-citations (msg depth) (goto-char cite-end) (forward-line (- notmuch-wash-citation-lines-suffix)) (notmuch-wash-region-to-button - msg hidden-start (point-marker) + hidden-start (point-marker) "citation"))))) (when (and (not (eobp)) (re-search-forward notmuch-wash-signature-regexp nil t)) @@ -271,7 +270,7 @@ (defun notmuch-wash-excerpt-citations (msg depth) (overlay-put (make-overlay sig-start-marker sig-end-marker) 'face 'message-cited-text) (notmuch-wash-region-to-button - msg sig-start-marker sig-end-marker + sig-start-marker sig-end-marker "signature")))))) (defun notmuch-wash-elide-blank-lines (msg depth) -- 2.29.1 _______________________________________________ notmuch mailing list -- notmuch@notmuchmail.org To unsubscribe send an email to notmuch-leave@notmuchmail.org