diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-07 15:12:23 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-07 15:12:23 +0100 |
| commit | 23a887e426f81033b0de2f4c93a8525cb31c28da (patch) | |
| tree | 0452fad530ffb6289aa00654fe085b5ea6a71b4f /test/lisp | |
| parent | 7e80aecc248a78eab923005b266c939c18936c1b (diff) | |
| download | emacs-23a887e426f81033b0de2f4c93a8525cb31c28da.tar.gz | |
Add work-around for nnmaildir encoding problem
* lisp/gnus/mm-decode.el (mm-with-part): Fix problem with
multipart 8bit encoded posts from nnmaildir (bug#44307).
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/gnus/mm-decode-tests.el | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/test/lisp/gnus/mm-decode-tests.el b/test/lisp/gnus/mm-decode-tests.el index 976e7269b14..74591f919da 100644 --- a/test/lisp/gnus/mm-decode-tests.el +++ b/test/lisp/gnus/mm-decode-tests.el @@ -54,7 +54,7 @@ 'charset))) "<!doctype html><html><head><meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\"></head><body>ääää</body></html>\n"))))))) -(ert-deftest test-mm-with-part () +(ert-deftest test-mm-with-part-unibyte () (with-temp-buffer (set-buffer-multibyte nil) (insert-file-contents-literally (ert-resource-file "8bit-multipart.bin")) @@ -70,4 +70,20 @@ 'charset))) "ääää\n")))))) +(ert-deftest test-mm-with-part-multibyte () + (with-temp-buffer + (set-buffer-multibyte t) + (nnheader-insert-file-contents (ert-resource-file "8bit-multipart.bin")) + (while (search-forward "\r\n" nil t) + (replace-match "\n")) + (let ((handle (mm-dissect-buffer))) + (pop handle) + (let ((part (pop handle))) + (should (equal (decode-coding-string + (mm-with-part part + (buffer-string)) + (intern (mail-content-type-get (mm-handle-type part) + 'charset))) + "ääää\n")))))) + ;;; mm-decode-tests.el ends here |