- (dolist (handle (with-current-buffer w3m-current-buffer
- gnus-article-mime-handles))
- (when (and (listp handle)
- (equal url (mm-handle-id handle)))
- (mm-insert-part handle)
- (throw 'found-handle (mm-handle-media-type handle)))))))
+ (let ((handles (with-current-buffer w3m-current-buffer
+ gnus-article-mime-handles)))
+ (if (mm-multiple-handles handles)
+ (dolist (handle handles)
+ (mm-w3m-cid-retrieve-1 url handle))
+ (mm-w3m-cid-retrieve-1 url handles))))))