From: yamaoka <yamaoka>
Date: Mon, 23 Aug 2004 00:04:44 +0000 (+0000)
Subject: Synch to No Gnus 200408230004.
X-Git-Tag: t-gnus-6_17_4-quimby-~795
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6140ba69b56668852a17d7134208714101996507;p=elisp%2Fgnus.git-

Synch to No Gnus 200408230004.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0be86a8..874296e 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 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")