199 |
(setq w3m-display-inline-images mm-inline-text-html-with-images)) |
(setq w3m-display-inline-images mm-inline-text-html-with-images)) |
200 |
|
|
201 |
(defun mm-w3m-cid-retrieve-1 (url handle) |
(defun mm-w3m-cid-retrieve-1 (url handle) |
202 |
(if (mm-multiple-handles handle) |
(dolist (elem handle) |
203 |
(dolist (elem handle) |
(when (listp elem) |
204 |
(mm-w3m-cid-retrieve-1 url elem)) |
(if (equal url (mm-handle-id elem)) |
205 |
(when (and (listp handle) |
(progn |
206 |
(equal url (mm-handle-id handle))) |
(mm-insert-part elem) |
207 |
(mm-insert-part handle) |
(throw 'found-handle (mm-handle-media-type elem)))) |
208 |
(throw 'found-handle (mm-handle-media-type handle))))) |
(if (equal "multipart" (mm-handle-media-supertype elem)) |
209 |
|
(mm-w3m-cid-retrieve-1 url elem))))) |
210 |
|
|
211 |
(defun mm-w3m-cid-retrieve (url &rest args) |
(defun mm-w3m-cid-retrieve (url &rest args) |
212 |
"Insert a content pointed by URL if it has the cid: scheme." |
"Insert a content pointed by URL if it has the cid: scheme." |