From 06dee88cc2d1e7d24060c0ee728ccd9b1b6394af Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 22 Oct 1997 04:34:23 +0000 Subject: [PATCH] (gnus-structured-field-decoder): Pay attention to enable-multibyte-characters. (gnus-unstructured-field-decoder): Likewise. --- lisp/gnus/gnus-sum.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 1fae5060dbe..d1b9deb21e0 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -621,21 +621,25 @@ is not run if `gnus-visual' is nil." ;; 1997/5/4 by MORIOKA Tomohiko (defcustom gnus-structured-field-decoder - (if (featurep 'mule) + (if (and (featurep 'mule) + (boundp 'enable-multibyte-characters)) (lambda (string) - (if gnus-mule-coding-system + (if (and enable-multibyte-characters gnus-mule-coding-system) (decode-coding-string string gnus-mule-coding-system) - ))) + string)) + 'identity) "Function to decode non-ASCII characters in structured field for summary." :group 'gnus-various :type 'function) (defcustom gnus-unstructured-field-decoder - (if (featurep 'mule) + (if (and (featurep 'mule) + (boundp 'enable-multibyte-characters)) (lambda (string) - (if gnus-mule-coding-system + (if (and enable-multibyte-characters gnus-mule-coding-system) (decode-coding-string string gnus-mule-coding-system) - ))) + string)) + 'identity) "Function to decode non-ASCII characters in unstructured field for summary." :group 'gnus-various :type 'function) -- 2.39.2