Mercurial > emacs
annotate lisp/url/url-file.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 1d1d5d9bd884 |
children | 7ac0fe73f41d 376148b31b5e |
rev | line source |
---|---|
54695 | 1 ;;; url-file.el --- File retrieval code |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
2 |
104551
dbd882f3da46
Remove code for defunct system-types Apple-Macintosh, emx, ms-windows,
Glenn Morris <rgm@gnu.org>
parents:
101888
diff
changeset
|
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2004, 2005, 2006, 2007, 2008, |
106815 | 4 ;; 2009, 2010 Free Software Foundation, Inc. |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
5 |
54695 | 6 ;; Keywords: comm, data, processes |
7 | |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
8 ;; This file is part of GNU Emacs. |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
9 ;; |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
11 ;; it under the terms of the GNU General Public License as published by |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
13 ;; (at your option) any later version. |
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
14 |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
15 ;; GNU Emacs is distributed in the hope that it will be useful, |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
18 ;; GNU General Public License for more details. |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
19 |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
20 ;; You should have received a copy of the GNU General Public License |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
22 |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
23 ;;; Commentary: |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
24 |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
25 ;;; Code: |
54695 | 26 |
27 (eval-when-compile (require 'cl)) | |
28 (require 'mailcap) | |
29 (require 'url-vars) | |
30 (require 'url-parse) | |
31 (require 'url-dired) | |
32 | |
33 (defconst url-file-default-port 21 "Default FTP port.") | |
34 (defconst url-file-asynchronous-p t "FTP transfers are asynchronous.") | |
35 (defalias 'url-file-expand-file-name 'url-default-expander) | |
36 | |
37 (defun url-file-find-possibly-compressed-file (fname &rest args) | |
38 "Find the exact file referenced by `fname'. | |
39 This tries the common compression extensions, because things like | |
40 ange-ftp and efs are not quite smart enough to realize when a server | |
41 can do automatic decompression for them, and won't find 'foo' if | |
96486
7369ded3b436
Typo and docstring fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
94668
diff
changeset
|
42 'foo.gz' exists, even though the FTP server would happily serve it up |
54695 | 43 to them." |
44 (let ((scratch nil) | |
45 (compressed-extensions '("" ".gz" ".z" ".Z" ".bz2")) | |
46 (found nil)) | |
47 (while (and compressed-extensions (not found)) | |
48 (if (file-exists-p (setq scratch (concat fname (pop compressed-extensions)))) | |
49 (setq found scratch))) | |
50 found)) | |
51 | |
52 (defun url-file-host-is-local-p (host) | |
78481
bc53aa750f3b
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78222
diff
changeset
|
53 "Return t if HOST references our local machine." |
54695 | 54 (let ((case-fold-search t)) |
55 (or | |
56 (null host) | |
57 (string= "" host) | |
58 (equal (downcase host) (downcase (system-name))) | |
59 (and (string-match "^localhost$" host) t) | |
60 (and (not (string-match (regexp-quote ".") host)) | |
61 (equal (downcase host) (if (string-match (regexp-quote ".") | |
62 (system-name)) | |
63 (substring (system-name) 0 | |
64 (match-beginning 0)) | |
65 (system-name))))))) | |
66 | |
67 (defun url-file-asynch-callback (x y name buff func args &optional efs) | |
68 (if (not (featurep 'ange-ftp)) | |
69 ;; EFS passes us an extra argument | |
70 (setq name buff | |
71 buff func | |
72 func args | |
73 args efs)) | |
74 (let ((size (nth 7 (file-attributes name)))) | |
63379
70cb4d2371b4
(url-file, url-file-asynch-callback): Use with-current-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57427
diff
changeset
|
75 (with-current-buffer buff |
54695 | 76 (goto-char (point-max)) |
77 (if (/= -1 size) | |
78 (insert (format "Content-length: %d\n" size))) | |
79 (insert "\n") | |
80 (insert-file-contents-literally name) | |
81 (if (not (url-file-host-is-local-p (url-host url-current-object))) | |
82 (condition-case () | |
83 (delete-file name) | |
84 (error nil))) | |
85 (apply func args)))) | |
86 | |
87104
ad4cfef6161e
Remove directory part from filenames in function declarations.
Glenn Morris <rgm@gnu.org>
parents:
86821
diff
changeset
|
87 (declare-function ange-ftp-set-passwd "ange-ftp" (host user passwd)) |
ad4cfef6161e
Remove directory part from filenames in function declarations.
Glenn Morris <rgm@gnu.org>
parents:
86821
diff
changeset
|
88 (declare-function ange-ftp-copy-file-internal "ange-ftp" |
86243
4d615a83cee2
* progmodes/idlw-help.el: Require browse-url unconditionally, it
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83823
diff
changeset
|
89 (filename newname ok-if-already-exists |
4d615a83cee2
* progmodes/idlw-help.el: Require browse-url unconditionally, it
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83823
diff
changeset
|
90 keep-date &optional msg cont nowait)) |
4d615a83cee2
* progmodes/idlw-help.el: Require browse-url unconditionally, it
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83823
diff
changeset
|
91 |
54695 | 92 (defun url-file-build-filename (url) |
93 (if (not (vectorp url)) | |
94 (setq url (url-generic-parse-url url))) | |
95 (let* ((user (url-user url)) | |
96 (pass (url-password url)) | |
97 (port (url-port url)) | |
98 (host (url-host url)) | |
99 (site (if (and port (/= port 21)) | |
100 (if (featurep 'ange-ftp) | |
101 (format "%s %d" host port) | |
102 ;; This works in Emacs 21's ange-ftp too. | |
103 (format "%s#%d" host port)) | |
104 host)) | |
105 (file (url-unhex-string (url-filename url))) | |
106 (filename (if (or user (not (url-file-host-is-local-p host))) | |
107 (concat "/" (or user "anonymous") "@" site ":" file) | |
104551
dbd882f3da46
Remove code for defunct system-types Apple-Macintosh, emx, ms-windows,
Glenn Morris <rgm@gnu.org>
parents:
101888
diff
changeset
|
108 (if (and (memq system-type '(ms-dos windows-nt)) |
54695 | 109 (string-match "^/[a-zA-Z]:/" file)) |
110 (substring file 1) | |
111 file))) | |
112 pos-index) | |
113 | |
114 (and user pass | |
115 (cond | |
116 ((featurep 'ange-ftp) | |
117 (ange-ftp-set-passwd host user pass)) | |
86821
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
118 ((when (featurep 'xemacs) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
119 (or (featurep 'efs) (featurep 'efs-auto) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
120 (efs-set-passwd host user pass)))) |
54695 | 121 (t |
122 nil))) | |
123 | |
124 ;; This makes sure that directories have a trailing directory | |
125 ;; separator on them so URL expansion works right. | |
126 ;; | |
127 ;; FIXME? What happens if the remote system doesn't use our local | |
128 ;; directory-sep-char as its separator? Would it be safer to just | |
129 ;; use '/' unconditionally and rely on the FTP server to | |
130 ;; straighten it out for us? | |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
131 ;; (if (and (file-directory-p filename) |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
132 ;; (not (string-match (format "%c$" directory-sep-char) filename))) |
83823
dd2bcc6758a0
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78481
diff
changeset
|
133 ;; (setf (url-filename url) |
dd2bcc6758a0
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78481
diff
changeset
|
134 ;; (format "%s%c" filename directory-sep-char))) |
54695 | 135 (if (and (file-directory-p filename) |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
136 (not (string-match "/\\'" filename))) |
83823
dd2bcc6758a0
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78481
diff
changeset
|
137 (setf (url-filename url) (format "%s/" filename))) |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
138 |
54695 | 139 |
140 ;; If it is a directory, look for an index file first. | |
141 (if (and (file-directory-p filename) | |
142 url-directory-index-file | |
143 (setq pos-index (expand-file-name url-directory-index-file filename)) | |
144 (file-exists-p pos-index) | |
145 (file-readable-p pos-index)) | |
146 (setq filename pos-index)) | |
147 | |
148 ;; Find the (possibly compressed) file | |
149 (setq filename (url-file-find-possibly-compressed-file filename)) | |
150 filename)) | |
151 | |
152 ;;;###autoload | |
153 (defun url-file (url callback cbargs) | |
154 "Handle file: and ftp: URLs." | |
155 (let* ((buffer nil) | |
156 (uncompressed-filename nil) | |
157 (content-type nil) | |
158 (content-encoding nil) | |
104992
d5da691bfe56
(url-file): Avoid assignment to free variable `filename'.
Glenn Morris <rgm@gnu.org>
parents:
104551
diff
changeset
|
159 (coding-system-for-read 'binary) |
d5da691bfe56
(url-file): Avoid assignment to free variable `filename'.
Glenn Morris <rgm@gnu.org>
parents:
104551
diff
changeset
|
160 (filename (url-file-build-filename url))) |
d5da691bfe56
(url-file): Avoid assignment to free variable `filename'.
Glenn Morris <rgm@gnu.org>
parents:
104551
diff
changeset
|
161 (or filename (error "File does not exist: %s" (url-recreate-url url))) |
54695 | 162 ;; Need to figure out the content-type from the real extension, |
163 ;; not the compressed one. | |
164 (setq uncompressed-filename (if (string-match "\\.\\(gz\\|Z\\|z\\)$" filename) | |
165 (substring filename 0 (match-beginning 0)) | |
166 filename)) | |
167 (setq content-type (mailcap-extension-to-mime | |
168 (url-file-extension uncompressed-filename)) | |
169 content-encoding (case (intern (url-file-extension filename)) | |
170 ((\.z \.gz) "gzip") | |
171 (\.Z "compress") | |
172 (\.uue "x-uuencoded") | |
173 (\.hqx "x-hqx") | |
174 (\.bz2 "x-bzip2") | |
175 (otherwise nil))) | |
176 | |
177 (if (file-directory-p filename) | |
178 ;; A directory is done the same whether we are local or remote | |
179 (url-find-file-dired filename) | |
63379
70cb4d2371b4
(url-file, url-file-asynch-callback): Use with-current-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57427
diff
changeset
|
180 (with-current-buffer |
70cb4d2371b4
(url-file, url-file-asynch-callback): Use with-current-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57427
diff
changeset
|
181 (setq buffer (generate-new-buffer " *url-file*")) |
54695 | 182 (mm-disable-multibyte) |
183 (setq url-current-object url) | |
184 (insert "Content-type: " (or content-type "application/octet-stream") "\n") | |
185 (if content-encoding | |
186 (insert "Content-transfer-encoding: " content-encoding "\n")) | |
187 (if (url-file-host-is-local-p (url-host url)) | |
188 ;; Local files are handled slightly oddly | |
189 (if (featurep 'ange-ftp) | |
190 (url-file-asynch-callback nil nil | |
191 filename | |
192 (current-buffer) | |
193 callback cbargs) | |
194 (url-file-asynch-callback nil nil nil | |
195 filename | |
196 (current-buffer) | |
197 callback cbargs)) | |
198 ;; FTP handling | |
101888
074256e82966
(url-file): Use make-temp-file.
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
199 (let ((new (make-temp-file |
074256e82966
(url-file): Use make-temp-file.
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
200 (format "url-tmp.%d" (user-real-uid))))) |
54695 | 201 (if (featurep 'ange-ftp) |
202 (ange-ftp-copy-file-internal filename (expand-file-name new) t | |
203 nil t | |
204 (list 'url-file-asynch-callback | |
205 new (current-buffer) | |
206 callback cbargs) | |
207 t) | |
86821
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
208 (when (featurep 'xemacs) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
209 (autoload 'efs-copy-file-internal "efs") |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
210 (efs-copy-file-internal filename (efs-ftp-path filename) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
211 new (efs-ftp-path new) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
212 t nil 0 |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
213 (list 'url-file-asynch-callback |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
214 new (current-buffer) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
215 callback cbargs) |
7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
Glenn Morris <rgm@gnu.org>
parents:
86265
diff
changeset
|
216 0 nil))))))) |
54695 | 217 buffer)) |
218 | |
219 (defmacro url-file-create-wrapper (method args) | |
54930
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
220 `(defalias ',(intern (format "url-ftp-%s" method)) |
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
221 (defun ,(intern (format "url-file-%s" method)) ,args |
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
222 ,(format "FTP/FILE URL wrapper around `%s' call." method) |
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
223 (setq url (url-file-build-filename url)) |
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
224 (and url (,method ,@(remove '&rest (remove '&optional args))))))) |
54695 | 225 |
226 (url-file-create-wrapper file-exists-p (url)) | |
54930
ca220b74ea4b
(url-file-create-wrapper): Use new backquote syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54796
diff
changeset
|
227 (url-file-create-wrapper file-attributes (url &optional id-format)) |
54695 | 228 (url-file-create-wrapper file-symlink-p (url)) |
229 (url-file-create-wrapper file-readable-p (url)) | |
230 (url-file-create-wrapper file-writable-p (url)) | |
231 (url-file-create-wrapper file-executable-p (url)) | |
66225 | 232 (url-file-create-wrapper directory-files (url &optional full match nosort)) |
233 (url-file-create-wrapper file-truename (url &optional counter prev-dirs)) | |
54695 | 234 |
235 (provide 'url-file) | |
54699 | 236 |
54796
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
237 ;; arch-tag: 010e914a-7313-494b-8a8c-6495a862157d |
351fde140ac4
(url-file-build-filename): Don't use directory-sep-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54770
diff
changeset
|
238 ;;; url-file.el ends here |