From 80bb5a78a57410eb24c8a3236a413a944b2d61c0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 26 Sep 1997 01:50:55 +0000 Subject: [PATCH] (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. --- lisp/gnus/gnus-sum.el | 14 ++++++++++++-- 1 file 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 -(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) -- 2.39.2