Fix the last change.

[elisp/semi.git] / mime-view.el

diff --git a/mime-view.el b/mime-view.el
index 24678d0..f6f7b8c 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -649,6 +649,12 @@ 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
  'mime-preview-condition
  '((type . nil)
@@ -732,6 +738,9 @@ Each elements are regexp of field-name.")
     (if (not (eq (char-after (1- (point))) ?\n))
        (insert "\n")
       )
+    (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)
     ))
@@ -756,7 +765,6 @@ Each elements are regexp of field-name.")
       (enriched-decode beg (point-max))
       )))
 
-
 (defvar mime-view-announcement-for-message/partial
   (if (and (>= emacs-major-version 19) window-system)
       "\