From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 Sep 1997 01:50:55 +0000 (+0000)
Subject: (gnus-structured-field-decoder): If the
X-Git-Tag: emacs-20.3~3084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80bb5a78a57410eb24c8a3236a413a944b2d61c0;p=emacs.git

(gnus-structured-field-decoder): If the
feature `mule' is provided, set the default value to the function
which decode the argument string by gnus-mule-coding-system.
(gnus-unstructured-field-decoder): Likewise.
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 1ed79489c32..1fae5060dbe 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -620,12 +620,22 @@ is not run if `gnus-visual' is nil."
   :type 'hook)
 
 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-(defcustom gnus-structured-field-decoder 'identity
+(defcustom gnus-structured-field-decoder
+  (if (featurep 'mule)
+      (lambda (string)
+	(if gnus-mule-coding-system
+	    (decode-coding-string string gnus-mule-coding-system)
+	  )))
   "Function to decode non-ASCII characters in structured field for summary."
   :group 'gnus-various
   :type 'function)
 
-(defcustom gnus-unstructured-field-decoder 'identity
+(defcustom gnus-unstructured-field-decoder
+  (if (featurep 'mule)
+      (lambda (string)
+	(if gnus-mule-coding-system 
+	    (decode-coding-string string gnus-mule-coding-system)
+	  )))
   "Function to decode non-ASCII characters in unstructured field for summary."
   :group 'gnus-various
   :type 'function)