Re: [patch] RFC2646, MIME format=flowed support

[Simon Josefsson <jas@pdc.kth.se>]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> However, the patch didn't apply cleanly, your message isn't
> formatted differently after applying the patch, and compiling
> fill-flowed.el with Emacs 20.4 gave these errors:

I forgot part of the patch, sorry. 
Try this patch instead.  The 
compile error is fixed in the current 
version, <URL:http://www.pdc.kth.se/~jas/fill-flowed.el>.

(This message should be rfc2646-encoded.)

2000-03-11  Simon Josefsson  <jas@pdc.kth.se>

	* mm-decode.el (mm-dissect-singlepart): Create a MIME handle for
	text/plain parts with `format' parameters.

	* mm-view.el (autoload): Autoload fill-flowed.
	(mm-inline-text): For "plain" parts with a format=flowed
	parameter, call `fill-flowed'.

Index: lisp/mm-view.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mm-view.el,v
retrieving revision 5.40
diff -w -u -r5.40 mm-view.el
--- lisp/mm-view.el	1999/12/12 17:33:18	5.40
+++ lisp/mm-view.el	2000/03/11 21:35:15
@@ -33,6 +33,7 @@
   (autoload 'gnus-article-prepare-display "gnus-art")
   (autoload 'vcard-parse-string "vcard")
   (autoload 'vcard-format-string "vcard")
+  (autoload 'fill-flowed "fill-flowed")
   (autoload 'diff-mode "diff-mode"))
 
 ;;;
@@ -136,6 +137,14 @@
 	    (charset (mail-content-type-get
 		      (mm-handle-type handle) 'charset)))
 	(insert (mm-decode-string text charset))
+	(when (and (equal type "plain")
+		   (equal (cdr (assoc 'format (mm-handle-type handle)))
+			  "flowed"))
+	  (save-restriction
+	    (narrow-to-region b (point))
+	    (goto-char b)
+	    (fill-flowed)
+	    (goto-char (point-max))))
 	(save-restriction
 	  (narrow-to-region b (point))
 	  (set-text-properties (point-min) (point-max) nil)
Index: lisp/mm-decode.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mm-decode.el,v
retrieving revision 5.71
diff -w -u -r5.71 mm-decode.el
--- lisp/mm-decode.el	2000/03/07 14:28:55	5.71
+++ lisp/mm-decode.el	2000/03/11 21:35:15
@@ -257,7 +257,9 @@
 
 (defun mm-dissect-singlepart (ctl cte &optional force cdl description id)
   (when (or force
-	    (not (equal "text/plain" (car ctl))))
+	    (if (equal "text/plain" (car ctl))
+		(assoc 'format ctl)
+	      t))
     (let ((res (mm-make-handle
 		(mm-copy-to-buffer) ctl cte nil cdl description nil id)))
       (push (car res) mm-dissection-list)