From 4e471c09f255bd7b84ff645f053992b80967159b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 13 Oct 2010 20:34:22 +0200 Subject: [PATCH] * mm-decode.el (mm-shr): Allow use from non-Gnus users. --- lisp/ChangeLog | 2 ++ lisp/mm-decode.el | 7 +++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0f0ced523..81bb3a165 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2010-10-13 Lars Magne Ingebrigtsen + * mm-decode.el (mm-shr): Allow use from non-Gnus users. + * gnus-spec.el (gnus-parse-simple-format): princ doesn't really insert anything in Emacs. diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 8be4bb704..1a05b4d71 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1691,8 +1691,11 @@ If RECURSIVE, search recursively." ;; Require since we bind its variables. (require 'shr) (let ((article-buffer (current-buffer)) - (shr-blocked-images (with-current-buffer gnus-summary-buffer - gnus-blocked-images)) + (shr-blocked-images (if (and (boundp gnus-summary-buffer) + (buffer-name gnus-summary-buffer)) + (with-current-buffer gnus-summary-buffer + gnus-blocked-images) + shr-blocked-images)) (shr-content-function (lambda (id) (let ((handle (mm-get-content-id id))) (when handle -- 2.25.1