From: yamaoka <yamaoka>
Date: Fri, 21 May 1999 12:19:44 +0000 (+0000)
Subject: (gnus-article-prepare-mime-display): Don't treat as a MIME message if the
X-Git-Tag: t-gnus-6_10_064-11~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2879d2708fe7213d6501888602a96a13d0347fa5;p=elisp%2Fgnus.git-

(gnus-article-prepare-mime-display): Don't treat as a MIME message if the
article is not so.
(gnus-article-display-traditional-message): Bind `inhibit-read-only' to t.
(article-hide-headers): Ditto.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 584d441..c025dbb 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1061,6 +1061,7 @@ Initialized from `text-mode-syntax-table.")
     (save-excursion
       (save-restriction
 	(let ((buffer-read-only nil)
+	      (inhibit-read-only t)
 	      (case-fold-search t)
 	      (max (1+ (length gnus-sorted-header-list)))
 	      (ignored (when (not gnus-visible-headers)
@@ -2588,7 +2589,8 @@ commands:
 (defun gnus-article-display-traditional-message ()
   "Article display method for traditional message."
   (set-buffer gnus-article-buffer)
-  (let (buffer-read-only)
+  (let ((inhibit-read-only t)
+	buffer-read-only)
     (erase-buffer)
     (insert-buffer-substring gnus-original-article-buffer)))
 
@@ -2755,6 +2757,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 	 (number (or number 0))
 	 content-type treat-type)
     (while (and (not (eobp))
+		entity
 		(progn (mime-preview-move-to-next)
 		       (> (point) start)))
       (if entity