From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55056 Path: main.gmane.org!not-for-mail From: Ralf Angeli Newsgroups: gmane.emacs.gnus.general Subject: [flow-fill.el] Filling of quoted blank lines Date: Tue, 02 Dec 2003 18:35:33 +0100 Organization: nil Sender: ding-owner@lists.math.uh.edu Message-ID: 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 1070386571 8069 80.91.224.253 (2 Dec 2003 17:36:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 2 Dec 2003 17:36:11 +0000 (UTC) Original-X-From: ding-owner+M3595@lists.math.uh.edu Tue Dec 02 18:36:08 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 1ARERU-0001YT-00 for ; Tue, 02 Dec 2003 18:36:08 +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 1ARERE-0002ta-00; Tue, 02 Dec 2003 11:35:52 -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 1ARER6-0002tU-00 for ding@lists.math.uh.edu; Tue, 02 Dec 2003 11:35:44 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 0E9EF3A0037 for ; Tue, 2 Dec 2003 11:35:44 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1ARER5-0000Ho-00 for ; Tue, 02 Dec 2003 18:35:43 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 73 Original-NNTP-Posting-Host: iwi190.iwi.uni-sb.de Original-X-Trace: quimby.gnus.org 1070386542 1103 134.96.72.190 (2 Dec 2003 17:35:42 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Tue, 2 Dec 2003 17:35:42 +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:qUDKsr8TuMhzU6BgugRijq/SoTU= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55056 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55056 Hello everybody, there are quite some people out there using Mozilla with `format=flowed' enabled. This is handled nicely by `flow-fill.el' except when it comes to quoted blank lines. Mozilla is quoting them with `> \n' where `flow-fill.el' sees soft line breaks at the end. The lines are filled and disappear. You can have a look at an example in comp.text.tex; the MID is . Compare the display of the message using `C-u g' and `g'. In the latter case some lines are missing. Is this the intended behaviour? I find it a little bit irritating and sometimes don't even want to answer such posts as I am afraid that Gnus messes up the text. I looked into `flow-fill.el' and made some changes which now take lines with `> ' into account and won't fill them. They are attached at the bottom of this article. I am not sure if I understood the code correctly so there might be some changes needed in the respective regular expressions. It would be nice if the behaviour of Gnus could be changed in the respective manner. 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 2 Dec 2003 17:14:01 -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,10 @@ ;; XXX slightly buggy handling of "-- " (while (and (save-excursion (ignore-errors (backward-char 3)) - (setq sig (looking-at "-- ")) - (looking-at "[^-][^-] ")) + (setq except (or (looking-at "-- ") + (looking-at ">[ >]*$"))) + (looking-at "[^-][^-] ") + (looking-at "[^>] $")) (save-excursion (unless (eobp) (forward-char 1) @@ -136,7 +138,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---