Gnus development mailing list
 help / color / mirror / Atom feed
From: prj@po.cwru.edu (Paul Jarc)
Subject: Re: "> > >" space removal removes too many spaces?
Date: Sun, 05 Aug 2001 19:11:39 -0400	[thread overview]
Message-ID: <m3snf65cfy.fsf@multivac.cwru.edu> (raw)
In-Reply-To: <ilu7kwifyl3.fsf@barbar.josefsson.org> (Simon Josefsson's message of "Sun, 05 Aug 2001 15:03:36 +0200")

Simon Josefsson <jas@extundo.com> 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


  parent reply	other threads:[~2001-08-05 23:11 UTC|newest]

Thread overview: 20+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-08-05 11:53 Kai Großjohann
2001-08-05 12:05 ` Norbert Koch
2001-08-05 12:15   ` Kai Großjohann
2001-08-05 12:23     ` Norbert Koch
2001-08-05 13:03 ` Simon Josefsson
2001-08-05 13:10   ` Simon Josefsson
2001-08-05 13:46   ` Florian Weimer
2001-08-05 13:57     ` Simon Josefsson
2001-08-05 14:24       ` Nuutti Kotivuori
2001-08-05 14:49         ` Florian Weimer
2001-08-05 21:23           ` Nuutti Kotivuori
2001-08-05 14:47       ` Florian Weimer
2001-08-05 17:25         ` Kai Großjohann
2001-08-05 17:55           ` Florian Weimer
2001-08-05 19:30         ` Simon Josefsson
2001-08-05 20:11           ` Florian Weimer
2001-08-05 20:45             ` Kai Großjohann
2001-08-05 20:08         ` Kai Großjohann
2001-08-05 23:11   ` Paul Jarc [this message]
2001-08-06  6:33     ` Florian Weimer

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m3snf65cfy.fsf@multivac.cwru.edu \
    --to=prj@po.cwru.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).