From: ichikawa <ichikawa>
Date: Sun, 30 Aug 1998 15:41:50 +0000 (+0000)
Subject: Fix typo
X-Git-Tag: pgnus-ichikawa-199811302358~242
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f8bdab5a45c670b01aa497fed6fde254f45a425;p=elisp%2Fgnus.git-

Fix typo
---

diff --git a/ChangeLog b/ChangeLog
index 4f68ea0..1429273 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-31  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
+	* lisp/gnus-agent.el: Do not use nnheader-temp-write.
+	
+	* lisp/gnus-ems.el: Do not use nnheader-temp-write.
+	
 	* lisp/gnus.el (gnus-version-number): Update to 6.9.02.
 
 	* Sync up with Pterodactyl Gnus 0.8.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 57bfbf6..8f124d2 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -127,7 +127,7 @@ If nil, only read articles will be expired."
 
 (defun gnus-agent-read-file (file)
   "Load FILE and do a `read' there."
-  (nnheader-temp-write nil
+  (with-temp-buffer
     (ignore-errors
       (nnheader-insert-file-contents file)
       (goto-char (point-min))
@@ -426,7 +426,7 @@ be a select method."
 
 (defun gnus-agent-write-servers ()
   "Write the alist of covered servers."
-  (nnheader-temp-write (nnheader-concat gnus-agent-directory "lib/servers")
+  (with-temp-file (nnheader-concat gnus-agent-directory "lib/servers")
     (prin1 gnus-agent-covered-methods (current-buffer))))
 
 ;;;
@@ -536,7 +536,7 @@ the actual number of articles toggled is returned."
 		     (gnus-agent-lib-file "active")
 		   (gnus-agent-lib-file "groups"))))
       (gnus-make-directory (file-name-directory file))
-      (nnheader-temp-write file
+      (with-temp-file file
 	(when (file-exists-p file)
 	  (nnheader-insert-file-contents file))
 	(goto-char (point-min))
@@ -661,7 +661,7 @@ the actual number of articles toggled is returned."
 	;; Fetch the articles from the backend.
 	(if (gnus-check-backend-function 'retrieve-articles group)
 	    (setq pos (gnus-retrieve-articles articles group))
-	  (nnheader-temp-write nil
+	  (with-temp-file nil
 	    (let ((buf (current-buffer))
 		  article)
 	      (while (setq article (pop articles))
@@ -745,7 +745,7 @@ the actual number of articles toggled is returned."
 		     nil 'silent)
       (pop gnus-agent-buffer-alist))
     (while gnus-agent-group-alist
-      (nnheader-temp-write (caar gnus-agent-group-alist)
+      (with-temp-file (caar gnus-agent-group-alist)
 	(princ (cdar gnus-agent-group-alist))
 	(insert "\n"))
       (pop gnus-agent-group-alist))))
@@ -853,9 +853,9 @@ the actual number of articles toggled is returned."
 
 (defun gnus-agent-save-alist (group &optional articles state dir)
   "Load the article-state alist for GROUP."
-  (nnheader-temp-write (if dir
-			   (concat dir ".agentview")
-			 (gnus-agent-article-name ".agentview" group))
+  (with-temp-file (if dir
+		      (concat dir ".agentview")
+		    (gnus-agent-article-name ".agentview" group))
     (princ (setq gnus-agent-article-alist
 		 (nconc gnus-agent-article-alist
 			(mapcar (lambda (article) (cons article state))
@@ -1101,7 +1101,7 @@ The following commands are available:
   "Write the category alist."
   (setq gnus-category-predicate-cache nil
 	gnus-category-group-cache nil)
-  (nnheader-temp-write (nnheader-concat gnus-agent-directory "lib/categories")
+  (with-temp-file (nnheader-concat gnus-agent-directory "lib/categories")
     (prin1 gnus-category-alist (current-buffer))))
 
 (defun gnus-category-edit-predicate (category)
diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index f798e12..5970c3b 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -307,7 +307,7 @@
 	(erase-buffer)
 	(when (and dir
 		   (file-exists-p (setq file (concat dir "x-splash"))))
-	  (nnheader-temp-write nil
+	  (with-temp-file nil
 	    (insert-file-contents file)
 	    (goto-char (point-min))
 	    (ignore-errors