From f43f76088739523a1396fbe6dc41b68d55f0720c Mon Sep 17 00:00:00 2001 From: Dmitry Kurochkin Date: Thu, 26 May 2011 02:10:12 +0400 Subject: [PATCH] Pass message to the `notmuch-show-insert-text/plain-hook' hook. Before the change, the `notmuch-show-insert-text/plain-hook' was given only the `depth' argument. The patch adds another one - the message. Currently, the new message argument is not used by any on the hooks. But it will be used later to get access to message invisibility specs when wash buttons are inserted. --- emacs/notmuch-show.el | 2 +- emacs/notmuch-wash.el | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index fb91c838..850fef34 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -546,7 +546,7 @@ current buffer, if possible." (save-excursion (save-restriction (narrow-to-region start (point-max)) - (run-hook-with-args 'notmuch-show-insert-text/plain-hook depth)))) + (run-hook-with-args 'notmuch-show-insert-text/plain-hook msg depth)))) t) (defun notmuch-show-insert-part-text/x-vcalendar (msg part content-type nth depth declared-type) diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index cf5e9111..94c601c9 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -164,7 +164,7 @@ insert before the button, probably for indentation." 'overlay overlay :type button-type)))) -(defun notmuch-wash-excerpt-citations (depth) +(defun notmuch-wash-excerpt-citations (msg depth) "Excerpt citations and up to one signature." (goto-char (point-min)) (beginning-of-line) @@ -209,7 +209,7 @@ insert before the button, probably for indentation." ;; -(defun notmuch-wash-elide-blank-lines (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 @@ -237,7 +237,7 @@ insert before the button, probably for indentation." ;; -(defun notmuch-wash-tidy-citations (depth) +(defun notmuch-wash-tidy-citations (msg depth) "Improve the display of cited regions of a message. Perform several transformations on the message body: @@ -268,7 +268,7 @@ Perform several transformations on the message body: ;; -(defun notmuch-wash-wrap-long-lines (depth) +(defun notmuch-wash-wrap-long-lines (msg depth) "Wrap any long lines in the message to the width of the window. When doing so, maintaining citation leaders in the wrapped text." @@ -287,7 +287,7 @@ When doing so, maintaining citation leaders in the wrapped text." (defvar diff-file-header-re) ; From `diff-mode.el'. -(defun notmuch-wash-convert-inline-patch-to-part (depth) +(defun notmuch-wash-convert-inline-patch-to-part (msg depth) "Convert an inline patch into a fake 'text/x-diff' attachment. Given that this function guesses whether a buffer includes a -- 2.43.0