(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 1ed79489c32027d291fec98c57a208b2da8b8ceb..1fae5060dbe496c59dc006982f4b35b41771c887 100644 (file)
--- 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)