diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
| commit | 80bb5a78a57410eb24c8a3236a413a944b2d61c0 (patch) | |
| tree | d7128b84621901705c374ffeaba2c48d168f9df2 | |
| parent | b784063f3638332dbecbba542f8d1185de6ef823 (diff) | |
| download | emacs-80bb5a78a57410eb24c8a3236a413a944b2d61c0.tar.gz | |
(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.
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 14 |
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) |