diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-11-30 06:05:47 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-11-30 06:05:47 +0000 |
commit | dfdbf7af98bf921f2fa2cdd72405e9522a950dc9 (patch) | |
tree | b8538e60b632aa511eceeca9e68374a1e6340334 /lisp/gnus | |
parent | 087ef505f2853594c8f9c2756e7d31097d82c081 (diff) | |
download | emacs-dfdbf7af98bf921f2fa2cdd72405e9522a950dc9.tar.gz |
gnus-art.el (gnus-article-browse-html-parts): Fix previous commit.
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/gnus-art.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index e3eb3a04942..60cd369875d 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2880,12 +2880,13 @@ message header will be added to the bodies of the \"text/html\" parts." gnus-article-mime-handles) cid-dir)) (when (eq system-type 'cygwin) - (setq cid-file (substring - (with-output-to-string - (call-process "cygpath" nil - standard-output - nil "-m" cid-file)) - 0 -1))) + (setq cid-file + (concat "/" (substring + (with-output-to-string + (call-process "cygpath" nil + standard-output + nil "-m" cid-file)) + 0 -1)))) (replace-match (concat "file://" cid-file) nil nil nil 1)))) (unless content (setq content (buffer-string)))) |