Mercurial > emacs
changeset 13824:88384034a5b4
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Dec 1995 07:42:36 +0000 |
| parents | 881e5c4a01cb |
| children | dc1c03408169 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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"))