From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 23 Aug 2004 00:04:22 +0000 (+0000)
Subject: (article-display-face, article-display-x-face): Use buffer-read-only.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=6342cefebdccb4123591ce00bdf51a1ed1d65204

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af9f966d6..1f5b0af7c 100644
--- 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 03467740a..e98f8fc18 100644
--- 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")