5.6.16 breaks paragraph-filling

5.6.16 breaks paragraph-filling

[Karl Kleinpaste]

Gnus v5.6.16; nntp 5.0; nnml 1.0; nnmh 1.0; nndraft 1.0
XEmacs 20.4 "Emerald" [Lucid] (i386-pc-linux) of Wed Feb 25 1998 on threepwood.idb.hist.no

I am about to revert to .13, because I've just discovered that .16 has 
utterly destroyed paragraph-filling in some manner in *message*
buffers.  M-q is still bound to function fill-paragraph-or-region, but
it appears that the understanding of paragraph endpoints has been
utterly lost: The entire message, including the header, is filled as
though it were one monstrous paragraph.

Deep badness.

--karl

Re: 5.6.16 breaks paragraph-filling

[Michael Welsh Duggan]

Karl Kleinpaste <karl@jprc.com> writes:

> Gnus v5.6.16; nntp 5.0; nnml 1.0; nnmh 1.0; nndraft 1.0
> XEmacs 20.4 "Emerald" [Lucid] (i386-pc-linux) of Wed Feb 25 1998 on threepwood.idb.hist.no
> 
> I am about to revert to .13, because I've just discovered that .16 has 
> utterly destroyed paragraph-filling in some manner in *message*
> buffers.  M-q is still bound to function fill-paragraph-or-region, but
> it appears that the understanding of paragraph endpoints has been
> utterly lost: The entire message, including the header, is filled as
> though it were one monstrous paragraph.

This appears to be bacause of the filling changes Stallman added.  An
extraneous "\\|" got tacked onto the end of paragraph-start in
`message-mode'.  Removing that fixed filling for me.

-- 
Michael Duggan
(md5i@cs.cmu.edu)
.

Re: 5.6.16 breaks paragraph-filling

[Karl Kleinpaste]

Michael Welsh Duggan <md5i@cs.cmu.edu> writes:
> This appears to be bacause of the filling changes Stallman added.  An
> extraneous "\\|" got tacked onto the end of paragraph-start in
> `message-mode'.  Removing that fixed filling for me.

Yup, that appears to be all that's needed.  Patch:

--- message.el.~1~	Fri Jun 26 11:26:58 1998
+++ message.el	Fri Jun 26 16:20:59 1998
@@ -1309,13 +1309,13 @@
   (setq paragraph-start
 	(concat (regexp-quote mail-header-separator)
 		"$\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
 		"-- $\\|---+$\\|"
 		page-delimiter
 		;;!!! Uhm... shurely this can't be right?
-		"[> " (regexp-quote message-yank-prefix) "]+$\\|"))
+		"[> " (regexp-quote message-yank-prefix) "]+$"))
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'message-reply-headers)
   (setq message-reply-headers nil)
   (make-local-variable 'message-newsreader)
   (make-local-variable 'message-mailer)
   (make-local-variable 'message-post-method)