mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(mail-mode): Eliminate ambiguous match from paragraph-start.

Browse source 
(mail-yank-original): Remove text properties after insertion.
(mail-yank-region): Barf if no mark is set in the message being replied to.
This commit is contained in:
Richard M. Stallman 1999-01-02 00:14:41 +00:00
parent 759860a6af
commit 75e4db343e
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/sendmail.el
View file

@ -453,7 +453,7 @@ Here are commands that move to a header field (and create it if there isn't):
;; 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 @@ and don't delete any header fields."
;; 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 @@ and don't delete any header fields."
(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