[PATCH] removal of old cid handling from gnus...

[wmperry@aventail.com (William M. Perry)]

Emacs/W3 4.0pre30 will correctly handle all the fun of content-id fetching, 
so gnus won't have to do anything.

You can get it from ftp://ftp.cs.indiana.edu/pub/elisp/w3/.betas/w3.tar.gz
in a few minutes.

-Bill P.

*** mm-view.el~ Fri Nov 27 07:18:58 1998
--- mm-view.el  Sun Nov 29 08:39:19 1998
***************
*** 45,51 ****
      (w3-do-setup)
      (require 'url)
      (require 'w3-vars)
-     (url-register-protocol 'cid nil 'url-identity-expander)
      (setq mm-w3-setup t)))
  
  (defun mm-inline-text (handle)
--- 45,50 ----

*** mm-decode.el~       Fri Nov 27 07:18:58 1998
--- mm-decode.el        Sun Nov 29 08:40:08 1998
***************
*** 529,558 ****
         (< (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
--- 529,534 ----