From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10049 Path: main.gmane.org!not-for-mail From: Sudish Joseph Newsgroups: gmane.emacs.gnus.general Subject: Re: Preformatting features of Emacs Date: 28 Feb 1997 21:13:22 -0500 Sender: sj@atreides.eng.mindspring.net Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.101) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035149980 22062 80.91.224.250 (20 Oct 2002 21:39:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:39:40 +0000 (UTC) Return-Path: Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.8.5/8.8.5) with SMTP id SAA06521 for ; Fri, 28 Feb 1997 18:30:13 -0800 Original-Received: from atreides.eng.mindspring.net (atreides.eng.mindspring.net [207.69.183.11]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Sat, 1 Mar 1997 03:13:53 +0100 Original-Received: (qmail 32161 invoked by uid 52477); 1 Mar 1997 02:13:22 -0000 Original-To: ding@ifi.uio.no In-Reply-To: Lars Magne Ingebrigtsen's message of 01 Mar 1997 02:04:15 +0100 Original-Lines: 43 X-Mailer: Red Gnus v0.82/XEmacs 20.0 Xref: main.gmane.org gmane.emacs.gnus.general:10049 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10049 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