summaryrefslogtreecommitdiff
path: root/mu4e
diff options
context:
space:
mode:
authorDirk-Jan C. Binnema <djcb@djcbsoftware.nl>2019-04-27 08:21:10 +0300
committerGitHub <noreply@github.com>2019-04-27 08:21:10 +0300
commitd979efb9c5cb77207a443b8ea48b89694918f6b3 (patch)
tree9aa801b91943f2b6f01efa5d38623f3ed67af52d /mu4e
parentbb23e4a5b8e7083248f3d1f48aa010213975497d (diff)
parentd9066d869aaa810e07b35db1c69dddeffc60800d (diff)
Merge pull request #1374 from Chris00/prepare-display
mu4e: Increase `max-specpdl-size' when decoding messages
Diffstat (limited to 'mu4e')
-rw-r--r--mu4e/mu4e-vars.el5
-rw-r--r--mu4e/mu4e-view.el3
2 files changed, 7 insertions, 1 deletions
diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el
index eb36dec..5b4dee1 100644
--- a/mu4e/mu4e-vars.el
+++ b/mu4e/mu4e-vars.el
@@ -247,6 +247,11 @@ and `mu4e-headers-visible-columns'."
(const :tag "Don't split" nil))
:group 'mu4e-headers)
+(defcustom mu4e-view-max-specpdl-size 4096
+ "The value of `max-specpdl-size' for displaying messages with Gnus."
+ :type 'integer
+ :group 'mu4e-view)
+
(defcustom mu4e-view-show-images nil
"If non-nil, automatically display images in the view buffer."
:type 'boolean
diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el
index 5a12fee..177a1ed 100644
--- a/mu4e/mu4e-view.el
+++ b/mu4e/mu4e-view.el
@@ -375,7 +375,8 @@ article-mode."
gnus-summary-buffer (get-buffer-create " *appease-gnus*")
gnus-original-article-buffer (current-buffer))
(run-hooks 'gnus-article-decode-hook)
- (gnus-article-prepare-display)
+ (let ((max-specpdl-size mu4e-view-max-specpdl-size))
+ (gnus-article-prepare-display))
(mu4e-view-mode)
(setq mu4e~view-message msg)
(setq gnus-article-decoded-p gnus-article-decode-hook)