# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 875238655 0
# Node ID 2c30b1fb64094ac54c557ef6d8294cd10e2c6a55
# Parent  36e81448237da0c442d1aad7b9729d2005ffc752
(gnus-show-traditional-method): New variable.
(gnus-article-prepare): If gnus-show-mime is nil, call
gnus-show-traditional-method.

diff -r 36e81448237d -r 2c30b1fb6409 lisp/gnus/gnus-art.el
--- 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.