[Emacs-diffs] trunk r117722: lisp/gnus/mm-view.el (mm-display-inline-fontify): Make the working buffer temporarily displayed when running a mode function (at least org-mode requires it)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 117722
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2014-08-21 23:02:23 +0000
message:
  lisp/gnus/mm-view.el (mm-display-inline-fontify): Make the working buffer 
temporarily displayed when running a mode function (at least org-mode requires 
it)
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/mm-view.el           mmview.el-20091113204419-o5vbwnq5f7feedwu-1976

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-08-14 11:31:23 +0000
+++ b/lisp/gnus/ChangeLog       2014-08-21 23:02:23 +0000
@@ -1,3 +1,9 @@
+2014-08-21  Katsumi Yamaoka  <address@hidden>
+
+       * mm-view.el (mm-display-inline-fontify): Make the working buffer
+       temporarily displayed when running a mode function (at least org-mode
+       requires it).
+
 2014-08-14  Alan Schmitt  <address@hidden>
 
        * gnus-sum.el (gnus-summary-expire-articles): Functions registered to

=== modified file 'lisp/gnus/mm-view.el'
--- a/lisp/gnus/mm-view.el      2014-06-05 04:31:36 +0000
+++ b/lisp/gnus/mm-view.el      2014-08-21 23:02:23 +0000
@@ -513,7 +513,9 @@
         (set (make-local-variable 'enable-local-variables) nil)
        (with-demoted-errors
          (if mode
-             (funcall mode)
+             (save-window-excursion
+               (switch-to-buffer (current-buffer))
+               (funcall mode))
            (let ((auto-mode-alist
                   (delq (rassq 'doc-view-mode-maybe auto-mode-alist)
                         (copy-sequence auto-mode-alist))))