aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorShengHuo ZHU2003-01-16 01:19:03 +0000
committerShengHuo ZHU2003-01-16 01:19:03 +0000
commit35ef97a54d856c4a7a9b389a4ffd9b9ceced8ba5 (patch)
tree886c0ef7bf61c64de837dcc41ffa4bb14b55c201
parent02b5590cee4606a08da26fae5bc9869d9658ed75 (diff)
downloademacs-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/ChangeLog20
-rw-r--r--lisp/gnus/gnus-agent.el6
-rw-r--r--lisp/gnus/gnus-group.el2
-rw-r--r--lisp/gnus/gnus.el2
-rw-r--r--lisp/gnus/nnfolder.el2
-rw-r--r--lisp/gnus/nnheader.el6
-rw-r--r--lisp/gnus/nnimap.el2
-rw-r--r--lisp/gnus/nnmail.el4
-rw-r--r--lisp/gnus/nnsoup.el2
-rw-r--r--lisp/gnus/nnspool.el2
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 @@
12003-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
12003-01-04 Kim F. Storm <storm@cua.dk> 212003-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.
375The icon from the file field after the first true form is used. You 375The icon from the file field after the first true form is used. You
376can change how those group lines are displayed by editing the file 376can change how those group lines are displayed by editing the file
377field. The File will either be found in the 377field. 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
379file. 379file.
380 380
381It is also possible to change and add form fields, but currently that 381It 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.
848All other Gnus path variables are initialized from this variable." 848All 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)