2001-05-27 Simon Josefsson <simon@josefsson.org>

	* message.el (message-yank-cited-prefix): New variable.
	(message-indent-citation): Use it.

2001-05-27  Simon Josefsson  <simon@josefsson.org>

	* message.texi (Insertion): Add message-yank-cited-prefix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 353848f..9493a78 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-05-27  Simon Josefsson  <simon@josefsson.org>
 
+       * message.el (message-yank-cited-prefix): New variable.
+       (message-indent-citation): Use it.
+
        * mml2015.el (mml2015-mailcrypt-verify): Store gpg stderr output
        as details.
        (mml2015-mailcrypt-clear-verify): Ditto.

diff --git a/lisp/message.el b/lisp/message.el
index f66ea77..94e62f6 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -523,6 +523,12 @@ Fix `message-cite-prefix-regexp' if it is set to an abnormal value."
   :type 'string
   :group 'message-insertion)
 
+(defcustom message-yank-cited-prefix ">"
+  "*Prefix inserted on cited lines of yanked messages.
+Fix `message-cite-prefix-regexp' if it is set to an abnormal value."
+  :type 'string
+  :group 'message-insertion)
+
 (defcustom message-indentation-spaces 3
   "*Number of spaces to insert at the beginning of each cited line.
 Used by `message-yank-original' via `message-yank-cite'."
@@ -2074,7 +2080,9 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
       (save-excursion
        (goto-char start)
        (while (< (point) (mark t))
-         (insert message-yank-prefix)
+         (if (looking-at message-cite-prefix-regexp)
+             (insert message-yank-cited-prefix)
+           (insert message-yank-prefix))
          (forward-line 1))))
     (goto-char start)))
 

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 8659f6b..848469a 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-27  Simon Josefsson  <simon@josefsson.org>
+
+       * message.texi (Insertion): Add message-yank-cited-prefix.
+
 2001-05-22  Simon Josefsson  <simon@josefsson.org>
        From Jesper Harder <harder@ifa.au.dk>
 

diff --git a/texi/message.texi b/texi/message.texi
index 5a05ddd..7b3fe0f 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -505,10 +505,20 @@ function is called.
 @cindex yanking
 @cindex quoting
 When you are replying to or following up an article, you normally want
-to quote the person you are answering.  Inserting quoted text is done by
-@dfn{yanking}, and each quoted line you yank will have
+to quote the person you are answering.  Inserting quoted text is done
+by @dfn{yanking}, and each quoted line you yank (except earlier
+quotes, see @code{message-yank-cited-prefix}) will have
 @code{message-yank-prefix} prepended to it.  The default is @samp{> }.
 
+@item message-yank-cited-prefix
+@vindex message-yank-cited-prefix
+@cindex yanking
+@cindex cited
+@cindex quoting
+The @code{message-yank-prefix} prefix is not used on already cited
+lines, instead the contents of this variable is used as yank prefix.
+The default is @samp{>}.
+
 @item message-indentation-spaces
 @vindex message-indentation-spaces
 Number of spaces to indent yanked messages.