From: Katsumi Yamaoka Date: Thu, 21 Aug 2014 23:02:23 +0000 (+0000) Subject: lisp/gnus/mm-view.el (mm-display-inline-fontify): Make the working buffer temporarily... X-Git-Tag: emacs-25.0.90~2635^2~679^2~449 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30f1ca3b9ac0f0e7a997e98829fd7c423f1334d0;p=emacs.git 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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 441a8c90f70..8b3262998d2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2014-08-21 Katsumi Yamaoka + + * 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 * gnus-sum.el (gnus-summary-expire-articles): Functions registered to diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index ecfa2ac9582..bf24f349622 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -513,7 +513,9 @@ If MODE is not set, try to find mode automatically." (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))))