From: ueno <ueno>
Date: Mon, 21 Aug 2000 20:57:12 +0000 (+0000)
Subject: * mime-view.el (mime-preview-fill-flowed-text): New variable.
X-Git-Tag: emiko-1_14-pgg-0_1-last-~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e2ebb201377f2331131590df3532f260221c40cf;p=elisp%2Fsemi.git

* mime-view.el (mime-preview-fill-flowed-text): New variable.
---

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)