Mercurial > emacs

comparison lisp/mail/sendmail.el @ 13928:d9a95968edb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-header-separator): Don't put on read-only property.
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Jan 1996 18:36:29 +0000
parents 30b732ff2de2
children e9615c5f477a
comparison
equal deleted inserted replaced
13927:327ff78701e0 13928:d9a95968edb8
65 (defvar mail-header-separator "--text follows this line--" "\ 65 (defvar mail-header-separator "--text follows this line--" "\
66 *Line used to separate headers from text in messages being composed.") 66 *Line used to separate headers from text in messages being composed.")
67 67
68 ;; Set up mail-header-separator for use as a category text property. 68 ;; Set up mail-header-separator for use as a category text property.
69 (put 'mail-header-separator 'rear-nonsticky '(category)) 69 (put 'mail-header-separator 'rear-nonsticky '(category))
70 (put 'mail-header-separator 'read-only t) 70 ;;; This was a nice idea, for preventing accidental modification of
71 ;;; the separator. But I found it also prevented or obstructed
72 ;;; certain deliberate operations, such as copying the separator line
73 ;;; up to the top to send myself a copy of an already sent outgoing message
74 ;;; and other things. So I turned it off. --rms.
75 ;;;(put 'mail-header-separator 'read-only t)
71 76
72 ;;;###autoload 77 ;;;###autoload
73 (defvar mail-archive-file-name nil "\ 78 (defvar mail-archive-file-name nil "\
74 *Name of file to write all outgoing messages in, or nil for none. 79 *Name of file to write all outgoing messages in, or nil for none.
75 This can be an inbox file or an Rmail file.") 80 This can be an inbox file or an Rmail file.")