Re: Preformatting features of Emacs

[Sudish Joseph <sj@eng.mindspring.net>]

Lars Magne Ingebrigtsen writes:
> `gnus-article-fill-cited-article' does bind `adaptive-fill-mode' to
> nil before filling anything...

Stopped being lazy and took a look at the source.  The problem was
that a) g-a-f-c-a wasn't skipping blank lines at the start of paras
when using it's marks-based feeding of fill-region and b) it also
needs to skip "blank" quoted lines, since filladapt correctly sees
them as blank lines once it drops the prefix.
LongSentencesAreCoolerThanLongWords. 

Anyways, the patch below fixes this...BUT, this is still not quite the
right thing, IMO.  Currently, gnus-cite groks the prefix and feeds it
to fill-region.  This loses for filladapt users coz some weird voodoo
causes filladapt to get confused and drop a few leading spaces.

The alternative is to let filladapt users simply use that alone and
not set fill-prefix at all.  This could be auto-grokked by checking
adaptive-fill-mode (i think?) or made a variable.  I'll play with it
later.

-Sudish

--- gnus-cite.el~	Fri Feb 28 21:04:41 1997
+++ gnus-cite.el	Fri Feb 28 21:04:41 1997
@@ -424,7 +424,13 @@
 	  (let ((adaptive-fill-regexp
 		 (concat "^" (regexp-quote (cdar marks)) " *"))
 		(fill-prefix (cdar marks)))
-	    (fill-region (point-min) (point-max)))
+	    (fill-region (progn
+			   (skip-chars-forward "\n\t ")
+			   (beginning-of-line)
+			   (while (looking-at (concat "^" fill-prefix " *$"))
+			     (forward-line))
+			   (point))
+			 (point-max)))
 	  (set-marker (caar marks) nil)
 	  (setq marks (cdr marks)))
 	(when marks