diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
| commit | 6e262a8810ce4ab3d9c2492dc5686e7acd71fe51 (patch) | |
| tree | ca16532c67df0ab83a3120dc598c334dcff3de94 /lisp | |
| parent | ccaab511232787a68f73f841ab9021aac7d89d41 (diff) | |
| download | emacs-6e262a8810ce4ab3d9c2492dc5686e7acd71fe51.tar.gz | |
(gnus-show-traditional-method): New variable.
(gnus-article-prepare): If gnus-show-mime is nil, call
gnus-show-traditional-method.
Diffstat (limited to 'lisp')
| -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. |