Mercurial > emacs

--- 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  <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.
--- 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
--- 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
--- 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)
--- 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))))
--- 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.
--- 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
--- 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
--- 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) "$")))
--- 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)