X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=ea4600b66ae591b3c3de35d68e17618526f06b48;hb=6140ba69b56668852a17d7134208714101996507;hp=fd3ab99aea666f791716b273b8b2d1d272780600;hpb=25f47474cb7abdf926bee6c98658ec94b6539636;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fd3ab99..ea4600b 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2194,7 +2194,7 @@ unfolded."
 (defun article-display-face ()
   "Display any Face headers in the header."
   (interactive)
-  (let ((wash-face-p (inhibit-read-only t)))
+  (let ((wash-face-p buffer-read-only))
     (gnus-with-article-headers
       ;; When displaying parts, this function can be called several times on
       ;; the same article, without any intended toggle semantic (as typing `W
@@ -2234,7 +2234,7 @@ unfolded."
 (defun article-display-x-face (&optional force)
   "Look for an X-Face header and display it if present."
   (interactive (list 'force))
-  (let ((wash-face-p (inhibit-read-only t)))	;; When type `W f'
+  (let ((wash-face-p buffer-read-only))	;; When type `W f'
     (gnus-with-article-headers
       ;; Delete the old process, if any.
       (when (process-status "article-x-face")