Mercurial > emacs
changeset 19993:2c30b1fb6409
(gnus-show-traditional-method): New variable.
(gnus-article-prepare): If gnus-show-mime is nil, call
gnus-show-traditional-method.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 26 Sep 1997 01:50:55 +0000 |
| parents | 36e81448237d |
| children | a862fb5ba4a5 |
| files | lisp/gnus/gnus-art.el |
| diffstat | 1 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Fri Sep 26 01:50:55 1997 +0000 +++ b/lisp/gnus/gnus-art.el Fri Sep 26 01:50:55 1997 +0000 @@ -368,6 +368,15 @@ :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 @@ (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.