(article-display-face, article-display-x-face): Use buffer-read-only.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af9f966..1f5b0af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (article-display-face, article-display-x-face): Use
+       buffer-read-only.
+
 2004-08-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (article-hide-list-identifiers): Bind

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0346774..e98f8fc 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2049,7 +2049,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
@@ -2089,7 +2089,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")