Re: [flow-fill.el] Filling of quoted blank lines

[Ralf Angeli <dev.null@iwi.uni-sb.de>]

[-- Attachment #1: Type: text/plain, Size: 992 bytes --]

* Ralf Angeli (2004-01-19) writes:

> * Ralf Angeli (2003-12-02) writes:
>
>> there are quite some people out there using Mozilla with
>> `format=flowed' enabled.  This is handled nicely by `flow-fill.el'
>> except when it comes to quoted blank lines.  Mozilla is quoting them
>> with `> \n' where `flow-fill.el' sees soft line breaks at the end. The
>> lines are filled and disappear.  You can have a look at an example in
>> comp.text.tex; the MID is <news:bqia0o$2tm$02$1@news.t-online.com>.
>> Compare the display of the message using `C-u g' and `g'.  In the
>> latter case some lines are missing.
>>
>> Is this the intended behaviour?  I find it a little bit irritating and
>> sometimes don't even want to answer such posts as I am afraid that
>> Gnus messes up the text.

[...]

> As it is currently a bit annoying that `flow-fill.el' doesn't behave
> like this I thought about an option to disable it completely as a
> quick fix.

Here is a tiny patch which adds this functionality:


[-- Attachment #2: mm-view.diff --]
[-- Type: text/plain, Size: 906 bytes --]

Index: mm-view.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mm-view.el,v
retrieving revision 7.4
diff -u -r7.4 mm-view.el
--- mm-view.el	15 Jan 2004 10:59:39 -0000	7.4
+++ mm-view.el	27 Jan 2004 14:35:06 -0000
@@ -64,6 +64,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
+  :group 'mime-display)
+
+
 ;;; Internal variables.
 
 ;;;
@@ -345,7 +351,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

[-- Attachment #3: Type: text/plain, Size: 10 bytes --]


-- 
Ralf