From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55075 Path: main.gmane.org!not-for-mail From: Ralf Angeli Newsgroups: gmane.emacs.gnus.general Subject: Re: [flow-fill.el] Filling of quoted blank lines Date: Wed, 03 Dec 2003 23:07:12 +0100 Organization: nil Sender: ding-owner@lists.math.uh.edu Message-ID: References: Reply-To: angeli@iwi.uni-sb.de NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1070489272 30159 80.91.224.253 (3 Dec 2003 22:07:52 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 3 Dec 2003 22:07:52 +0000 (UTC) Original-X-From: ding-owner+M3615@lists.math.uh.edu Wed Dec 03 23:07:49 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1ARf9x-000689-00 for ; Wed, 03 Dec 2003 23:07:49 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1ARf9g-0006xk-00; Wed, 03 Dec 2003 16:07:32 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1ARf9c-0006xf-00 for ding@lists.math.uh.edu; Wed, 03 Dec 2003 16:07:28 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id B041C3A003E for ; Wed, 3 Dec 2003 16:07:27 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1ARf9b-0005jz-00 for ; Wed, 03 Dec 2003 23:07:27 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 61 Original-NNTP-Posting-Host: 212.82.228.69 Original-X-Trace: quimby.gnus.org 1070489247 22068 212.82.228.69 (3 Dec 2003 22:07:27 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Wed, 3 Dec 2003 22:07:27 +0000 (UTC) Mail-Copies-To: nobody Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAFVBMVEUAAABRTjbBxazr8c7/ ///0/NMCAgInQpwwAAABdUlEQVR4nJXTzW7DIAwAYFeTci5pxx0T5V6Ies/Pdt+0ByDN5Pd/hBlI E0KTw9xLxIcxYArDQcD62Wu9Dx3//geDVgcwfDZHUB1AewBdfdmD3p6Bmi10QqB0wCGqDbSlkn4Y CvdIoedpLScUpVZUJeAP/MHgZ9ePBKz/OAP4yV3RZCChCHtz12SpngdmGNxvAmZARBHq9u4t2S4a rXhH77yNG6TQKa2kvo3aKAfpUtr6QElEDpLicdxa468l3e43YjQzn3KpUZkblojW1stKscakhCiV EZpT0ox2FD4a+eCWFFWSEcYFCsEAU3LtEcRo+RhwegGi0MV5rbCrJ1Bo73UFFUDSGDo8rTCvpag0 S5H4fDqfg7amMQPuojb+sghy4KxwjVy/2AFrUO5mcNSvoC0GmDKY+yXTA8YwsVennxxqHVa6DDnI Ea0iqHLoz0WPzT19JSG+KJyshUuzhTvMQOMW2vhy2ufLWmuY8G/oHGQZi2Os8Qd3kAFISYdfAQAA AABJRU5ErkJggg== User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:8EXKlS8QTtLj26EpZ8GjFJIZATQ= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55075 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55075 * Ralf Angeli (2003-12-03) writes: > I will see if I can find the bug. Okay, here is a new patch which works correctly AFAICS. I know it is not very elegant as I just copied and adapted the code for finding the signature but I did not want to change too much of the existing code. It would be nice if somebody could have a look at it and maybe check it in if it is acceptable. Regards, Ralf -- Moo! `~~_. ______',,/______ No gnus is bad news. --8<---------------cut here---------------start------------->8--- Index: flow-fill.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/flow-fill.el,v retrieving revision 6.17 diff -u -r6.17 flow-fill.el --- flow-fill.el 23 Oct 2003 05:52:49 -0000 6.17 +++ flow-fill.el 3 Dec 2003 21:43:13 -0000 @@ -112,7 +112,7 @@ (beginning-of-line) (looking-at "^\\(>*\\)\\( ?\\)")) (let ((quote (match-string 1)) - sig) + except) (if (string= quote "") (setq quote nil)) (when (and quote (string= (match-string 2) "")) @@ -124,8 +124,12 @@ ;; XXX slightly buggy handling of "-- " (while (and (save-excursion (ignore-errors (backward-char 3)) - (setq sig (looking-at "-- ")) + (setq except (looking-at "-- ")) (looking-at "[^-][^-] ")) + (save-excursion + (ignore-errors (backward-char 2)) + (setq except (or except (looking-at "> "))) + (looking-at "[^>] ")) (save-excursion (unless (eobp) (forward-char 1) @@ -136,7 +140,7 @@ "" "\\2"))) (backward-delete-char -1) (end-of-line)) - (unless sig + (unless except (condition-case nil (let ((fill-prefix (when quote (concat quote " "))) (fill-column (eval fill-flowed-display-column)) --8<---------------cut here---------------end--------------->8---