From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37554 Path: main.gmane.org!not-for-mail From: prj@po.cwru.edu (Paul Jarc) Newsgroups: gmane.emacs.gnus.general Subject: Re: "> > >" space removal removes too many spaces? Date: Sun, 05 Aug 2001 19:11:39 -0400 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035172948 14478 80.91.224.250 (21 Oct 2002 04:02:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:02:28 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 12250 invoked from network); 5 Aug 2001 23:11:40 -0000 Original-Received: from multivac.student.cwru.edu (HELO multivac.cwru.edu) (261@129.22.96.25) by gnus.org with SMTP; 5 Aug 2001 23:11:40 -0000 Original-Received: (qmail 21935 invoked by uid 500); 5 Aug 2001 23:12:01 -0000 Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org In-Reply-To: (Simon Josefsson's message of "Sun, 05 Aug 2001 15:03:36 +0200") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/20.7 Original-Lines: 25 Xref: main.gmane.org gmane.emacs.gnus.general:37554 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37554 Simon Josefsson writes: > --- message.el.~6.108.~ Sat Jul 28 19:01:54 2001 > +++ message.el Sun Aug 5 14:43:53 2001 > @@ -2101,7 +2101,7 @@ > (save-excursion > (goto-char start) > (while (< (point) (mark t)) > - (if (looking-at message-cite-prefix-regexp) > + (if (looking-at ">") > (insert message-yank-cited-prefix) > (insert message-yank-prefix)) > (forward-line 1)))) How about: (if (and (string= "> " message-yank-prefix) (looking-at ">+ ")) (insert ">") (insert message-yank-prefix)) People who use anything other than "> " for message-yank-prefix are doing something different anyway, so this doesn't try to deal with that. paul