From e2ebb201377f2331131590df3532f260221c40cf Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 21 Aug 2000 20:57:12 +0000 Subject: [PATCH] * mime-view.el (mime-preview-fill-flowed-text): New variable. --- mime-view.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/mime-view.el b/mime-view.el index 29b3a86..f6f7b8c 100644 --- a/mime-view.el +++ b/mime-view.el @@ -649,6 +649,10 @@ Each elements are regexp of field-name.") '((body . visible) (body-presentation-method . mime-display-text/plain))) +(defvar mime-preview-fill-flowed-text + (module-installed-p 'flow-fill) + "If non-nil, fill RFC2646 \"flowed\" text.") + (autoload 'fill-flowed "flow-fill") (ctree-set-calist-strictly @@ -734,7 +738,8 @@ Each elements are regexp of field-name.") (if (not (eq (char-after (1- (point))) ?\n)) (insert "\n") ) - (if (equal (cdr (assoc "format" situation)) "flowed") + (if (and mime-preview-fill-flowed-text + (equal (cdr (assoc "format" situation)) "flowed")) (fill-flowed)) (mime-add-url-buttons) (run-hooks 'mime-display-text/plain-hook) -- 1.7.10.4