debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-28 13:44:12 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: silence compiler wrt notmuch-show-insert-part-text/plain

Browse source 
`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.
This commit is contained in:
Jonas Bernoulli 2021-01-10 15:00:52 +01:00 committed by David Bremner
parent 5475eb5151
commit d8075ce50b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-wash.el
View file

@ -231,7 +231,7 @@ that PREFIX should not include a newline."
;;; Hook functions ;;; Hook functions
(defun notmuch-wash-excerpt-citations (msg depth) (defun notmuch-wash-excerpt-citations (_msg _depth)
"Excerpt citations and up to one signature." "Excerpt citations and up to one signature."
(goto-char (point-min)) (goto-char (point-min))
(beginning-of-line) (beginning-of-line)
@ -273,7 +273,7 @@ that PREFIX should not include a newline."
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)
"Elide leading, trailing and successive blank lines." "Elide leading, trailing and successive blank lines."
;; Algorithm derived from `article-strip-multiple-blank-lines' in ;; Algorithm derived from `article-strip-multiple-blank-lines' in
;; `gnus-art.el'. ;; `gnus-art.el'.
@ -294,7 +294,7 @@ that PREFIX should not include a newline."
(when (looking-at "\n") (when (looking-at "\n")
(delete-region (match-beginning 0) (match-end 0)))) (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. "Improve the display of cited regions of a message.
Perform several transformations on the message body: Perform several transformations on the message body:
@ -318,7 +318,7 @@ Perform several transformations on the message body:
(while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t) (while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t)
(replace-match "\\2"))) (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. "Wrap long lines in the message.
If `notmuch-wash-wrap-lines-length' is a number, this will wrap If `notmuch-wash-wrap-lines-length' is a number, this will wrap