If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
(let* ((access-type (cdr (assq 'access-type
(cdr (mm-handle-type handle)))))
- (func (cdr (assq (intern (downcase access-type))
+ (func (cdr (assq (intern
+ (downcase
+ (or access-type
+ (error "Couldn't find access type."))))
mm-extern-function-alist)))
gnus-displaying-mime buf
handles)
(unless good
(mm-destroy-parts handles))))
(mm-handle-set-cache handle handles))
- (push handles gnus-article-mime-handles))
+ (if (listp (car gnus-article-mime-handles))
+ (push handles gnus-article-mime-handles)
+ (setq gnus-article-mime-handles
+ (list handles gnus-article-mime-handles))))
(unless no-display
(save-excursion
(save-restriction