[Emacs-diffs] /srv/bzr/emacs/trunk r107748: report-emacs-bug: cope with read-only signature.

[Richard Stallman]

------------------------------------------------------------
revno: 107748
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Tue 2012-04-03 21:05:29 -0400
message:
  report-emacs-bug: cope with read-only signature.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-03 10:21:47 +0000
+++ b/lisp/ChangeLog    2012-04-04 01:05:29 +0000
@@ -1,3 +1,7 @@
+2012-04-04  Richard Stallman  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): Bind inhibit-read-only.
+
 2012-04-03  Chong Yidong  <address@hidden>
 
        * mail/sendmail.el (mail-mode-map): Bind C-c C-i to

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2012-03-04 13:34:33 +0000
+++ b/lisp/mail/emacsbug.el     2012-04-04 01:05:29 +0000
@@ -182,7 +182,9 @@
       (set (make-local-variable 'message-strip-special-text-properties) nil))
     (rfc822-goto-eoh)
     (forward-line 1)
-    (let ((signature (buffer-substring (point) (point-max))))
+    ;; Move the mail signature to the proper place.
+    (let ((signature (buffer-substring (point) (point-max)))
+         (inhibit-read-only t))
       (delete-region (point) (point-max))
       (insert signature)
       (backward-char (length signature)))