X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-decode.el;h=565c52086bfd809f9830ee263078ab179923bbd6;hb=0d1720aee995af053638966ad6bcf16698575735;hp=196f8cc39af655db1c6bbeba48874e8ad3f30a6d;hpb=1fabbb0eee2b36b4b416aaf7b8c34e46ee36439f;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 196f8cc..565c520 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -529,30 +529,6 @@ This overrides entries in the mailcap file."
 	 (< (glyph-height (annotation-glyph image))
 	    (window-pixel-height)))))
 
-(defun url-cid (url)
-  (set-buffer (get-buffer-create url-working-buffer))
-  (let ((content-type nil)
-	(encoding nil)
-	(part nil)
-	(data nil))
-    (if (not (string-match "^cid:\\(.*\\)" url))
-	(message "Malformed CID URL: %s" url)
-      (setq url (url-unhex-string (match-string 1 url))
-	    part (mm-get-content-id url))
-      (if (not part)
-	  (message "Unknown CID encounterred: %s" url)
-	(setq data (buffer-string nil nil (mm-handle-buffer part))
-	      content-type (mm-handle-type part)
-	      encoding (symbol-name (mm-handle-encoding part)))
-	(if (= 0 (length content-type)) (setq content-type "text/plain"))
-	(if (= 0 (length encoding)) (setq encoding "8bit"))
-	(setq url-current-content-length (length data)
-	      url-current-mime-type content-type
-	      url-current-mime-encoding encoding
-	      url-current-mime-headers (list (cons "content-type" content-type)
-					     (cons "content-encoding" encoding)))
-	(and data (insert data))))))
-
 (provide 'mm-decode)
 
 ;; mm-decode.el ends here