From 14f378ce4b4320c9ed57c1cf16bcc103954a6126 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Thu, 24 Feb 2005 20:23:32 +0000 Subject: [PATCH] * 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-group.el (gnus-group-clear-data): Mention process/prefix in doc string. --- lisp/ChangeLog | 9 +++++++++ lisp/gnus-group.el | 3 ++- lisp/nnfolder.el | 2 +- lisp/nnheader.el | 2 ++ 4 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 320eb5807..270da6c97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,17 @@ 2005-02-24 Reiner Steib + * 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 * encrypt.el (encrypt-password-cache-expiry): Remove (use diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index e7bbf93ff..79b348f55 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3087,7 +3087,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/nnfolder.el b/lisp/nnfolder.el index 6a604187c..054e07474 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -873,7 +873,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))))) (mm-enable-multibyte) ;; 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 3b34f6832..e4b774679 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -969,6 +969,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 (mm-auto-mode-alist)) (default-major-mode 'fundamental-mode) -- 2.25.1