diff options
| -rw-r--r-- | lisp/gnus/rfc2047.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 12034d7ad93..e6b7407a9de 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el | |||
| @@ -141,11 +141,15 @@ Should be called narrowed to the head of the message." | |||
| 141 | (rfc2047-encode-region (point-min) (point-max))) | 141 | (rfc2047-encode-region (point-min) (point-max))) |
| 142 | ((eq method 'default) | 142 | ((eq method 'default) |
| 143 | (if (and (featurep 'mule) | 143 | (if (and (featurep 'mule) |
| 144 | (if (boundp 'default-enable-multibyte-characters) | ||
| 145 | default-enable-multibyte-characters) | ||
| 144 | mail-parse-charset) | 146 | mail-parse-charset) |
| 145 | (mm-encode-coding-region (point-min) (point-max) | 147 | (mm-encode-coding-region (point-min) (point-max) |
| 146 | mail-parse-charset))) | 148 | mail-parse-charset))) |
| 147 | ((mm-coding-system-p method) | 149 | ((mm-coding-system-p method) |
| 148 | (if (featurep 'mule) | 150 | (if (and (featurep 'mule) |
| 151 | (if (boundp 'default-enable-multibyte-characters) | ||
| 152 | default-enable-multibyte-characters)) | ||
| 149 | (mm-encode-coding-region (point-min) (point-max) method))) | 153 | (mm-encode-coding-region (point-min) (point-max) method))) |
| 150 | ;; Hm. | 154 | ;; Hm. |
| 151 | (t))) | 155 | (t))) |