# HG changeset patch # User ShengHuo ZHU # Date 1042679943 0 # Node ID eb2699620e9c417ec012836fe8352a0af70dd26f # Parent bf2ab88cad81edfe8c038f88a8fd38c2d8ad7492 * 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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/ChangeLog Thu Jan 16 01:19:03 2003 +0000 @@ -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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/gnus-agent.el --- a/lisp/gnus/gnus-agent.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/gnus-agent.el Thu Jan 16 01:19:03 2003 +0000 @@ -166,12 +166,12 @@ (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 @@ (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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/gnus-group.el --- a/lisp/gnus/gnus-group.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/gnus-group.el Thu Jan 16 01:19:03 2003 +0000 @@ -375,7 +375,7 @@ 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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/gnus.el --- a/lisp/gnus/gnus.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/gnus.el Thu Jan 16 01:19:03 2003 +0000 @@ -845,7 +845,7 @@ (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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnfolder.el --- a/lisp/gnus/nnfolder.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnfolder.el Thu Jan 16 01:19:03 2003 +0000 @@ -870,7 +870,7 @@ (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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnheader.el --- a/lisp/gnus/nnheader.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnheader.el Thu Jan 16 01:19:03 2003 +0000 @@ -600,7 +600,7 @@ "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 @@ (<= 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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnimap.el --- a/lisp/gnus/nnimap.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnimap.el Thu Jan 16 01:19:03 2003 +0000 @@ -457,7 +457,7 @@ 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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnmail.el --- a/lisp/gnus/nnmail.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnmail.el Thu Jan 16 01:19:03 2003 +0000 @@ -467,7 +467,7 @@ "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 @@ (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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnsoup.el --- a/lisp/gnus/nnsoup.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnsoup.el Thu Jan 16 01:19:03 2003 +0000 @@ -399,7 +399,7 @@ 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 -r bf2ab88cad81 -r eb2699620e9c lisp/gnus/nnspool.el --- a/lisp/gnus/nnspool.el Thu Jan 16 01:16:09 2003 +0000 +++ b/lisp/gnus/nnspool.el Thu Jan 16 01:19:03 2003 +0000 @@ -457,7 +457,7 @@ (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)