summaryrefslogtreecommitdiff
path: root/lisp/gnus/mm-view.el
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2011-09-21 02:13:03 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-09-21 02:13:03 +0000
commit44cb0cc9672c2e6168ef3ba06496f9e3c478d716 (patch)
tree8e61c406b3187505f9a4ddcf50b773c546f861f4 /lisp/gnus/mm-view.el
parent4d3786ace1bc396d016684f799e5ae844a17b886 (diff)
downloademacs-44cb0cc9672c2e6168ef3ba06496f9e3c478d716.tar.gz
mm-view.el (mm-display-inline-fontify): Don't run doc-view-mode because it displays images using overlays that aren't easy to copy to the article buffer.
Diffstat (limited to 'lisp/gnus/mm-view.el')
-rw-r--r--lisp/gnus/mm-view.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 926422865c7..6358e34176f 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -607,7 +607,10 @@ If MODE is not set, try to find mode automatically."
(set (make-local-variable 'enable-local-variables) nil)
(if mode
(funcall mode)
- (set-auto-mode))
+ (let ((auto-mode-alist
+ (delq (rassq 'doc-view-mode-maybe auto-mode-alist)
+ (copy-sequence auto-mode-alist))))
+ (set-auto-mode)))
;; The mode function might have already turned on font-lock.
;; Do not fontify if the guess mode is fundamental.
(unless (or (symbol-value 'font-lock-mode)