From: yamaoka <yamaoka>
Date: Mon, 24 May 1999 13:17:45 +0000 (+0000)
Subject: (gnus-copy-article-buffer): Bind `inhibit-read-only' to t during modifying the
X-Git-Tag: t-gnus-6_10_064-12~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a7526f1a05980024abc486f7455cf20e58502580;p=elisp%2Fgnus.git-

(gnus-copy-article-buffer): Bind `inhibit-read-only' to t during modifying the
destination buffer.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 186810c..265a8dc 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -464,15 +464,17 @@ header line with the old Message-ID."
 	  ;; Copy over the (displayed) article buffer, delete
 	  ;; hidden text and remove text properties.
 	  (widen)
-	  (copy-to-buffer gnus-article-copy (point-min) (point-max))
-	  (set-buffer gnus-article-copy)
-	  (gnus-article-delete-text-of-type 'annotation)
-	  (gnus-remove-text-with-property 'gnus-prev)
-	  (gnus-remove-text-with-property 'gnus-next)
-	  (insert
-	   (prog1
-	       (format "%s" (buffer-string))
-	     (erase-buffer)))
+	  (let ((inhibit-read-only t))
+	    (copy-to-buffer gnus-article-copy (point-min) (point-max))
+	    (set-buffer gnus-article-copy)
+	    (gnus-article-delete-text-of-type 'annotation)
+	    (gnus-remove-text-with-property 'gnus-prev)
+	    (gnus-remove-text-with-property 'gnus-next)
+	    (insert
+	     (prog1
+		 (format "%s" (buffer-string))
+	       (erase-buffer)))
+	    )
 	  ;; Find the original headers.
 	  (set-buffer gnus-original-article-buffer)
 	  (goto-char (point-min))