From ed90426bb18f17f0a06a32c4112d2b59c2bdda1d Mon Sep 17 00:00:00 2001 From: "Peder O. Klingenberg" Date: Tue, 30 Dec 2014 11:28:12 +0100 Subject: [PATCH] Show "external" lisp viewers in whole frame. * mm-decode.el (mm-display-external): Show "external" lisp viewers in whole frame. Signed-off-by: Peder O. Klingenberg --- lisp/ChangeLog | 2 ++ lisp/mm-decode.el | 10 +++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2dfe657..a129284 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * mm-decode.el (mm-display-part): Make non-string methods work. Non-string methods are funcalled and work just fine, the test was bogus. + * mm-decode.el (mm-display-external): Show "external" lisp viewers in + whole frame. 2014-12-20 Katsumi Yamaoka diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 1b5ca9a..fd12813 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -885,7 +885,15 @@ external if displayed external." (mm-handle-media-type handle) t)))) (unwind-protect (if method - (funcall method) + (progn + (when (and (boundp 'gnus-summary-buffer) + (bufferp gnus-summary-buffer) + (buffer-name gnus-summary-buffer)) + ;; So that we pop back to the right place, sortof. + (switch-to-buffer gnus-summary-buffer) + (switch-to-buffer mm)) + (delete-other-windows) + (funcall method)) (mm-save-part handle)) (when (and (not non-viewer) method) -- 1.9.1