From c9e3dad4f2028c2a20d0714d964b22974832485e Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 24 Feb 2005 22:02:46 +0000
Subject: [PATCH] Synch to No Gnus 200502242023.

---
 lisp/ChangeLog     |   14 ++++++++++++++
 lisp/gnus-group.el |    3 ++-
 lisp/gnus-sum.el   |    4 +++-
 lisp/nnfolder.el   |    2 +-
 lisp/nnheader.el   |    2 ++
 5 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1140a3c..9923dab 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2005-02-24  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* nnheader.el (nnheader-find-file-noselect): Added doc string.
+
+	* nnfolder.el (nnfolder-read-folder): Use RAWFILE for
+	`nnheader-find-file-noselect' to avoid
+	`large-file-warning-threshold'.
+
+	* gnus-sum.el (gnus-summary-caesar-message): Apply
+	`gnus-treat-article' after rotation.
+
+	* gnus-group.el (gnus-group-clear-data): Mention process/prefix in
+	doc string.
+
 2005-02-22  Simon Josefsson  <jas@extundo.com>
 
 	* encrypt.el (encrypt-password-cache-expiry): Remove (use
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 98262a8..caae6c4 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3130,7 +3130,8 @@ sort in reverse order."
 ;;; Clearing data
 
 (defun gnus-group-clear-data (&optional arg)
-  "Clear all marks and read ranges from the current group."
+  "Clear all marks and read ranges from the current group.
+Obeys the process/prefix convention."
   (interactive "P")
   (gnus-group-iterate arg
     (lambda (group)
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 934dab5..77642e1 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9073,7 +9073,9 @@ forward."
 	(let ((start (window-start))
 	      buffer-read-only)
 	  (message-caesar-buffer-body arg)
-	  (set-window-start (get-buffer-window (current-buffer)) start))))))
+	  (set-window-start (get-buffer-window (current-buffer)) start)))))
+  ;; Create buttons and stuff...
+  (gnus-treat-article nil))
 
 (defun gnus-summary-idna-message (&optional arg)
   "Decode IDNA encoded domain names in the current articles.
diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index dfa7a16..6f363b2 100644
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -874,7 +874,7 @@ deleted.  Point is left where the deleted region was."
 	 (buffer (set-buffer
 		  (let ((nnheader-file-coding-system
 			 nnfolder-file-coding-system))
-		    (nnheader-find-file-noselect file)))))
+		    (nnheader-find-file-noselect file t)))))
     (set-buffer-multibyte t) ;; Use multibyte buffer for future copying.
     (if (equal (cadr (assoc group nnfolder-scantime-alist))
 	       (nth 5 (file-attributes file)))
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index da99327..f64f284 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -1598,6 +1598,8 @@ find-file-hooks, etc.
             (nnheader-insert-file-contents file)))))))
 
 (defun nnheader-find-file-noselect (&rest args)
+  "Open a file with some variables bound.
+See `find-file-noselect' for the arguments."
   (let ((format-alist nil)
 	(auto-mode-alist (nnheader-auto-mode-alist))
 	(default-major-mode 'fundamental-mode)
-- 
1.7.10.4