Mercurial > emacs
diff lisp/gnus/nnspool.el @ 24357:15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Sat, 20 Feb 1999 14:05:57 +0000 |
| parents | 8fa15d926b32 |
| children | 9968f55ad26e |
line wrap: on
line diff
--- a/lisp/gnus/nnspool.el Sat Feb 20 13:52:45 1999 +0000 +++ b/lisp/gnus/nnspool.el Sat Feb 20 14:05:57 1999 +0000 @@ -1,8 +1,8 @@ ;;; nnspool.el --- spool access for GNU Emacs -;; Copyright (C) 1988,89,90,93,94,95,96,97 Free Software Foundation, Inc. +;; Copyright (C) 1988,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> -;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no> +;; Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news ;; This file is part of GNU Emacs. @@ -82,6 +82,9 @@ (defvoo nnspool-rejected-article-hook nil "*A hook that will be run when an article has been rejected by the server.") +(defvoo nnspool-file-coding-system nnheader-file-coding-system + "Coding system for nnspool.") + ;; 1997/8/14 by MORIOKA Tomohiko (defvoo nnspool-file-coding-system nnheader-file-coding-system "Coding system for nnspool.") @@ -113,8 +116,6 @@ (default-directory nnspool-current-directory) (do-message (and (numberp nnspool-large-newsgroup) (> number nnspool-large-newsgroup))) - ;; 1997/8/14 by MORIOKA Tomohiko - ;; for Win32 (nnheader-file-coding-system nnspool-file-coding-system) file beg article ag) (if (and (numberp (car articles)) @@ -147,11 +148,11 @@ (and do-message (zerop (% (incf count) 20)) - (message "nnspool: Receiving headers... %d%%" + (nnheader-message 5 "nnspool: Receiving headers... %d%%" (/ (* count 100) number)))) (when do-message - (message "nnspool: Receiving headers...done")) + (nnheader-message 5 "nnspool: Receiving headers...done")) ;; Fold continuation lines. (nnheader-fold-continuation-lines) @@ -346,7 +347,7 @@ (while (re-search-forward "[ \t\n]+" nil t) (replace-match " " t t)) (nnheader-report 'nnspool "%s" (buffer-string)) - (message "nnspool: %s" nnspool-status-string) + (nnheader-message 5 "nnspool: %s" nnspool-status-string) (ding) (run-hooks 'nnspool-rejected-article-hook)))) @@ -356,8 +357,6 @@ (let ((nov (nnheader-group-pathname nnspool-current-group nnspool-nov-directory ".overview")) (arts articles) - ;; 1997/8/14 by MORIOKA Tomohiko - ;; for Win32 (nnheader-file-coding-system nnspool-file-coding-system) last) (if (not (file-exists-p nov)) @@ -440,8 +439,6 @@ (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () - ;; 1997/8/14 by MORIOKA Tomohiko - ;; for Win32 (let ((nnheader-file-coding-system nnspool-file-coding-system)) (nnheader-insert-file-contents file) t)