Mercurial > emacs
comparison lisp/gnus/nnsoup.el @ 49274:eb2699620e9c
* 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.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Thu, 16 Jan 2003 01:19:03 +0000 |
| parents | 52d99cc2e9e3 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 49273:bf2ab88cad81 | 49274:eb2699620e9c |
|---|---|
| 397 (incf nnsoup-current-prefix)) | 397 (incf nnsoup-current-prefix)) |
| 398 (incf nnsoup-current-prefix) | 398 (incf nnsoup-current-prefix) |
| 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) "$"))) |
| 406 (car (delq nil | 406 (car (delq nil |
| 407 (mapcar | 407 (mapcar |