From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/29485 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: [patch] RFC2646, MIME format=flowed support Date: 11 Mar 2000 22:47:28 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed X-Trace: main.gmane.org 1035166146 2975 80.91.224.250 (21 Oct 2002 02:09:06 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:09:06 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id C9ACDD051E for ; Sat, 11 Mar 2000 16:48:44 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB12836; Sat, 11 Mar 2000 15:48:23 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 11 Mar 2000 15:47:32 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA23626 for ; Sat, 11 Mar 2000 15:47:22 -0600 (CST) Original-Received: from badis.pdc.kth.se (badis.pdc.kth.se [130.237.221.45]) by mailhost.sclp.com (Postfix) with ESMTP id E8B1FD051E for ; Sat, 11 Mar 2000 16:47:30 -0500 (EST) Original-Received: (from jas@localhost) by badis.pdc.kth.se (8.10.0/8.10.0) id e2BLlTE10033; Sat, 11 Mar 2000 22:47:29 +0100 Original-To: ding@gnus.org In-Reply-To: Per Abrahamsen's message of "24 Feb 2000 17:56:49 +0100" Original-Lines: 70 User-Agent: Gnus/5.0804 (Gnus v5.8.4) Emacs/20.6 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:29485 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:29485 Per Abrahamsen 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, . (This message should be rfc2646-encoded.) 2000-03-11 Simon Josefsson * 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)