aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBill Wohler2006-11-14 06:30:50 +0000
committerBill Wohler2006-11-14 06:30:50 +0000
commitff4dd1991d5f4cb0ffc0bf52e87072a5c01c98f8 (patch)
tree226416c8bb9b032a2dc5b0ec864b8a3b322f9290
parent1b5929b9895e90b16205591f5cb573328c911a5d (diff)
downloademacs-ff4dd1991d5f4cb0ffc0bf52e87072a5c01c98f8.tar.gz
emacs-ff4dd1991d5f4cb0ffc0bf52e87072a5c01c98f8.zip
(mh-x-image-url-cache-canonicalize): Add `*' to reserved Windows
filename characters (closes SF #1396499).
-rw-r--r--lisp/mh-e/ChangeLog5
-rw-r--r--lisp/mh-e/mh-xface.el16
2 files changed, 14 insertions, 7 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 594fb2e6933..1aea0bed52e 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
12006-11-14 Bill Wohler <wohler@newt.com>
2
3 * mh-xface.el (mh-x-image-url-cache-canonicalize): Add `*' to
4 reserved Windows filename characters (closes SF #1396499).
5
12006-11-13 Bill Wohler <wohler@newt.com> 62006-11-13 Bill Wohler <wohler@newt.com>
2 7
3 Release MH-E version 8.0.3. 8 Release MH-E version 8.0.3.
diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el
index deb2cebad14..e6da73339c1 100644
--- a/lisp/mh-e/mh-xface.el
+++ b/lisp/mh-e/mh-xface.el
@@ -361,14 +361,16 @@ This is only done if `mh-x-image-cache-directory' is nil."
361Replace the ?/ character with a ?! character and append .png. 361Replace the ?/ character with a ?! character and append .png.
362Also replaces special characters with `mh-url-hexify-string' 362Also replaces special characters with `mh-url-hexify-string'
363since not all characters, such as :, are legal within Windows 363since not all characters, such as :, are legal within Windows
364filenames. See URL 364filenames. In addition, replaces * with %2a. See URL
365`http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/naming_a_file.asp'." 365`http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iitemnamelimits/GetValidCharacters.asp'."
366 (format "%s/%s.png" mh-x-image-cache-directory 366 (format "%s/%s.png" mh-x-image-cache-directory
367 (mh-url-hexify-string 367 (mh-replace-regexp-in-string
368 (with-temp-buffer 368 "\*" "%2a"
369 (insert url) 369 (mh-url-hexify-string
370 (mh-replace-string "/" "!") 370 (with-temp-buffer
371 (buffer-string))))) 371 (insert url)
372 (mh-replace-string "/" "!")
373 (buffer-string))))))
372 374
373(defun mh-x-image-get-download-state (file) 375(defun mh-x-image-get-download-state (file)
374 "Check the state of FILE by following any symbolic links." 376 "Check the state of FILE by following any symbolic links."