diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-01-10 15:00:51 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-01-13 07:19:30 -0400 |
| commit | 5475eb5151414d3f15175dd68af174b3e4a53267 (patch) | |
| tree | 22e6a0491719a9d73f8a54115ec8b883d820e63d | |
| parent | 93c95802a4c369c1460bae4d6b8ace8d664a8494 (diff) | |
emacs: notmuch-wash-region-to-button: remove unused MSG argument
| -rw-r--r-- | emacs/notmuch-wash.el | 9 |
1 files 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 @@ message parts." (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 @@ that PREFIX should not include a newline." (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 @@ that PREFIX should not include a newline." (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 @@ that PREFIX should not include a newline." (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) |