# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915236081 0
# Node ID 12c74d5eff80c90f5ccfb1212f725fa1ff0ec908
# Parent  b0040d620df97b6fcb2358ae1c36f5f1d27c98ac
(mail-mode): Eliminate ambiguous match from paragraph-start.

(mail-yank-original): Remove text properties after insertion.
(mail-yank-region): Barf if no mark is set in the message being replied to.

diff -r b0040d620df9 -r 12c74d5eff80 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Jan 02 00:11:36 1999 +0000
+++ b/lisp/mail/sendmail.el	Sat Jan 02 00:14:41 1999 +0000
@@ -453,7 +453,7 @@
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,
   ;; are also sometimes used and should be separators.
   (setq paragraph-start (concat (regexp-quote mail-header-separator)
-				"$\\|[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)*$"
+				"$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
 				"\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
 				"-- $\\|---+$\\|"
 				page-delimiter))
@@ -1204,7 +1204,8 @@
 	  ;; delete that window to save screen space.
 	  ;; t means don't alter other frames.
 	  (delete-windows-on original t)
-	  (insert-buffer original))
+	  (insert-buffer original)
+	  (set-text-properties (point) (mark t) nil))
 	(if (consp arg)
 	    nil
 	  (goto-char start)
@@ -1265,6 +1266,9 @@
   (interactive "P")
   (and (consp mail-reply-action)
        (eq (car mail-reply-action) 'insert-buffer)
+       (with-current-buffer (nth 1 mail-reply-action)
+	 (or (mark t)
+	     (error "No mark set: %S" (current-buffer))))
        (let ((buffer (nth 1 mail-reply-action))
 	     (start (point))
 	     ;; Avoid error in Transient Mark mode