From 637fb1f61ad2b0a1b0e2f9283d951c88d156bb2e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 25 May 1999 11:01:32 +0000 Subject: [PATCH] (gnus-copy-article-buffer): Remove bitmap images with text property `x-face-mule-bitmap-image'; don't bind `inhibit-read-only'. --- lisp/gnus-msg.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) 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)) -- 1.7.10.4