(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 (file)
--- 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))