# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 819704556 0
# Node ID 88384034a5b48daa2a2a29308d1979e80b0cd0e2
# Parent  881e5c4a01cbe7b9bf8f205f3f24a65eb108cea9
(mail-setup): Put text property on mail-header-separator.
(mail-header-separator): Set it up for use as a category property.
(mail, mail-send): Turn on inhibit-read-only temporarily.

diff -r 881e5c4a01cb -r 88384034a5b4 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Dec 23 07:34:59 1995 +0000
+++ b/lisp/mail/sendmail.el	Sat Dec 23 07:42:36 1995 +0000
@@ -65,6 +65,10 @@
 (defvar mail-header-separator "--text follows this line--" "\
 *Line used to separate headers from text in messages being composed.")
 
+;; Set up mail-header-separator for use as a category text property.
+(put 'mail-header-separator 'rear-nonsticky '(category))
+(put 'mail-header-separator 'read-only t)
+
 ;;;###autoload
 (defvar mail-archive-file-name nil "\
 *Name of file to write all outgoing messages in, or nil for none.
@@ -266,7 +270,11 @@
 	(insert "BCC: " (user-login-name) "\n"))
     (if mail-archive-file-name
 	(insert "FCC: " mail-archive-file-name "\n"))
-    (insert mail-header-separator "\n")
+    (put-text-property (point)
+		       (progn
+			 (insert mail-header-separator "\n")
+			 (1- (point)))
+		       'category 'mail-header-separator)
     ;; Insert the signature.  But remember the beginning of the message.
     (if to (setq to (point)))
     (cond ((eq mail-signature t)
@@ -438,7 +446,7 @@
 	  (y-or-n-p "Send buffer contents as mail message? ")
 	(or (buffer-modified-p)
 	    (y-or-n-p "Message already sent; resend? ")))
-      (progn
+      (let ((inhibit-read-only t))
 	(run-hooks 'mail-send-hook)
 	(message "Sending...")
 	(funcall send-mail-function)
@@ -1008,9 +1016,10 @@
     (and (not noerase)
 	 (or (not (buffer-modified-p))
 	     (y-or-n-p "Unsent message being composed; erase it? "))
-	 (progn (erase-buffer)
-		(mail-setup to subject in-reply-to cc replybuffer actions)
-		(setq initialized t)))
+	 (let ((inhibit-read-only t))
+	   (erase-buffer)
+	   (mail-setup to subject in-reply-to cc replybuffer actions)
+	   (setq initialized t)))
     (if (and buffer-auto-save-file-name
 	     (file-exists-p buffer-auto-save-file-name))
 	(message "Auto save file for draft message exists; consider M-x mail-recover"))