------------------------------------------------------------
revno: 117722
committer: Katsumi Yamaoka <yamaoka@jpl.org>
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)
diff:
=== modified file 'lisp/gnus/ChangeLog'
--- lisp/gnus/ChangeLog	2014-08-14 11:31:23 +0000
+++ lisp/gnus/ChangeLog	2014-08-21 23:02:23 +0000
@@ -1,3 +1,9 @@
+2014-08-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* 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  <alan.schmitt@polytechnique.org>
 
 	* gnus-sum.el (gnus-summary-expire-articles): Functions registered to

=== modified file 'lisp/gnus/mm-view.el'
--- lisp/gnus/mm-view.el	2014-06-05 04:31:36 +0000
+++ 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))))