projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
25f4747
)
Synch to No Gnus 200408230004.
author
yamaoka
<yamaoka>
Mon, 23 Aug 2004 00:04:44 +0000
(
00:04
+0000)
committer
yamaoka
<yamaoka>
Mon, 23 Aug 2004 00:04:44 +0000
(
00:04
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-art.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
0be86a8
..
874296e
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
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
(file)
--- 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)
(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
(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))
(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")
(gnus-with-article-headers
;; Delete the old process, if any.
(when (process-status "article-x-face")