Re: `C-c C-v' should keep citation prefix

[Simon Josefsson <jas@extundo.com>]

"Steven E. Harris" <sharris@speakeasy.org> writes:

>> I think it would be a good idea if C-c C-v would keep it.
> 
> I agree wholeheartedly. In fact, while quoting the line above, I had
> to add the '>' to the beginning of the line after using C-c C-v.

Does this do anything useful?

Index: message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.83
diff -u -u -w -r6.83 message.el
--- message.el	2001/05/26 09:25:13	6.83
+++ message.el	2001/06/05 18:35:51
@@ -1786,7 +1786,13 @@
 (defun message-delete-not-region (beg end)
   "Delete everything in the body of the current message outside of the region."
   (interactive "r")
+  (let (citeprefix)
   (save-excursion
+      (goto-char beg)
+      ;; snarf citation prefix, if appropriate
+      (unless (eq (point) (progn (beginning-of-line) (point)))
+	(when (looking-at message-cite-prefix-regexp)
+	  (setq citeprefix (match-string 0))))
     (goto-char end)
     (delete-region (point) (if (not (message-goto-signature))
 			       (point)
@@ -1796,7 +1802,9 @@
     (goto-char beg)
     (delete-region beg (progn (message-goto-body)
 			      (forward-line 2)
-			      (point))))
+				(point)))
+      (when citeprefix
+	(insert citeprefix))))
   (when (message-goto-signature)
     (forward-line -2)))