From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 Sep 1997 01:50:55 +0000 (+0000)
Subject: (gnus-show-traditional-method): New variable.
X-Git-Tag: emacs-20.3~3080
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e262a8810ce4ab3d9c2492dc5686e7acd71fe51;p=emacs.git

(gnus-show-traditional-method): New variable.
(gnus-article-prepare): If gnus-show-mime is nil, call
gnus-show-traditional-method.
---

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.