diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 06:39:37 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 06:39:37 +0000 |
| commit | 0717822943efa5013dffa1494f528e23d102ae72 (patch) | |
| tree | 286a1a348b9bef33ed04e561d2dd7ea1c6b8088d /lisp/gnus/rfc2231.el | |
| parent | 52d6635f8170ad0f5269afb47dc41d5527fbe65c (diff) | |
| download | emacs-0717822943efa5013dffa1494f528e23d102ae72.tar.gz | |
[Gnus] Allow overriding charset in some decoding functions
Diffstat (limited to 'lisp/gnus/rfc2231.el')
| -rw-r--r-- | lisp/gnus/rfc2231.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el index e8d7075bc65..4baacde8ea4 100644 --- a/lisp/gnus/rfc2231.el +++ b/lisp/gnus/rfc2231.el @@ -215,7 +215,8 @@ These look like: \"''This%20is%20%2A%2A%2Afun%2A%2A%2A\", or \"This is ***fun***\"." (string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" string) - (let ((coding-system (mm-charset-to-coding-system (match-string 1 string))) + (let ((coding-system (mm-charset-to-coding-system + (match-string 1 string) nil t)) ;;(language (match-string 2 string)) (value (match-string 3 string))) (mm-with-unibyte-buffer |