Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 20117:b84c6ec5f561
(gnus-structured-field-decoder): Pay attention
to enable-multibyte-characters.
(gnus-unstructured-field-decoder): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 22 Oct 1997 04:34:23 +0000 |
| parents | 9049c6de031f |
| children | 41843e16f6ac |
comparison
equal
deleted
inserted
replaced
| 20116:8c1995cc7702 | 20117:b84c6ec5f561 |
|---|---|
| 619 :group 'gnus-summary-visual | 619 :group 'gnus-summary-visual |
| 620 :type 'hook) | 620 :type 'hook) |
| 621 | 621 |
| 622 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> | 622 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| 623 (defcustom gnus-structured-field-decoder | 623 (defcustom gnus-structured-field-decoder |
| 624 (if (featurep 'mule) | 624 (if (and (featurep 'mule) |
| 625 (boundp 'enable-multibyte-characters)) | |
| 625 (lambda (string) | 626 (lambda (string) |
| 626 (if gnus-mule-coding-system | 627 (if (and enable-multibyte-characters gnus-mule-coding-system) |
| 627 (decode-coding-string string gnus-mule-coding-system) | 628 (decode-coding-string string gnus-mule-coding-system) |
| 628 ))) | 629 string)) |
| 630 'identity) | |
| 629 "Function to decode non-ASCII characters in structured field for summary." | 631 "Function to decode non-ASCII characters in structured field for summary." |
| 630 :group 'gnus-various | 632 :group 'gnus-various |
| 631 :type 'function) | 633 :type 'function) |
| 632 | 634 |
| 633 (defcustom gnus-unstructured-field-decoder | 635 (defcustom gnus-unstructured-field-decoder |
| 634 (if (featurep 'mule) | 636 (if (and (featurep 'mule) |
| 637 (boundp 'enable-multibyte-characters)) | |
| 635 (lambda (string) | 638 (lambda (string) |
| 636 (if gnus-mule-coding-system | 639 (if (and enable-multibyte-characters gnus-mule-coding-system) |
| 637 (decode-coding-string string gnus-mule-coding-system) | 640 (decode-coding-string string gnus-mule-coding-system) |
| 638 ))) | 641 string)) |
| 642 'identity) | |
| 639 "Function to decode non-ASCII characters in unstructured field for summary." | 643 "Function to decode non-ASCII characters in unstructured field for summary." |
| 640 :group 'gnus-various | 644 :group 'gnus-various |
| 641 :type 'function) | 645 :type 'function) |
| 642 | 646 |
| 643 (defcustom gnus-parse-headers-hook | 647 (defcustom gnus-parse-headers-hook |