# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 875238655 0
# Node ID 9049c6de031f8c3d74dae741e1747a15607c5d1b
# Parent  189ed9f676c9d0ff7ab9e4524d7832d0276058c5
(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 -r 189ed9f676c9 -r 9049c6de031f lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Fri Sep 26 01:50:55 1997 +0000
+++ b/lisp/gnus/gnus-sum.el	Fri Sep 26 01:50:55 1997 +0000
@@ -620,12 +620,22 @@
   :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)