From: yamaoka <yamaoka>
Date: Mon, 14 Dec 1998 02:02:06 +0000 (+0000)
Subject: * nnheader.el (nnheader-find-file-noselect): Use
X-Git-Tag: keiichi-199812141900~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=76f2c8e6acb1c49529730eba248323fcfd082b81;p=elisp%2Fgnus.git-

* nnheader.el (nnheader-find-file-noselect): Use
`find-file-noselect-as-coding-system' (renamed from
`find-file-noselect-as-specified-coding-system').

* nnmail.el (nnmail-find-file): Use `insert-file-contents-as-coding-system'
(renamed from `insert-file-contents-as-specified-coding-system').
* nnheader.el (nnheader-insert-file-contents): Likewise.

* gnus-start.el (gnus-save-newsrc-file): Use `write-region-as-coding-system'
(renamed from `write-region-as-specified-coding-system').
(gnus-read-newsrc-el-file): Use `insert-file-contents-as-coding-system'
(renamed from `insert-file-contents-as-specified-coding-system').

* gnus-cache.el (gnus-cache-save-buffers): Use
`gnus-write-buffer-as-coding-system' (renamed from
`gnus-write-buffer-as-specified-coding-system').

* gnus-util.el (gnus-write-buffer-as-coding-system): Renamed from
`gnus-write-buffer-as-specified-coding-system'.

* nnmail.el (nnmail-write-region): Use `write-region-as-coding-system'
(renamed from `write-region-as-specified-coding-system').
* gnus-start.el (gnus-save-newsrc-file): Likewise.
* gnus-agent.el (gnus-agent-expire): Likewise.
(gnus-agent-fetch-headers): Likewise.
(gnus-agent-flush-cache): Likewise.
(gnus-agent-fetch-articles): Likewise.
(gnus-agent-save-history): Likewise.
(gnus-agent-save-groups): Likewise.
(gnus-agent-save-active): Likewise.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index c0894fa..8a1492b 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -517,9 +517,9 @@ the actual number of articles toggled is returned."
     (let* ((gnus-command-method method)
 	   (file (gnus-agent-lib-file "active")))
       (gnus-make-directory (file-name-directory file))
-      (write-region-as-specified-coding-system
-       (point-min) (point-max) file nil 'silent
-       gnus-agent-file-coding-system)
+      (write-region-as-coding-system
+       (point-min) (point-max) file gnus-agent-file-coding-system
+       nil 'silent)
       (when (file-exists-p (gnus-agent-lib-file "groups"))
 	(delete-file (gnus-agent-lib-file "groups"))))))
 
@@ -527,9 +527,9 @@ the actual number of articles toggled is returned."
   (let* ((gnus-command-method method)
 	 (file (gnus-agent-lib-file "groups")))
     (gnus-make-directory (file-name-directory file))
-    (write-region-as-specified-coding-system
-     (point-min) (point-max) file nil 'silent
-     gnus-agent-file-coding-system)
+    (write-region-as-coding-system
+     (point-min) (point-max) file gnus-agent-file-coding-system
+     nil 'silent)
     (when (file-exists-p (gnus-agent-lib-file "active"))
       (delete-file (gnus-agent-lib-file "active")))))
 
@@ -600,9 +600,9 @@ the actual number of articles toggled is returned."
   (save-excursion
     (set-buffer gnus-agent-current-history)
     (gnus-make-directory (file-name-directory gnus-agent-file-name))
-    (write-region-as-specified-coding-system
-     (1+ (point-min)) (point-max) gnus-agent-file-name nil 'silent
-     gnus-agent-file-coding-system)))
+    (write-region-as-coding-system
+     (1+ (point-min)) (point-max) gnus-agent-file-name
+     gnus-agent-file-coding-system nil 'silent)))
 
 (defun gnus-agent-close-history ()
   (when (gnus-buffer-live-p gnus-agent-current-history)
@@ -699,10 +699,10 @@ the actual number of articles toggled is returned."
 	    (if (not (re-search-forward "^Message-ID: *<\\([^>\n]+\\)>" nil t))
 		(setq id "No-Message-ID-in-article")
 	      (setq id (buffer-substring (match-beginning 1) (match-end 1))))
-	    (write-region-as-specified-coding-system
+	    (write-region-as-coding-system
 	     (point-min) (point-max)
-	     (concat dir (number-to-string (caar pos))) nil 'silent
-	     gnus-agent-file-coding-system)
+	     (concat dir (number-to-string (caar pos)))
+	     gnus-agent-file-coding-system nil 'silent)
 	    (when (setq elem (assq (caar pos) gnus-agent-article-alist))
 	      (setcdr elem t))
 	    (gnus-agent-enter-history
@@ -742,11 +742,11 @@ the actual number of articles toggled is returned."
   (save-excursion
     (while gnus-agent-buffer-alist
       (set-buffer (cdar gnus-agent-buffer-alist))
-      (write-region-as-specified-coding-system
+      (write-region-as-coding-system
        (point-min) (point-max)
        (gnus-agent-article-name ".overview"
 				(caar gnus-agent-buffer-alist))
-       nil 'silent gnus-agent-file-coding-system)
+       gnus-agent-file-coding-system nil 'silent)
       (pop gnus-agent-buffer-alist))
     (while gnus-agent-group-alist
       (nnheader-temp-write (caar gnus-agent-group-alist)
@@ -777,9 +777,9 @@ the actual number of articles toggled is returned."
 	    (gnus-agent-braid-nov group articles file))
 	  (gnus-make-directory (nnheader-translate-file-chars
 				(file-name-directory file)))
-	  (write-region-as-specified-coding-system
-	   (point-min) (point-max) file nil 'silent
-	   gnus-agent-file-coding-system)
+	  (write-region-as-coding-system
+	   (point-min) (point-max) file gnus-agent-file-coding-system
+	   nil 'silent)
 	  (gnus-agent-save-alist group articles nil)
 	  (gnus-agent-enter-history
 	   "last-header-fetched-for-session"
@@ -1349,9 +1349,9 @@ The following commands are available:
 		 ;; Schedule the history line for nuking.
 		 (push (cdr elem) histories)))
 	     (gnus-make-directory (file-name-directory nov-file))
-	     (write-region-as-specified-coding-system
-	      (point-min) (point-max) nov-file nil 'silent
-	      gnus-agent-file-coding-system)
+	     (write-region-as-coding-system
+	      (point-min) (point-max) nov-file gnus-agent-file-coding-system
+	      nil 'silent)
 	     ;; Delete the unwanted entries in the alist.
 	     (setq gnus-agent-article-alist
 		   (sort gnus-agent-article-alist 'car-less-than-car))
diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index d6628ab..8f99f93 100644
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -124,7 +124,7 @@ it's not cached."
 	  (set-buffer buffer)
 	  (if (> (buffer-size) 0)
 	      ;; Non-empty overview, write it to a file.
-	      (gnus-write-buffer-as-specified-coding-system
+	      (gnus-write-buffer-as-coding-system
 	       overview-file gnus-cache-overview-coding-system)
 	    ;; Empty overview file, remove it
 	    (when (file-exists-p overview-file)
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 363682f..0d270d6 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1918,7 +1918,7 @@ If FORCE is non-nil, the .newsrc file is read."
     (let (gnus-newsrc-assoc)
       (condition-case nil
 	  (with-temp-buffer
-	    (insert-file-contents-as-specified-coding-system
+	    (insert-file-contents-as-coding-system
 	     ding-file gnus-startup-file-coding-system)
 	    (eval-region (point-min) (point-max)))
 	(error
@@ -2281,7 +2281,7 @@ If FORCE is non-nil, the .newsrc file is read."
 	  (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file)
 	  (gnus-gnus-to-quick-newsrc-format)
 	  (gnus-run-hooks 'gnus-save-quick-newsrc-hook)
-	  (write-region-as-specified-coding-system
+	  (write-region-as-coding-system
 	   (point-min) (point-max) (buffer-file-name)
 	   gnus-startup-file-coding-system)
 	  (set-buffer-modified-p nil)
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 1e2dd18..28c973b 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -617,13 +617,13 @@ Bind `print-quoted' and `print-readably' to t while printing."
   ;; Write the buffer.
   (write-region-as-binary (point-min) (point-max) file nil 'quietly))
 
-(defun gnus-write-buffer-as-specified-coding-system (file coding-system)
+(defun gnus-write-buffer-as-coding-system (file coding-system)
   "Write the current buffer's contents to FILE with code conversion."
   ;; Make sure the directory exists.
   (gnus-make-directory (file-name-directory file))
   ;; Write the buffer.
-  (write-region-as-specified-coding-system
-   (point-min) (point-max) file nil 'quietly coding-system))
+  (write-region-as-coding-system
+   (point-min) (point-max) file coding-system nil 'quietly))
 
 (defun gnus-delete-file (file)
   "Delete FILE if it exists."
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 92d8b0d..1943fe7 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -777,8 +777,8 @@ find-file-hooks, etc.
 	(enable-local-variables nil)
 	(after-insert-file-functions nil)
 	(find-file-hooks nil))
-    (insert-file-contents-as-specified-coding-system
-     filename visit beg end replace nnheader-file-coding-system)))
+    (insert-file-contents-as-coding-system
+     filename nnheader-file-coding-system visit beg end replace)))
 
 (defun nnheader-find-file-noselect (&rest args)
   (let ((format-alist nil)
@@ -787,8 +787,8 @@ find-file-hooks, etc.
 	(enable-local-variables nil)
 	(after-insert-file-functions nil)
 	(find-file-hooks nil))
-    (find-file-noselect-as-specified-coding-system
-     (car args) (append (cdr args) (list nnheader-file-coding-system)))))
+    (apply 'find-file-noselect-as-coding-system
+	   (car args) nnheader-file-coding-system (cdr args))))
 
 (defun nnheader-auto-mode-alist ()
   "Return an `auto-mode-alist' with only the .gz (etc) thingies."
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index b33d650..21f761c 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -524,7 +524,7 @@ If this variable is `t', do not use password cache.")
         (after-insert-file-functions nil))
     (condition-case ()
 	(let ((pathname-coding-system 'binary))
-	  (insert-file-contents-as-specified-coding-system
+	  (insert-file-contents-as-coding-system
 	   file nnmail-file-coding-system)
 	  t)
       (file-error nil))))
@@ -1753,8 +1753,8 @@ If ARGS, PROMPT is used as an argument to `format'."
 (defun nnmail-write-region (start end filename &optional append visit lockname)
   "Do a `write-region', and then set the file modes."
   (let ((pathname-coding-system 'binary))
-    (write-region-as-specified-coding-system
-     start end filename append visit lockname nnmail-file-coding-system)
+    (write-region-as-coding-system
+     start end filename nnmail-file-coding-system append visit lockname)
     (set-file-modes filename nnmail-default-file-modes)))
 
 ;;;