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." |
466 |
(progn |
(progn |
467 |
(buffer-disable-undo) |
(buffer-disable-undo) |
468 |
(mm-insert-part handle) |
(mm-insert-part handle) |
|
(funcall mode) |
|
469 |
(require 'font-lock) |
(require 'font-lock) |
470 |
|
;; Inhibit font-lock this time (*-mode-hook might run |
471 |
|
;; `turn-on-font-lock') so that jit-lock may not turn off |
472 |
|
;; font-lock immediately after this. |
473 |
|
(let ((font-lock-mode t)) |
474 |
|
(funcall mode)) |
475 |
(let ((font-lock-verbose nil)) |
(let ((font-lock-verbose nil)) |
476 |
;; I find font-lock a bit too verbose. |
;; I find font-lock a bit too verbose. |
477 |
(font-lock-fontify-buffer)) |
(font-lock-fontify-buffer)) |