Mercurial > emacs

diff lisp/gnus/mm-view.el @ 69135:12d289b6e5de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-118 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 38-39) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 24 Feb 2006 05:02:12 +0000
parents 970bf6e6463b
children 55d8c694b9cf 34c8b755296d
line wrap: on
line diff
--- a/lisp/gnus/mm-view.el	Thu Feb 23 23:16:12 2006 +0000
+++ b/lisp/gnus/mm-view.el	Fri Feb 24 05:02:12 2006 +0000
@@ -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