From: ShengHuo ZHU Date: Thu, 16 Jan 2003 01:19:03 +0000 (+0000) Subject: * gnus-agent.el: Don't use `path'. X-Git-Tag: ttn-vms-21-2-B4~11627 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35ef97a54d856c4a7a9b389a4ffd9b9ceced8ba5;p=emacs.git * 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. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 091a73a7eca..d06c89100d6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,23 @@ +2003-01-15 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. + 2003-01-04 Kim F. Storm * message.el (message-split-line): New function. diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 65f23c6a955..5a3cf2f480c 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -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 diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index b570ebc253c..bbce56d9ac9 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -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 diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 879a83143fd..56f17d6a8d8 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -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) diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 369e4ccf279..ea83acf8081 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -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)))) diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index 6f383aec783..9fee7b776c5 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -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. diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 4a7022d9613..6a57941f404 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -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 diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 46c8342ed0b..60980e39bb9 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -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 diff --git a/lisp/gnus/nnsoup.el b/lisp/gnus/nnsoup.el index 22147dfbce0..99edd79b6dd 100644 --- a/lisp/gnus/nnsoup.el +++ b/lisp/gnus/nnsoup.el @@ -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) "$"))) diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index ffc0532446a..3111bc842ec 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el @@ -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)