From 6140ba69b56668852a17d7134208714101996507 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 23 Aug 2004 00:04:44 +0000 Subject: [PATCH] Synch to No Gnus 200408230004. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * gnus-art.el (article-display-face, article-display-x-face): Use + buffer-read-only. + 2004-08-22 Katsumi Yamaoka * 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") -- 1.7.10.4