Increase `max-specpdl-size' when decoding messages

Some messages (e.g. Outlook automatic replies) need a greater value
than the default one of `max-specpdl-size' to be displayed properly.
This commit is contained in:
Christophe Troestler 2019-02-02 15:31:41 +01:00
parent 156c421113
commit d9066d869a
2 changed files with 7 additions and 1 deletions

View File

@ -248,6 +248,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

View File

@ -371,7 +371,8 @@ article-mode."
(article-de-base64-unreadable)
(article-de-quoted-unreadable)
(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-msg msg)
(setq gnus-article-decoded-p gnus-article-decode-hook)