/[emacs]/emacs/lisp/gnus/mm-view.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8.6.3 by miles, Thu Sep 9 09:36:26 2004 UTC revision 1.8.6.4 by miles, Fri Oct 22 10:13:32 2004 UTC
# Line 199  Line 199 
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."
# Line 465  Line 466 
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))

Legend:
Removed from v.1.8.6.3  
changed lines
  Added in v.1.8.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26