diff options
| -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." | |||
| 2880 | gnus-article-mime-handles) | 2880 | gnus-article-mime-handles) |
| 2881 | cid-dir)) | 2881 | cid-dir)) |
| 2882 | (when (eq system-type 'cygwin) | 2882 | (when (eq system-type 'cygwin) |
| 2883 | (setq cid-file (substring | 2883 | (setq cid-file |
| 2884 | (with-output-to-string | 2884 | (concat "/" (substring |
| 2885 | (call-process "cygpath" nil | 2885 | (with-output-to-string |
| 2886 | standard-output | 2886 | (call-process "cygpath" nil |
| 2887 | nil "-m" cid-file)) | 2887 | standard-output |
| 2888 | 0 -1))) | 2888 | nil "-m" cid-file)) |
| 2889 | 0 -1)))) | ||
| 2889 | (replace-match (concat "file://" cid-file) | 2890 | (replace-match (concat "file://" cid-file) |
| 2890 | nil nil nil 1)))) | 2891 | nil nil nil 1)))) |
| 2891 | (unless content (setq content (buffer-string)))) | 2892 | (unless content (setq content (buffer-string)))) |