Mercurial > emacs
changeset 19989:9049c6de031f
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 26 Sep 1997 01:50:55 +0000 |
| parents | 189ed9f676c9 |
| children | 1438b35b320b |
| files | lisp/gnus/gnus-sum.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el Fri Sep 26 01:50:55 1997 +0000 +++ b/lisp/gnus/gnus-sum.el Fri Sep 26 01:50:55 1997 +0000 @@ -620,12 +620,22 @@ :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)