From: yamaoka <yamaoka>
Date: Sun, 13 Jun 1999 22:39:49 +0000 (+0000)
Subject: (gnus-copy-article-buffer): Bind `inhibit-read-only' to t during modifying the
X-Git-Tag: et-gnus-6_11_01-00~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb302ff238e0a78f14bcb35602302a59a752ab4a;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 9e6f64a..0fbbd0f 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -464,16 +464,18 @@ 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)
-	  (gnus-remove-text-with-property 'x-face-mule-bitmap-image)
-	  (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)
+	    (gnus-remove-text-with-property 'x-face-mule-bitmap-image)
+	    (insert
+	     (prog1
+		 (format "%s" (buffer-string))
+	       (erase-buffer)))
+	    )
 	  ;; Find the original headers.
 	  (set-buffer gnus-original-article-buffer)
 	  (goto-char (point-min))