[gnus git] branch master updated: =1= (message-resend): Allow removing the read-only separator line.

       via  24afc03bdbc1422c5c9a9fcaa0f9f6493b6ed745 (commit)
      from  11fb97473a0d60aeab2116f037744f0badff0b9c (commit)


- Log -----------------------------------------------------------------
commit 24afc03bdbc1422c5c9a9fcaa0f9f6493b6ed745
Author: Lars Ingebrigtsen <[email protected]>
Date:   Fri Feb 4 01:26:51 2011 -0800

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebf0777..9522f82 100644
--- 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.
+	(message-resend): Allow removing the read-only separator line.
 
 2011-02-03  Lars Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/message.el b/lisp/message.el
index 44c99c0..1a7317f 100644
--- 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*"))
-	(erase-buffer))
+	(let ((inhibit-read-only t))
+	  (erase-buffer)))
       (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)
-      (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    1 +
 lisp/message.el |    6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project