(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.

1 files changed, 12 insertions, 2 deletions

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)