2001-10-30 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (article-display-x-face): Nix buffer-read-only
	again.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0c7ba7..beb252c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-30 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-art.el (article-display-x-face): Nix buffer-read-only
+       again.
+
        * mml2015.el (mml2015-gpg-verify): Convert <LF> to <CR><LF>.
 
 2001-10-30 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 87bd950..0611b3b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1658,7 +1658,8 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
          ;; We now have the area of the buffer where the X-Face is stored.
          (save-excursion
            (let ((beg (point))
-                 (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t))))
+                 (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t)))
+                 buffer-read-only)
              ;; We display the face.
              (if (symbolp gnus-article-x-face-command)
                  ;; The command is a lisp function, so we call it.