Was this proposal dropped or did it just get lost? David Edmondson <dme@dme.org> writes: > If a text/plain part is declared as format=flowed, apply the > appropriate transformation for display using flow-fill.el. > --- > emacs/notmuch-show.el | 3 ++- > emacs/notmuch-wash.el | 14 ++++++++++++++ > 2 files changed, 16 insertions(+), 1 deletion(-) > > diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el > index b3cefcd9..823a2d19 100644 > --- a/emacs/notmuch-show.el > +++ b/emacs/notmuch-show.el > @@ -90,7 +90,8 @@ visible for any given message." > :group 'notmuch-show > :group 'notmuch-hooks) > > -(defcustom notmuch-show-insert-text/plain-hook '(notmuch-wash-wrap-long-lines > +(defcustom notmuch-show-insert-text/plain-hook '(notmuch-wash-format=flowed > + notmuch-wash-wrap-long-lines > notmuch-wash-tidy-citations > notmuch-wash-elide-blank-lines > notmuch-wash-excerpt-citations) > diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el > index 54275ec7..d4f0e883 100644 > --- a/emacs/notmuch-wash.el > +++ b/emacs/notmuch-wash.el > @@ -426,6 +426,20 @@ for error." > > ;; > > +(require 'flow-fill) > + > +(defun notmuch-wash-format=flowed (msg part depth) > + "If the current part content-type included 'format=flowed', > +apply the appropriate transformation." > + (when (string= (plist-get part :format) "flowed") > + ;; Adjust `fill-flowed-display-column' to allow for the indent > + ;; that we will later apply to this content. > + (let ((fill-flowed-display-column (- (eval fill-flowed-display-column) > + (* depth notmuch-show-indent-messages-width)))) > + (fill-flowed)))) > + > +;; > + > (provide 'notmuch-wash) > > ;;; notmuch-wash.el ends here > -- > 2.11.0 > > _______________________________________________ > notmuch mailing list > notmuch@notmuchmail.org > https://notmuchmail.org/mailman/listinfo/notmuch _______________________________________________ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch