Commit 35ef97a5 authored by ShengHuo ZHU's avatar ShengHuo ZHU

* gnus-agent.el: Don't use `path'.

	* nnsoup.el (nnsoup-file-name): Ditto.

	* nnmail.el (nnmail-pathname-coding-system): Ditto.
	(nnmail-group-pathname): Ditto.

	* nnimap.el (nnimap-group-overview-filename): Ditto.

	* nnheader.el (nnheader-pathname-coding-system): Ditto.
	(nnheader-group-pathname): Ditto.

	* nnfolder.el (nnfolder-group-pathname): Ditto.

	* gnus.el (gnus-home-directory): Ditto.

	* gnus-group.el (gnus-group-icon-list): Ditto.
parent 02b5590c
2003-01-15 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-agent.el: Don't use `path'.
* nnsoup.el (nnsoup-file-name): Ditto.
* nnmail.el (nnmail-pathname-coding-system): Ditto.
(nnmail-group-pathname): Ditto.
* nnimap.el (nnimap-group-overview-filename): Ditto.
* nnheader.el (nnheader-pathname-coding-system): Ditto.
(nnheader-group-pathname): Ditto.
* nnfolder.el (nnfolder-group-pathname): Ditto.
* gnus.el (gnus-home-directory): Ditto.
* gnus-group.el (gnus-group-icon-list): Ditto.
2003-01-04 Kim F. Storm <storm@cua.dk>
* message.el (message-split-line): New function.
......
......@@ -166,12 +166,12 @@ If this is `ask' the hook will query the user."
(cadr gnus-command-method))))
(defsubst gnus-agent-directory ()
"Path of the Gnus agent directory."
"The name of the Gnus agent directory."
(nnheader-concat gnus-agent-directory
(nnheader-translate-file-chars (gnus-agent-method)) "/"))
(defun gnus-agent-lib-file (file)
"The full path of the Gnus agent library FILE."
"The full name of the Gnus agent library FILE."
(expand-file-name file
(file-name-as-directory
(expand-file-name "agent.lib" (gnus-agent-directory)))))
......@@ -724,7 +724,7 @@ the actual number of articles toggled is returned."
(delete-char 1))))))
(defun gnus-agent-group-path (group)
"Translate GROUP into a path."
"Translate GROUP into a file name."
(if nnmail-use-long-file-names
(gnus-group-real-name group)
(nnheader-translate-file-chars
......
......@@ -375,7 +375,7 @@ particular group line should be displayed, each form is evaluated.
The icon from the file field after the first true form is used. You
can change how those group lines are displayed by editing the file
field. The File will either be found in the
`gnus-group-glyph-directory' or by designating absolute path to the
`gnus-group-glyph-directory' or by designating absolute name of the
file.
It is also possible to change and add form fields, but currently that
......
......@@ -845,7 +845,7 @@ be set in `.emacs' instead."
(defcustom gnus-home-directory "~/"
"Directory variable that specifies the \"home\" directory.
All other Gnus path variables are initialized from this variable."
All other Gnus file and directory variables are initialized from this variable."
:group 'gnus-files
:type 'directory)
......
......@@ -870,7 +870,7 @@ This command does not work if you use short group names."
(nnheader-message 5 "")))
(defun nnfolder-group-pathname (group)
"Make pathname for GROUP."
"Make file name for GROUP."
(setq group
(mm-encode-coding-string group nnmail-pathname-coding-system))
(let ((dir (file-name-as-directory (expand-file-name nnfolder-directory))))
......
......@@ -600,7 +600,7 @@ the line could be found."
"Regexp that matches numerical file names.")
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files)
"Regexp that matches numerical full file paths.")
"Regexp that matches numerical full file names.")
(defsubst nnheader-file-to-number (file)
"Take a FILE name and return the article number."
......@@ -767,10 +767,10 @@ without formatting."
(<= level gnus-verbose-backends)))
(defvar nnheader-pathname-coding-system 'binary
"*Coding system for pathname.")
"*Coding system for file names.")
(defun nnheader-group-pathname (group dir &optional file)
"Make pathname for GROUP."
"Make file name for GROUP."
(concat
(let ((dir (file-name-as-directory (expand-file-name dir))))
;; If this directory exists, we use it directly.
......
......@@ -457,7 +457,7 @@ If EXAMINE is non-nil the group is selected read-only."
articles))))
(defun nnimap-group-overview-filename (group server)
"Make pathname for GROUP on SERVER."
"Make file name for GROUP on SERVER."
(let* ((dir (file-name-as-directory (expand-file-name nnimap-directory)))
(uidvalidity (gnus-group-get-parameter
(gnus-group-prefixed-name
......
......@@ -467,7 +467,7 @@ parameter. It should return nil, `warn' or `delete'."
"Coding system used in reading inbox")
(defvar nnmail-pathname-coding-system nil
"*Coding system for pathname.")
"*Coding system for file name.")
(defun nnmail-find-file (file)
"Insert FILE in server buffer safely."
......@@ -484,7 +484,7 @@ parameter. It should return nil, `warn' or `delete'."
(file-error nil))))
(defun nnmail-group-pathname (group dir &optional file)
"Make pathname for GROUP."
"Make file name for GROUP."
(concat
(let ((dir (file-name-as-directory (expand-file-name dir))))
(setq group (nnheader-replace-duplicate-chars-in-string
......
......@@ -399,7 +399,7 @@ backend for the messages.")
prefix))
(defun nnsoup-file-name (dir file)
"Return the full path of FILE (in any case) in DIR."
"Return the full name of FILE (in any case) in DIR."
(let* ((case-fold-search t)
(files (directory-files dir t))
(regexp (concat (regexp-quote file) "$")))
......
......@@ -457,7 +457,7 @@ there.")
(nnheader-report 'nnspool "No such newsgroup: %s" group)))))
(defun nnspool-article-pathname (group &optional article)
"Find the path for GROUP."
"Find the file name for GROUP."
(nnheader-group-pathname group nnspool-spool-directory article))
(provide 'nnspool)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment