(msg part depth &optional hide))
(defvar notmuch-show-indent-messages-width)
-;;
+;;; Options
(defgroup notmuch-wash nil
"Cleaning up messages for display."
(integer :tag "number of characters"))
:group 'notmuch-wash)
+;;; Faces
+
(defface notmuch-wash-toggle-button
'((t (:inherit font-lock-comment-face)))
"Face used for buttons toggling the visibility of washed away
:group 'notmuch-wash
:group 'notmuch-faces)
+;;; Buttons
+
(defun notmuch-wash-toggle-invisible-action (cite-button)
;; Toggle overlay visibility
(let ((overlay (button-get cite-button 'overlay)))
:type button-type)))
(overlay-put overlay 'notmuch-wash-button button))))))
+;;; Hook functions
+
(defun notmuch-wash-excerpt-citations (msg depth)
"Excerpt citations and up to one signature."
(goto-char (point-min))
msg sig-start-marker sig-end-marker
"signature"))))))
-;;
-
(defun notmuch-wash-elide-blank-lines (msg depth)
"Elide leading, trailing and successive blank lines."
;; Algorithm derived from `article-strip-multiple-blank-lines' in
(when (looking-at "\n")
(delete-region (match-beginning 0) (match-end 0))))
-;;
-
(defun notmuch-wash-tidy-citations (msg depth)
"Improve the display of cited regions of a message.
(while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t)
(replace-match "\\2")))
-;;
-
(defun notmuch-wash-wrap-long-lines (msg depth)
"Wrap long lines in the message.
2)))
(coolj-wrap-region (point-min) (point-max))))
-;;
+;;;; Convert Inline Patches
(require 'diff-mode)
(delete-region (point-min) (point-max))
(notmuch-show-insert-bodypart nil part depth)))))
-;;
+;;; _
(provide 'notmuch-wash)