(interactive (gnus-article-hidden-arg))
(unless (gnus-article-check-hidden-text 'emphasis arg)
(save-excursion
- (let ((alist (or gnus-article-emphasis-alist gnus-emphasis-alist))
+ (let ((alist (or (with-current-buffer gnus-summary-buffer
+ gnus-article-emphasis-alist)
+ gnus-emphasis-alist))
(buffer-read-only nil)
(props (append '(article-type emphasis)
gnus-hidden-properties))
"inline")
(mm-attachment-override-p type)))
(mm-automatic-display-p type)
- (or (mm-inlinable-part-p type)
+ (or (mm-inlined-p type)
(mm-automatic-external-display-p type)))
(setq display t)
(when (equal (car (split-string type "/"))