From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39080 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Followup leaves one space too many Date: Mon, 01 Oct 2001 22:37:58 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035174845 25957 80.91.224.250 (21 Oct 2002 04:34:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:34:05 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: (qmail 25528 invoked from network); 1 Oct 2001 20:41:55 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 1 Oct 2001 20:41:55 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 15o9pH-0003nv-00; Mon, 01 Oct 2001 15:38:07 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 01 Oct 2001 15:37:44 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id PAA21534 for ; Mon, 1 Oct 2001 15:37:33 -0500 (CDT) Original-Received: (qmail 25458 invoked by alias); 1 Oct 2001 20:37:51 -0000 Original-Received: (qmail 25453 invoked from network); 1 Oct 2001 20:37:51 -0000 Original-Received: from dolk.extundo.com (195.42.214.242) by gnus.org with SMTP; 1 Oct 2001 20:37:51 -0000 Original-Received: from barbar.josefsson.org (slipsten.extundo.com [195.42.214.241]) (authenticated bits=0) by dolk.extundo.com (8.12.0/8.12.0) with ESMTP id f91Kbv0r013760; Mon, 1 Oct 2001 22:37:57 +0200 Original-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-1?q?Gro=DFjohann?=) In-Reply-To: (Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "Mon, 01 Oct 2001 15:51:45 +0200") Mail-Copies-To: nobody Original-Lines: 65 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.106 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:39080 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39080 Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro=DFjohann) writes: > When I followup to something like the following: > > /---- > | > > foo > | > > bar > \---- > > Then I get > > /---- > | > > > foo > | >> > bar > \---- > > Note that the first line has "> > >" rather than ">> >". I think the > first line should have ">> >", like all the subsequent lines. Yes, this is a side effect of the AI added as a result of the thread, also see the followup-thread . I think the patch I proposed works equally well in practice, and gives less surprising results in the corner cases. Maybe you can run with this for a while and see if it works? (The patch is againt current CVS.) --- message.el.~6.119.~ Sun Sep 30 12:21:44 2001 +++ message.el Mon Oct 1 22:34:48 2001 @@ -2105,31 +2105,11 @@ (indent-rigidly start (mark t) message-indentation-spaces) (save-excursion (goto-char start) - (let (last-line) - ;; `last-line' describes the contents of the last line - ;; encountered in the loop below. nil means "empty line", - ;; spaces "line consisting entirely of whitespace", - ;; right-angle "line starts with >", quoted "quote character - ;; at the beginning of the line", text "the remaining cases". (while (< (point) (mark t)) - (cond - ((eolp)=20 + (if (looking-at ">") (insert message-yank-cited-prefix) - (setq last-line nil)) - ((looking-at ">") - (if (memq last-line '(nil spaces right-angle quoted)) - (progn - (insert message-yank-cited-prefix) - (setq last-line 'quoted)) - (insert message-yank-prefix) - (setq last-line 'right-angle))) - ((looking-at "\\s-+$") - (insert message-yank-prefix) - (setq last-line 'spaces)) - (t - (insert message-yank-prefix) - (setq last-line 'text))) - (forward-line 1))))) + (insert message-yank-prefix)) + (forward-line 1)))) (goto-char start))) =20 (defun message-yank-original (&optional arg)