* [PATCH] Re: format=flowed joining paragraphs
2003-07-23 15:34 format=flowed joining paragraphs Mark Thomas
@ 2003-07-24 15:08 ` Mark Thomas
2003-07-26 9:38 ` Kai Großjohann
0 siblings, 1 reply; 3+ messages in thread
From: Mark Thomas @ 2003-07-24 15:08 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 1536 bytes --]
According to RFC 2646, the text
`Take some more tea,' the March Hare said to Alice, very
earnestly.
`I've had nothing yet,' Alice replied in an offended tone, `so I
can't take more.'
`You mean you can't take LESS,' said the Hatter: `it's very easy
to take MORE than nothing.'
can be encoded as
`Take some more tea,' the March Hare said to Alice, very*
earnestly.*
#
`I've had nothing yet,' Alice replied in an offended tone, `so*
I can't take more.'*
#
`You mean you can't take LESS,' said the Hatter: `it's very*
easy to take MORE than nothing.'#
(using '*' to indicate a soft line break, that is, SP CRLF sequence,
and '#' to indicate a hard line break, that is, CRLF).
Putting the encoded text into a buffer and issuing M-: (fill-flowed)
gives me:
`Take some more tea,' the March Hare said to Alice, very
earnestly. `I've had nothing yet,' Alice replied in an offended
tone, `so I can't take more.' `You mean you can't take LESS,'
said the Hatter: `it's very easy to take MORE than nothing.'
Using the attached patch, I get:
`Take some more tea,' the March Hare said to Alice, very
earnestly.
`I've had nothing yet,' Alice replied in an offended tone, `so I
can't take more.'
`You mean you can't take LESS,' said the Hatter: `it's very easy
to take MORE than nothing.'
I haven't thoroughly tested the patch to see if it has any unintended
side effects.
-Mark
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus/lisp/flow-fill.el patch --]
[-- Type: text/x-patch, Size: 459 bytes --]
--- /usr/local/lib/xemacs/xemacs-packages/lisp/gnus/flow-fill.el 2003-05-02 00:47:26.000000000 -0400
+++ /tmp/flow-fill.el 2003-07-24 11:04:08.000000000 -0400
@@ -127,7 +127,7 @@
(save-excursion
(unless (eobp)
(forward-char 1)
- (looking-at (format "^\\(%s\\)\\([^>]\\)"
+ (looking-at (format "^\\(%s\\)\\([^>\n\r]\\)"
(or quote " ?"))))))
(save-excursion
(replace-match (if (string= (match-string 2) " ")
^ permalink raw reply [flat|nested] 3+ messages in thread