Support cid: URLs/images.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b3fd7f..99da908 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * gnus-html.el: require mm-url.
        (gnus-html-wash-tags): Clarify the code a bit by renaming the variable
        with the url to `url'.
+       (gnus-html-wash-tags): Support cid: URLs/images.
 
 2010-08-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index efa7414..6b7d6a6 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -276,7 +276,7 @@
 
 (defun gnus-put-image (glyph &optional string category)
   (let ((point (point)))
-    (insert-image glyph (or string " "))
+    (insert-image glyph (or string "*"))
     (put-text-property point (point) 'gnus-image-category category)
     (unless string
       (put-text-property (1- (point)) (point)

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 96f3cff..542d140 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -92,18 +92,33 @@
          (setq url (match-string 1 parameters))
          (when (or (null mm-w3m-safe-url-regexp)
                    (string-match mm-w3m-safe-url-regexp url))
-           (let ((file (gnus-html-image-id url)))
-             (if (file-exists-p file)
-                 ;; It's already cached, so just insert it.
-                 (when (gnus-html-put-image file (point))
-                   ;; Delete the ALT text.
-                   (delete-region start end))
-               ;; We don't have it, so schedule it for fetching
-               ;; asynchronously.
-               (push (list url
-                           (set-marker (make-marker) start)
-                           (point-marker))
-                     images))))))
+           (if (string-match "^cid:\\(.*\\)" url)
+               ;; URLs with cid: have their content stashed in other
+               ;; parts of the MIME structure, so just insert them
+               ;; immediately.
+               (let ((handle (mm-get-content-id
+                              (setq url (match-string 1 url))))
+                     image)
+                 (when handle
+                   (mm-with-part handle
+                     (setq image (gnus-create-image (buffer-string)
+                                                    nil t))))
+                 (when image
+                   (delete-region start end)
+                   (gnus-put-image image)))
+             ;; Normal, external URL.
+             (let ((file (gnus-html-image-id url)))
+               (if (file-exists-p file)
+                   ;; It's already cached, so just insert it.
+                   (when (gnus-html-put-image file (point))
+                     ;; Delete the ALT text.
+                     (delete-region start end))
+                 ;; We don't have it, so schedule it for fetching
+                 ;; asynchronously.
+                 (push (list url
+                             (set-marker (make-marker) start)
+                             (point-marker))
+                       images)))))))
        ;; Add a link.
        ((equal tag "a")
        (when (string-match "href=\"\\([^\"]+\\)" parameters)