diff options
| author | ShengHuo ZHU | 2003-01-16 01:19:03 +0000 |
|---|---|---|
| committer | ShengHuo ZHU | 2003-01-16 01:19:03 +0000 |
| commit | 35ef97a54d856c4a7a9b389a4ffd9b9ceced8ba5 (patch) | |
| tree | 886c0ef7bf61c64de837dcc41ffa4bb14b55c201 | |
| parent | 02b5590cee4606a08da26fae5bc9869d9658ed75 (diff) | |
| download | emacs-35ef97a54d856c4a7a9b389a4ffd9b9ceced8ba5.tar.gz emacs-35ef97a54d856c4a7a9b389a4ffd9b9ceced8ba5.zip | |
* 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.
| -rw-r--r-- | lisp/gnus/ChangeLog | 20 | ||||
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnfolder.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnheader.el | 6 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnmail.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/nnsoup.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnspool.el | 2 |
10 files changed, 34 insertions, 14 deletions
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 @@ | |||
| 1 | 2003-01-15 ShengHuo ZHU <zsh@cs.rochester.edu> | ||
| 2 | |||
| 3 | * gnus-agent.el: Don't use `path'. | ||
| 4 | |||
| 5 | * nnsoup.el (nnsoup-file-name): Ditto. | ||
| 6 | |||
| 7 | * nnmail.el (nnmail-pathname-coding-system): Ditto. | ||
| 8 | (nnmail-group-pathname): Ditto. | ||
| 9 | |||
| 10 | * nnimap.el (nnimap-group-overview-filename): Ditto. | ||
| 11 | |||
| 12 | * nnheader.el (nnheader-pathname-coding-system): Ditto. | ||
| 13 | (nnheader-group-pathname): Ditto. | ||
| 14 | |||
| 15 | * nnfolder.el (nnfolder-group-pathname): Ditto. | ||
| 16 | |||
| 17 | * gnus.el (gnus-home-directory): Ditto. | ||
| 18 | |||
| 19 | * gnus-group.el (gnus-group-icon-list): Ditto. | ||
| 20 | |||
| 1 | 2003-01-04 Kim F. Storm <storm@cua.dk> | 21 | 2003-01-04 Kim F. Storm <storm@cua.dk> |
| 2 | 22 | ||
| 3 | * message.el (message-split-line): New function. | 23 | * 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." | |||
| 166 | (cadr gnus-command-method)))) | 166 | (cadr gnus-command-method)))) |
| 167 | 167 | ||
| 168 | (defsubst gnus-agent-directory () | 168 | (defsubst gnus-agent-directory () |
| 169 | "Path of the Gnus agent directory." | 169 | "The name of the Gnus agent directory." |
| 170 | (nnheader-concat gnus-agent-directory | 170 | (nnheader-concat gnus-agent-directory |
| 171 | (nnheader-translate-file-chars (gnus-agent-method)) "/")) | 171 | (nnheader-translate-file-chars (gnus-agent-method)) "/")) |
| 172 | 172 | ||
| 173 | (defun gnus-agent-lib-file (file) | 173 | (defun gnus-agent-lib-file (file) |
| 174 | "The full path of the Gnus agent library FILE." | 174 | "The full name of the Gnus agent library FILE." |
| 175 | (expand-file-name file | 175 | (expand-file-name file |
| 176 | (file-name-as-directory | 176 | (file-name-as-directory |
| 177 | (expand-file-name "agent.lib" (gnus-agent-directory))))) | 177 | (expand-file-name "agent.lib" (gnus-agent-directory))))) |
| @@ -724,7 +724,7 @@ the actual number of articles toggled is returned." | |||
| 724 | (delete-char 1)))))) | 724 | (delete-char 1)))))) |
| 725 | 725 | ||
| 726 | (defun gnus-agent-group-path (group) | 726 | (defun gnus-agent-group-path (group) |
| 727 | "Translate GROUP into a path." | 727 | "Translate GROUP into a file name." |
| 728 | (if nnmail-use-long-file-names | 728 | (if nnmail-use-long-file-names |
| 729 | (gnus-group-real-name group) | 729 | (gnus-group-real-name group) |
| 730 | (nnheader-translate-file-chars | 730 | (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. | |||
| 375 | The icon from the file field after the first true form is used. You | 375 | The icon from the file field after the first true form is used. You |
| 376 | can change how those group lines are displayed by editing the file | 376 | can change how those group lines are displayed by editing the file |
| 377 | field. The File will either be found in the | 377 | field. The File will either be found in the |
| 378 | `gnus-group-glyph-directory' or by designating absolute path to the | 378 | `gnus-group-glyph-directory' or by designating absolute name of the |
| 379 | file. | 379 | file. |
| 380 | 380 | ||
| 381 | It is also possible to change and add form fields, but currently that | 381 | 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." | |||
| 845 | 845 | ||
| 846 | (defcustom gnus-home-directory "~/" | 846 | (defcustom gnus-home-directory "~/" |
| 847 | "Directory variable that specifies the \"home\" directory. | 847 | "Directory variable that specifies the \"home\" directory. |
| 848 | All other Gnus path variables are initialized from this variable." | 848 | All other Gnus file and directory variables are initialized from this variable." |
| 849 | :group 'gnus-files | 849 | :group 'gnus-files |
| 850 | :type 'directory) | 850 | :type 'directory) |
| 851 | 851 | ||
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." | |||
| 870 | (nnheader-message 5 ""))) | 870 | (nnheader-message 5 ""))) |
| 871 | 871 | ||
| 872 | (defun nnfolder-group-pathname (group) | 872 | (defun nnfolder-group-pathname (group) |
| 873 | "Make pathname for GROUP." | 873 | "Make file name for GROUP." |
| 874 | (setq group | 874 | (setq group |
| 875 | (mm-encode-coding-string group nnmail-pathname-coding-system)) | 875 | (mm-encode-coding-string group nnmail-pathname-coding-system)) |
| 876 | (let ((dir (file-name-as-directory (expand-file-name nnfolder-directory)))) | 876 | (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." | |||
| 600 | "Regexp that matches numerical file names.") | 600 | "Regexp that matches numerical file names.") |
| 601 | 601 | ||
| 602 | (defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) | 602 | (defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) |
| 603 | "Regexp that matches numerical full file paths.") | 603 | "Regexp that matches numerical full file names.") |
| 604 | 604 | ||
| 605 | (defsubst nnheader-file-to-number (file) | 605 | (defsubst nnheader-file-to-number (file) |
| 606 | "Take a FILE name and return the article number." | 606 | "Take a FILE name and return the article number." |
| @@ -767,10 +767,10 @@ without formatting." | |||
| 767 | (<= level gnus-verbose-backends))) | 767 | (<= level gnus-verbose-backends))) |
| 768 | 768 | ||
| 769 | (defvar nnheader-pathname-coding-system 'binary | 769 | (defvar nnheader-pathname-coding-system 'binary |
| 770 | "*Coding system for pathname.") | 770 | "*Coding system for file names.") |
| 771 | 771 | ||
| 772 | (defun nnheader-group-pathname (group dir &optional file) | 772 | (defun nnheader-group-pathname (group dir &optional file) |
| 773 | "Make pathname for GROUP." | 773 | "Make file name for GROUP." |
| 774 | (concat | 774 | (concat |
| 775 | (let ((dir (file-name-as-directory (expand-file-name dir)))) | 775 | (let ((dir (file-name-as-directory (expand-file-name dir)))) |
| 776 | ;; If this directory exists, we use it directly. | 776 | ;; 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." | |||
| 457 | articles)))) | 457 | articles)))) |
| 458 | 458 | ||
| 459 | (defun nnimap-group-overview-filename (group server) | 459 | (defun nnimap-group-overview-filename (group server) |
| 460 | "Make pathname for GROUP on SERVER." | 460 | "Make file name for GROUP on SERVER." |
| 461 | (let* ((dir (file-name-as-directory (expand-file-name nnimap-directory))) | 461 | (let* ((dir (file-name-as-directory (expand-file-name nnimap-directory))) |
| 462 | (uidvalidity (gnus-group-get-parameter | 462 | (uidvalidity (gnus-group-get-parameter |
| 463 | (gnus-group-prefixed-name | 463 | (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'." | |||
| 467 | "Coding system used in reading inbox") | 467 | "Coding system used in reading inbox") |
| 468 | 468 | ||
| 469 | (defvar nnmail-pathname-coding-system nil | 469 | (defvar nnmail-pathname-coding-system nil |
| 470 | "*Coding system for pathname.") | 470 | "*Coding system for file name.") |
| 471 | 471 | ||
| 472 | (defun nnmail-find-file (file) | 472 | (defun nnmail-find-file (file) |
| 473 | "Insert FILE in server buffer safely." | 473 | "Insert FILE in server buffer safely." |
| @@ -484,7 +484,7 @@ parameter. It should return nil, `warn' or `delete'." | |||
| 484 | (file-error nil)))) | 484 | (file-error nil)))) |
| 485 | 485 | ||
| 486 | (defun nnmail-group-pathname (group dir &optional file) | 486 | (defun nnmail-group-pathname (group dir &optional file) |
| 487 | "Make pathname for GROUP." | 487 | "Make file name for GROUP." |
| 488 | (concat | 488 | (concat |
| 489 | (let ((dir (file-name-as-directory (expand-file-name dir)))) | 489 | (let ((dir (file-name-as-directory (expand-file-name dir)))) |
| 490 | (setq group (nnheader-replace-duplicate-chars-in-string | 490 | (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.") | |||
| 399 | prefix)) | 399 | prefix)) |
| 400 | 400 | ||
| 401 | (defun nnsoup-file-name (dir file) | 401 | (defun nnsoup-file-name (dir file) |
| 402 | "Return the full path of FILE (in any case) in DIR." | 402 | "Return the full name of FILE (in any case) in DIR." |
| 403 | (let* ((case-fold-search t) | 403 | (let* ((case-fold-search t) |
| 404 | (files (directory-files dir t)) | 404 | (files (directory-files dir t)) |
| 405 | (regexp (concat (regexp-quote file) "$"))) | 405 | (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.") | |||
| 457 | (nnheader-report 'nnspool "No such newsgroup: %s" group))))) | 457 | (nnheader-report 'nnspool "No such newsgroup: %s" group))))) |
| 458 | 458 | ||
| 459 | (defun nnspool-article-pathname (group &optional article) | 459 | (defun nnspool-article-pathname (group &optional article) |
| 460 | "Find the path for GROUP." | 460 | "Find the file name for GROUP." |
| 461 | (nnheader-group-pathname group nnspool-spool-directory article)) | 461 | (nnheader-group-pathname group nnspool-spool-directory article)) |
| 462 | 462 | ||
| 463 | (provide 'nnspool) | 463 | (provide 'nnspool) |