Mercurial > emacs
changeset 23976:12c74d5eff80
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 02 Jan 1999 00:14:41 +0000 |
| parents | b0040d620df9 |
| children | abc9bc6aef59 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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