From: shuhei-k <shuhei-k>
Date: Sun, 15 Mar 1998 01:20:12 +0000 (+0000)
Subject: (gnus-agent-crosspost): Use `nnheader-insert-file-contents'.
X-Git-Tag: gnus-6_7-tomo-199811302358~108
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=175bce9113596d0eef3808baf98b66635fa717e3;p=elisp%2Fgnus.git-

(gnus-agent-crosspost): Use `nnheader-insert-file-contents'.
(gnus-agent-braid-nov): Ditto.
(gnus-agent-expire): Ditto.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 397986f..72bbab1 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -667,7 +667,7 @@ the actual number of articles toggled is returned."
 	(when (= (point-max) (point-min))
 	  (push (cons group (current-buffer)) gnus-agent-buffer-alist)
 	  (ignore-errors
-	    (insert-file-contents
+	    (nnheader-insert-file-contents
 	     (gnus-agent-article-name ".overview" group))))
 	(nnheader-find-nov-line (string-to-number (cdar crosses)))
 	(insert (string-to-number (cdar crosses)))
@@ -747,7 +747,7 @@ the actual number of articles toggled is returned."
     (goto-char (point-min))
     (set-buffer nntp-server-buffer)
     (erase-buffer)
-    (insert-file-contents file)
+    (nnheader-insert-file-contents file)
     (goto-char (point-min))
     (if (or (= (point-min) (point-max))
 	    (progn
@@ -1253,7 +1253,7 @@ The following commands are available:
 	   (set-buffer overview)
 	   (erase-buffer)
 	   (when (file-exists-p nov-file)
-	     (insert-file-contents nov-file))
+	     (nnheader-insert-file-contents nov-file))
 	   (goto-char (point-min))
 	   (while (setq elem (pop articles))
 	     (setq article (car elem))