From: yamaoka Date: Mon, 14 Dec 1998 07:27:14 +0000 (+0000) Subject: * nnheader.el (nnheader-find-file-noselect): Call X-Git-Tag: gnus-6_9-199812141900~4 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93059d6cf3622f7fe48d5742a1cd4cafdb25d5f3;p=elisp%2Fgnus.git- * nnheader.el (nnheader-find-file-noselect): Call `find-file-noselect-as-coding-system' with CODING-SYSTEM as the 1st arg. * nnmail.el (nnmail-find-file): Call `insert-file-contents-as-coding-system' with CODING-SYSTEM as the 1st arg. * nnheader.el (nnheader-insert-file-contents): Likewise. * gnus-start.el (gnus-save-newsrc-file): Call `write-region-as-coding-system' with CODING-SYSTEM as the 1st arg. (gnus-read-newsrc-el-file): Call `insert-file-contents-as-coding-system' with CODING-SYSTEM as the 1st arg. * gnus-cache.el (gnus-cache-save-buffers): Call `gnus-write-buffer-as-coding-system' with CODING-SYSTEM as the 1st arg. * gnus-util.el (gnus-write-buffer-as-coding-system): Be CODING-SYSTEM the 1st arg. * nnmail.el (nnmail-write-region): Call `write-region-as-coding-system' with CODING-SYSTEM as the 1st arg. * 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 8a1492b..d37bd7b 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -518,8 +518,7 @@ the actual number of articles toggled is returned." (file (gnus-agent-lib-file "active"))) (gnus-make-directory (file-name-directory file)) (write-region-as-coding-system - (point-min) (point-max) file gnus-agent-file-coding-system - nil 'silent) + gnus-agent-file-coding-system (point-min) (point-max) file nil 'silent) (when (file-exists-p (gnus-agent-lib-file "groups")) (delete-file (gnus-agent-lib-file "groups")))))) @@ -528,8 +527,7 @@ the actual number of articles toggled is returned." (file (gnus-agent-lib-file "groups"))) (gnus-make-directory (file-name-directory file)) (write-region-as-coding-system - (point-min) (point-max) file gnus-agent-file-coding-system - nil 'silent) + gnus-agent-file-coding-system (point-min) (point-max) file nil 'silent) (when (file-exists-p (gnus-agent-lib-file "active")) (delete-file (gnus-agent-lib-file "active"))))) @@ -601,8 +599,8 @@ the actual number of articles toggled is returned." (set-buffer gnus-agent-current-history) (gnus-make-directory (file-name-directory gnus-agent-file-name)) (write-region-as-coding-system - (1+ (point-min)) (point-max) gnus-agent-file-name - gnus-agent-file-coding-system nil 'silent))) + gnus-agent-file-coding-system + (1+ (point-min)) (point-max) gnus-agent-file-name nil 'silent))) (defun gnus-agent-close-history () (when (gnus-buffer-live-p gnus-agent-current-history) @@ -700,9 +698,9 @@ the actual number of articles toggled is returned." (setq id "No-Message-ID-in-article") (setq id (buffer-substring (match-beginning 1) (match-end 1)))) (write-region-as-coding-system + gnus-agent-file-coding-system (point-min) (point-max) - (concat dir (number-to-string (caar pos))) - gnus-agent-file-coding-system nil 'silent) + (concat dir (number-to-string (caar pos))) nil 'silent) (when (setq elem (assq (caar pos) gnus-agent-article-alist)) (setcdr elem t)) (gnus-agent-enter-history @@ -743,10 +741,11 @@ the actual number of articles toggled is returned." (while gnus-agent-buffer-alist (set-buffer (cdar gnus-agent-buffer-alist)) (write-region-as-coding-system + gnus-agent-file-coding-system (point-min) (point-max) (gnus-agent-article-name ".overview" (caar gnus-agent-buffer-alist)) - gnus-agent-file-coding-system nil 'silent) + nil 'silent) (pop gnus-agent-buffer-alist)) (while gnus-agent-group-alist (nnheader-temp-write (caar gnus-agent-group-alist) @@ -778,8 +777,8 @@ the actual number of articles toggled is returned." (gnus-make-directory (nnheader-translate-file-chars (file-name-directory file))) (write-region-as-coding-system - (point-min) (point-max) file gnus-agent-file-coding-system - nil 'silent) + gnus-agent-file-coding-system + (point-min) (point-max) file nil 'silent) (gnus-agent-save-alist group articles nil) (gnus-agent-enter-history "last-header-fetched-for-session" @@ -1350,8 +1349,8 @@ The following commands are available: (push (cdr elem) histories))) (gnus-make-directory (file-name-directory nov-file)) (write-region-as-coding-system - (point-min) (point-max) nov-file gnus-agent-file-coding-system - nil 'silent) + gnus-agent-file-coding-system + (point-min) (point-max) nov-file 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 b259118..436baad 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -125,7 +125,7 @@ it's not cached." (if (> (buffer-size) 0) ;; Non-empty overview, write it to a file. (gnus-write-buffer-as-coding-system - overview-file gnus-cache-overview-coding-system) + gnus-cache-overview-coding-system overview-file) ;; Empty overview file, remove it (when (file-exists-p overview-file) (delete-file overview-file)) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 0d270d6..377e264 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1919,7 +1919,7 @@ If FORCE is non-nil, the .newsrc file is read." (condition-case nil (with-temp-buffer (insert-file-contents-as-coding-system - ding-file gnus-startup-file-coding-system) + gnus-startup-file-coding-system ding-file) (eval-region (point-min) (point-max))) (error (ding) @@ -2282,8 +2282,8 @@ If FORCE is non-nil, the .newsrc file is read." (gnus-gnus-to-quick-newsrc-format) (gnus-run-hooks 'gnus-save-quick-newsrc-hook) (write-region-as-coding-system - (point-min) (point-max) (buffer-file-name) - gnus-startup-file-coding-system) + gnus-startup-file-coding-system + (point-min) (point-max) (buffer-file-name)) (set-buffer-modified-p nil) (kill-buffer (current-buffer)) (gnus-message diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 28c973b..cba9137 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-coding-system (file coding-system) +(defun gnus-write-buffer-as-coding-system (coding-system file) "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-coding-system - (point-min) (point-max) file coding-system nil 'quietly)) + coding-system (point-min) (point-max) file nil 'quietly)) (defun gnus-delete-file (file) "Delete FILE if it exists." diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 9861b9e..7ef13f2 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -776,7 +776,7 @@ find-file-hooks, etc. (after-insert-file-functions nil) (find-file-hooks nil)) (insert-file-contents-as-coding-system - filename nnheader-file-coding-system visit beg end replace))) + nnheader-file-coding-system filename visit beg end replace))) (defun nnheader-find-file-noselect (&rest args) (let ((format-alist nil) @@ -786,7 +786,7 @@ find-file-hooks, etc. (after-insert-file-functions nil) (find-file-hooks nil)) (apply 'find-file-noselect-as-coding-system - (car args) nnheader-file-coding-system (cdr args)))) + nnheader-file-coding-system 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 99e742d..8e8359e 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -495,7 +495,7 @@ parameter. It should return nil, `warn' or `delete'." (condition-case () (let ((pathname-coding-system 'binary)) (insert-file-contents-as-coding-system - file nnmail-file-coding-system) + nnmail-file-coding-system file) t) (file-error nil)))) @@ -1705,7 +1705,7 @@ If ARGS, PROMPT is used as an argument to `format'." "Do a `write-region', and then set the file modes." (let ((pathname-coding-system 'binary)) (write-region-as-coding-system - start end filename nnmail-file-coding-system append visit lockname) + nnmail-file-coding-system start end filename append visit lockname) (set-file-modes filename nnmail-default-file-modes))) ;;;