X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=d55c703a3daeb445261f1707e7136829fc4c8ae3;hp=d4bbfff48f23188e98320cf8a2b15d1e03d66688;hb=83e840aefbed659a6cae139b4a0b2a04f003f3c9;hpb=3557392c7682dc8b827fb3f49f785ded6ffcc62e
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d4bbfff48..d55c703a3 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2807,15 +2807,16 @@ Return file name."
cid handle directory))
(throw 'found file)))
((equal (concat "<" cid ">") (mm-handle-id handle))
- (setq file (or (mm-handle-filename handle)
- (concat
- (make-temp-name "cid")
- (car (rassoc (car (mm-handle-type handle))
- mailcap-mime-extensions)))))
- (mm-save-part-to-file handle (expand-file-name file directory))
- (throw 'found (concat (file-name-nondirectory
- (directory-file-name directory))
- "/" file)))))))))
+ (setq file
+ (expand-file-name
+ (or (mm-handle-filename handle)
+ (concat
+ (make-temp-name "cid")
+ (car (rassoc (car (mm-handle-type handle))
+ mailcap-mime-extensions))))
+ directory))
+ (mm-save-part-to-file handle file)
+ (throw 'found file))))))))
(defun gnus-article-browse-html-parts (list &optional header)
"View all \"text/html\" parts from LIST.
@@ -2849,19 +2850,6 @@ message header will be added to the bodies of the \"text/html\" parts."
(mm-enable-multibyte)
(mm-disable-multibyte))
(insert content)
- ;; remove