[Emacs-diffs] /srv/bzr/emacs/trunk r105863: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 105863
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2011-09-21 02:13:03 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mm-view.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-09-20 22:14:36 +0000
+++ b/lisp/gnus/ChangeLog       2011-09-21 02:13:03 +0000
@@ -1,3 +1,9 @@
+2011-09-21  Katsumi Yamaoka  <address@hidden>
+
+       * 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.
+
 2011-09-20  Łukasz Stelmach  <address@hidden>  (tiny change)
 
        * message.el (message-indent-citation): Fix empty line removal at the

=== modified file 'lisp/gnus/mm-view.el'
--- a/lisp/gnus/mm-view.el      2011-09-17 04:53:25 +0000
+++ b/lisp/gnus/mm-view.el      2011-09-21 02:13:03 +0000
@@ -607,7 +607,10 @@
         (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)