diff options
| author | Lars Ingebrigtsen | 2019-05-19 20:26:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-05-19 20:27:20 +0200 |
| commit | fac11d899be24fa031c360fd20c038b9432853ec (patch) | |
| tree | d7e9fa75a2ac4ba7437c942a231dbafeaf586ec3 | |
| parent | 2b313d17399d3118c466775a7d768492b6785e75 (diff) | |
| download | emacs-fac11d899be24fa031c360fd20c038b9432853ec.tar.gz emacs-fac11d899be24fa031c360fd20c038b9432853ec.zip | |
(mml-generate-mime-1): Remove XEmacs compat code
* lisp/gnus/mml.el (mml-generate-mime-1): Remove XEmacs compat code.
| -rw-r--r-- | lisp/gnus/mml.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index b0b4fd0a54d..1df4e28f13d 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el | |||
| @@ -702,9 +702,7 @@ be \"related\" or \"alternate\"." | |||
| 702 | filename))))) | 702 | filename))))) |
| 703 | (t | 703 | (t |
| 704 | (let ((contents (cdr (assq 'contents cont)))) | 704 | (let ((contents (cdr (assq 'contents cont)))) |
| 705 | (if (if (featurep 'xemacs) | 705 | (if (multibyte-string-p contents) |
| 706 | (string-match "[^\000-\377]" contents) | ||
| 707 | (multibyte-string-p contents)) | ||
| 708 | (progn | 706 | (progn |
| 709 | (set-buffer-multibyte t) | 707 | (set-buffer-multibyte t) |
| 710 | (insert contents) | 708 | (insert contents) |