From: yamaoka <yamaoka>
Date: Tue, 25 May 1999 11:01:32 +0000 (+0000)
Subject: (gnus-copy-article-buffer): Remove bitmap images with text property
X-Git-Tag: t-gnus-6_10_064-13~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=637fb1f61ad2b0a1b0e2f9283d951c88d156bb2e;p=elisp%2Fgnus.git-

(gnus-copy-article-buffer): Remove bitmap images with text property
`x-face-mule-bitmap-image'; don't bind `inhibit-read-only'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 265a8dc..b167da0 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -464,17 +464,16 @@ header line with the old Message-ID."
 	  ;; Copy over the (displayed) article buffer, delete
 	  ;; hidden text and remove text properties.
 	  (widen)
-	  (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)))
-	    )
+	  (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))