debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Pass message to the `notmuch-show-insert-text/plain-hook' hook.

Browse source 
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.
This commit is contained in:
Dmitry Kurochkin 2011-05-26 02:10:12 +04:00 committed by Carl Worth
parent 974faa22b5
commit f43f760887
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/notmuch-show.el
View file

@ -546,7 +546,7 @@ current buffer, if possible."
(save-excursion (save-excursion
(save-restriction (save-restriction
(narrow-to-region start (point-max)) (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) t)
(defun notmuch-show-insert-part-text/x-vcalendar (msg part content-type nth depth declared-type) (defun notmuch-show-insert-part-text/x-vcalendar (msg part content-type nth depth declared-type)

10
emacs/notmuch-wash.el
View file

@ -164,7 +164,7 @@ insert before the button, probably for indentation."
'overlay overlay 'overlay overlay
:type button-type)))) :type button-type))))
(defun notmuch-wash-excerpt-citations (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)
@ -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." "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
@ -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. "Improve the display of cited regions of a message.
Perform several transformations on the message body: 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. "Wrap any long lines in the message to the width of the window.
When doing so, maintaining citation leaders in the wrapped text." 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'. (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. "Convert an inline patch into a fake 'text/x-diff' attachment.
Given that this function guesses whether a buffer includes a Given that this function guesses whether a buffer includes a