[Emacs-diffs] Changes to emacs/lisp/gnus/mm-view.el

[Miles Bader]

Index: emacs/lisp/gnus/mm-view.el
diff -u emacs/lisp/gnus/mm-view.el:1.24 emacs/lisp/gnus/mm-view.el:1.25
--- emacs/lisp/gnus/mm-view.el:1.24     Fri Feb 10 05:08:28 2006
+++ emacs/lisp/gnus/mm-view.el  Fri Feb 24 05:02:12 2006
@@ -72,6 +72,12 @@
     (html2text  html2text))
   "The attributes of washer types for text/html.")
 
+(defcustom mm-fill-flowed t
+  "If non-nil an format=flowed article will be displayed flowed."
+  :type 'boolean
+  :version "22.1"
+  :group 'mime-display)
+
 ;;; Internal variables.
 
 ;;;
@@ -407,7 +413,8 @@
          (mm-insert-part handle)
          (goto-char (point-max)))
       (insert (mm-decode-string (mm-get-part handle) charset)))
-    (when (and (equal type "plain")
+    (when (and mm-fill-flowed
+              (equal type "plain")
               (equal (cdr (assoc 'format (mm-handle-type handle)))
                      "flowed"))
       (save-restriction