diff options
| -rw-r--r-- | lisp/gnus/gnus-art.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index ab9ae675cfa..64b82e6b97a 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -368,6 +368,15 @@ The function is called from the article buffer." :group 'gnus-article-mime :type 'function) +(defcustom gnus-show-traditional-method + (if (featurep 'mule) + 'gnus-mule-decode-article + (lambda ())) + "Function to decode ``localized RFC 822 messages''. +The function is called from the article buffer." + :group 'gnus-article-mime + :type 'function) + (defcustom gnus-page-delimiter "^\^L" "*Regexp describing what to use as article page delimiters. The default value is \"^\^L\", which is a form linefeed at the @@ -2004,11 +2013,12 @@ If ALL-HEADERS is non-nil, no headers are hidden." (run-hooks 'internal-hook) (run-hooks 'gnus-article-prepare-hook) ;; Decode MIME message. - (when gnus-show-mime - (if (or (not gnus-strict-mime) - (gnus-fetch-field "Mime-Version")) - (funcall gnus-show-mime-method) - (funcall gnus-decode-encoded-word-method))) + (if gnus-show-mime + (if (or (not gnus-strict-mime) + (gnus-fetch-field "Mime-Version")) + (funcall gnus-show-mime-method) + (funcall gnus-decode-encoded-word-method)) + (funcall gnus-show-traditional-method)) ;; Perform the article display hooks. (run-hooks 'gnus-article-display-hook)) ;; Do page break. |