`notmuch-show-insert-part-text/plain' calls `notmuch-show-insert-text/plain-hook' with two arguments MSG and DEPTH. Currently all hook functions ignore MSG but third-party functions may not. One hook function uses DEPTH. --- emacs/notmuch-wash.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index 4fbb4e12..d613e04c 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -231,7 +231,7 @@ (defun notmuch-wash-region-to-button (beg end type &optional prefix) ;;; Hook functions -(defun notmuch-wash-excerpt-citations (msg depth) +(defun notmuch-wash-excerpt-citations (_msg _depth) "Excerpt citations and up to one signature." (goto-char (point-min)) (beginning-of-line) @@ -273,7 +273,7 @@ (defun notmuch-wash-excerpt-citations (msg depth) sig-start-marker sig-end-marker "signature")))))) -(defun notmuch-wash-elide-blank-lines (msg depth) +(defun notmuch-wash-elide-blank-lines (_msg _depth) "Elide leading, trailing and successive blank lines." ;; Algorithm derived from `article-strip-multiple-blank-lines' in ;; `gnus-art.el'. @@ -294,7 +294,7 @@ (defun notmuch-wash-elide-blank-lines (msg depth) (when (looking-at "\n") (delete-region (match-beginning 0) (match-end 0)))) -(defun notmuch-wash-tidy-citations (msg depth) +(defun notmuch-wash-tidy-citations (_msg _depth) "Improve the display of cited regions of a message. Perform several transformations on the message body: @@ -318,7 +318,7 @@ (defun notmuch-wash-tidy-citations (msg depth) (while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t) (replace-match "\\2"))) -(defun notmuch-wash-wrap-long-lines (msg depth) +(defun notmuch-wash-wrap-long-lines (_msg depth) "Wrap long lines in the message. If `notmuch-wash-wrap-lines-length' is a number, this will wrap -- 2.29.1 _______________________________________________ notmuch mailing list -- notmuch@notmuchmail.org To unsubscribe send an email to notmuch-le...@notmuchmail.org