(message-resend): Allow removing the read-only separator line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebf0777..9522f82 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        -forbidden-properties.
        (message-setup-1): Revert previous change, since it needs to bind the
        props to insert them.
        -forbidden-properties.
        (message-setup-1): Revert previous change, since it needs to bind the
        props to insert them.

+       (message-resend): Allow removing the read-only separator line.

 
 2011-02-03  Lars Ingebrigtsen  <larsi@gnus.org>
 
 
 2011-02-03  Lars Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 44c99c0..1a7317f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7484,7 +7484,8 @@ is for the internal use."
       ;; We first set up a normal mail buffer.
       (unless (message-mail-user-agent)
        (set-buffer (get-buffer-create " *message resend*"))
       ;; We first set up a normal mail buffer.
       (unless (message-mail-user-agent)
        (set-buffer (get-buffer-create " *message resend*"))

-       (erase-buffer))
+       (let ((inhibit-read-only t))
+         (erase-buffer)))

       (let ((message-this-is-mail t)
            message-generate-hashcash
            message-setup-hook)
       (let ((message-this-is-mail t)
            message-generate-hashcash
            message-setup-hook)


@@ -7501,7 +7502,8 @@ is for the internal use."
        (insert "Resent-"))
       (widen)
       (forward-line)
        (insert "Resent-"))
       (widen)
       (forward-line)

-      (delete-region (point) (point-max))
+      (let ((inhibit-read-only t))
+       (delete-region (point) (point-max)))

       (setq beg (point))
       ;; Insert the message to be resent.
       (insert-buffer-substring cur)
       (setq beg (point))
       ;; Insert the message to be resent.
       (insert-buffer-substring cur)