* message.el (message-cite-original-1): Preserve region when removing

quoted text due to X-No-Archive in order to avoid bogus attribution
when citing multiple messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cbe858..3852317 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-07-08  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+       * message.el (message-cite-original-1): Preserve region when removing
+       quoted text due to X-No-Archive in order to avoid bogus attribution
+       when citing multiple messages.
+
 2006-06-27  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
 
        * gnus-group.el (gnus-group-sort-by-unread): Fix typo.  Reported by

diff --git a/lisp/message.el b/lisp/message.el
index 56ec12e..8270164 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3502,6 +3502,7 @@ This function uses `mail-citation-hook' if that is non-nil."
        (undo-boundary)
        (delete-region (point) (mark t))
        (insert "> [Quoted text removed due to X-No-Archive]\n")
+       (push-mark)
        (forward-line -1)))))
 
 (defun message-cite-original ()