/[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.11 by miles, Sat Sep 4 13:13:43 2004 UTC revision 1.12 by miles, Tue Oct 19 22:38:28 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."

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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