From: yamaoka Date: Mon, 14 Dec 1998 02:04:18 +0000 (+0000) Subject: * nnheader.el (nnheader-find-file-noselect): Use X-Git-Tag: gnus-6_9-199812141900~6 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e43c10e2217189414918a3b1d288a6c3d2a6823;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 6a996b8..b259118 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 b0b6f70..9861b9e 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -775,8 +775,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) @@ -785,8 +785,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 77f39f6..99e742d 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -494,7 +494,7 @@ parameter. It should return nil, `warn' or `delete'." (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)))) @@ -1704,8 +1704,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))) ;;;