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: notmuch-wash-region-to-button: remove unused MSG argument

Browse source
This commit is contained in:
Jonas Bernoulli 2021-01-10 15:00:51 +01:00 committed by David Bremner
parent 93c95802a4
commit 5475eb5151
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/notmuch-wash.el
View file

@ -200,7 +200,7 @@ message parts."
(overlay-end overlay)))) (overlay-end overlay))))
(format label-format lines-count))) (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. "Auxiliary function to do the actual making of overlays and buttons.
BEG and END are buffer locations. TYPE should a string, either BEG and END are buffer locations. TYPE should a string, either
@ -237,8 +237,7 @@ that PREFIX should not include a newline."
(beginning-of-line) (beginning-of-line)
(when (and (< (point) (point-max)) (when (and (< (point) (point-max))
(re-search-forward notmuch-wash-original-regexp nil t)) (re-search-forward notmuch-wash-original-regexp nil t))
(notmuch-wash-region-to-button msg (notmuch-wash-region-to-button (match-beginning 0)
(match-beginning 0)
(point-max) (point-max)
"original")) "original"))
(while (and (< (point) (point-max)) (while (and (< (point) (point-max))
@ -257,7 +256,7 @@ that PREFIX should not include a newline."
(goto-char cite-end) (goto-char cite-end)
(forward-line (- notmuch-wash-citation-lines-suffix)) (forward-line (- notmuch-wash-citation-lines-suffix))
(notmuch-wash-region-to-button (notmuch-wash-region-to-button
msg hidden-start (point-marker) hidden-start (point-marker)
"citation"))))) "citation")))))
(when (and (not (eobp)) (when (and (not (eobp))
(re-search-forward notmuch-wash-signature-regexp nil t)) (re-search-forward notmuch-wash-signature-regexp nil t))
@ -271,7 +270,7 @@ that PREFIX should not include a newline."
(overlay-put (make-overlay sig-start-marker sig-end-marker) (overlay-put (make-overlay sig-start-marker sig-end-marker)
'face 'message-cited-text) 'face 'message-cited-text)
(notmuch-wash-region-to-button (notmuch-wash-region-to-button
msg sig-start-marker sig-end-marker sig-start-marker sig-end-marker
"signature")))))) "signature"))))))
(defun notmuch-wash-elide-blank-lines (msg depth) (defun notmuch-wash-elide-blank-lines (msg depth)