From: yamaoka <yamaoka>
Date: Fri, 27 Apr 2001 04:51:57 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 01.
X-Git-Tag: t-gnus-6_15_3-01-quimby~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=47dfb0a8747f0d4e0879489c2d2d6d38b842f904;p=elisp%2Fgnus.git-

* gnus-vers.el (gnus-revision-number): Increment to 01.

* gnus-art.el (gnus-article-mime-edit-exit): Set buffer to
 `gnus-article-buffer' just before `gnus-article-prepare-display' is called.
(gnus-article-mime-edit-article-setup): Ditto.
(gnus-article-prepare-display): Don't bind `buffer-read-only' because of
 `inhibit-read-only';
 don't set the value of `gnus-article-current-summary' here;
 delete all extents or overlays and clear the value of
 `gnus-button-marker-list' in advance;
 make it to run in `gnus-article-buffer'.
(gnus-article-prepare): Make it to run in `gnus-article-buffer'.
(article-toggle-headers): Don't bind `buffer-read-only' because of
 `inhibit-read-only'.
(article-hide-headers): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 510b872..8788176 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,21 @@
+2001-04-27  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 01.
+
+	* lisp/gnus-art.el (gnus-article-mime-edit-exit): Set buffer to
+	`gnus-article-buffer' just before `gnus-article-prepare-display' is
+	called.
+	(gnus-article-mime-edit-article-setup): Ditto.
+	(gnus-article-prepare-display): Don't bind `buffer-read-only'
+	because of `inhibit-read-only'; don't set the value of
+	`gnus-article-current-summary' here; delete all extents or overlays
+	and clear the value of `gnus-button-marker-list' in advance; make
+	it to run in `gnus-article-buffer'.
+	(gnus-article-prepare): Make it to run in `gnus-article-buffer'.
+	(article-toggle-headers): Don't bind `buffer-read-only' because of
+	`inhibit-read-only'.
+	(article-hide-headers): Ditto.
+
 2001-04-16  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el: T-gnus 6.15.3 revision 00.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 927592b..3b72ac1 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1303,8 +1303,7 @@ Initialized from `text-mode-syntax-table.")
   (unless gnus-inhibit-hiding
     (save-excursion
       (save-restriction
-	(let ((buffer-read-only nil)
-	      (inhibit-read-only t)
+	(let ((inhibit-read-only t)
 	      (case-fold-search t)
 	      (max (1+ (length gnus-sorted-header-list)))
 	      (ignored (when (not gnus-visible-headers)
@@ -1494,8 +1493,7 @@ if given a positive prefix, always hide."
 	(header-end (point-min))
 	header-start field-end field-start
 	(inhibit-point-motion-hooks t)
-	(inhibit-read-only t)
-	buffer-read-only)
+	(inhibit-read-only t))
     (save-restriction
       (widen)
       (while (and (setq header-start
@@ -3361,7 +3359,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 	   result)
       (save-excursion
 	(gnus-article-setup-buffer)
-	(set-buffer gnus-original-article-buffer)
+	(set-buffer gnus-article-buffer)
 	;; Deactivate active regions.
 	(when (and (boundp 'transient-mark-mode)
 		   transient-mark-mode)
@@ -3523,8 +3521,22 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 ;;;###autoload
 (defun gnus-article-prepare-display ()
   "Make the current buffer look like a nice article."
-  (setq gnus-article-wash-types nil)
-  (gnus-run-hooks 'gnus-tmp-internal-hook)
+  (let ((gnus-article-buffer (current-buffer))
+	buffer-read-only)
+    (unless (eq major-mode 'gnus-article-mode)
+      (gnus-article-mode))
+    (setq buffer-read-only nil
+	  gnus-button-marker-list nil
+	  gnus-article-wash-types nil)
+    (save-restriction
+      (widen)
+      (static-if (featurep 'xemacs)
+	  (map-extents (lambda (extent maparg) (delete-extent extent)))
+	(let ((lists (overlay-lists)))
+	  (dolist (overlay (nconc (car lists) (cdr lists)))
+	    (delete-overlay overlay)))))
+    (gnus-run-hooks 'gnus-tmp-internal-hook))
+  (set-buffer gnus-original-article-buffer)
   ;; Display message.
   (setq mime-message-structure gnus-current-headers)
   (mime-buffer-entity-set-buffer-internal mime-message-structure
@@ -3537,11 +3549,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
       (let (mime-display-header-hook mime-display-text/plain-hook)
 	(funcall gnus-article-display-method-for-mime))
     (funcall gnus-article-display-method-for-traditional))
-  ;; Associate this article with the current summary buffer.
-  (setq gnus-article-current-summary gnus-summary-buffer)
   ;; Call the treatment functions.
-  (let ((inhibit-read-only t)
-	buffer-read-only)
+  (let ((inhibit-read-only t))
     (save-restriction
       (widen)
       (if gnus-show-mime
@@ -5082,10 +5091,13 @@ after replacing with the original article."
 		    nil t)
 	       (replace-match "")))
 	   (apply ,gnus-article-edit-done-function args)
-	   (set-buffer (get-buffer-create gnus-original-article-buffer))
-	   (erase-buffer)
-	   (insert-buffer gnus-article-buffer)
+	   (insert
+	    (prog1
+		(buffer-substring-no-properties (point-min) (point-max))
+	      (set-buffer (get-buffer-create gnus-original-article-buffer))
+	      (erase-buffer)))
 	   (setq gnus-current-headers (gnus-article-make-full-mail-header))
+	   (set-buffer gnus-article-buffer)
 	   (gnus-article-prepare-display)))
   (substitute-key-definition 'gnus-article-edit-done
 			     'gnus-article-mime-edit-done
@@ -5148,6 +5160,7 @@ after replacing with the original article."
 		(set-buffer (get-buffer-create gnus-original-article-buffer))
 		(erase-buffer)))
       (setq gnus-current-headers (gnus-article-make-full-mail-header))
+      (set-buffer gnus-article-buffer)
       (gnus-article-prepare-display)
       (set-window-configuration winconf))))
 
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 3fd3e96..84cc3ee 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "00"
+(defconst gnus-revision-number "01"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.