Synch to No Gnus 200502242023.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1140a3c..9923dab 100644 (file)
--- 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
 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 (file)
--- 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)
 ;;; 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)
   (interactive "P")
   (gnus-group-iterate arg
     (lambda (group)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 934dab5..77642e1 100644 (file)
--- 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)
        (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.
 
 (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 (file)
--- 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))
         (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)))
     (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 (file)
--- 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)
             (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)
   (let ((format-alist nil)
        (auto-mode-alist (nnheader-auto-mode-alist))
        (default-major-mode 'fundamental-mode)