diff options
| author | Lars Ingebrigtsen | 2019-06-14 13:30:13 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-14 14:05:30 +0200 |
| commit | a983bf0c4997c59f813e90be17537548909a1052 (patch) | |
| tree | 0bb139350c9a1ba79a88e7d68e5bd62eabba48d1 | |
| parent | 7486b8f4eb81d80be2e7bc772fc34c6174a4d44d (diff) | |
| download | emacs-a983bf0c4997c59f813e90be17537548909a1052.tar.gz emacs-a983bf0c4997c59f813e90be17537548909a1052.zip | |
Fix compilation warning in rmailmm
* lisp/mail/rmailmm.el (rmail-mime-insert-bulk): Remove apparently
superfluous call to string-as-unibyte -- the buffer should be
unibyte already at this point.
| -rw-r--r-- | lisp/mail/rmailmm.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index af528135ccb..95977e826d7 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el | |||
| @@ -836,7 +836,8 @@ directly." | |||
| 836 | size (car bulk-data)) | 836 | size (car bulk-data)) |
| 837 | (if (stringp (aref body 0)) | 837 | (if (stringp (aref body 0)) |
| 838 | (setq data (aref body 0)) | 838 | (setq data (aref body 0)) |
| 839 | (setq data (string-as-unibyte (buffer-string))) | 839 | (setq data (buffer-string)) |
| 840 | (cl-assert (not (multibyte-string-p data))) | ||
| 840 | (aset body 0 data) | 841 | (aset body 0 data) |
| 841 | (rmail-mime-set-bulk-data entity) | 842 | (rmail-mime-set-bulk-data entity) |
| 842 | (delete-region (point-min) (point-max))) | 843 | (delete-region (point-min) (point-max))) |