Signed-off-by: Julien Danjou <julien@danjou.info>
* message.el (message-setup-1): Always generate References first.
(message-mail): Return the return value of message-setup, not always t.
* message.el (message-setup-1): Always generate References first.
(message-mail): Return the return value of message-setup, not always t.
+ (message-setup-1): Insert mail-header-separator with read-only and
+ intangible properties set.
* gnus.el (gnus-summary-line-format): Add missing semi-colon for
user-date in docstring.
* gnus.el (gnus-summary-line-format): Add missing semi-colon for
user-date in docstring.
(funcall message-default-headers)
message-default-headers))
(or (bolp) (insert ?\n)))
(funcall message-default-headers)
message-default-headers))
(or (bolp) (insert ?\n)))
- (insert mail-header-separator "\n")
+ (let ((message-forbidden-properties nil))
+ (insert (propertize (concat mail-header-separator "\n")
+ 'read-only t 'rear-nonsticky t 'intangible t)))
(forward-line -1)
;; If a crash happens while replying, the auto-save file would *not* have a
;; `References:' header if `message-generate-headers-first' was nil.
(forward-line -1)
;; If a crash happens while replying, the auto-save file would *not* have a
;; `References:' header if `message-generate-headers-first' was nil.