diff options
| author | Richard M. Stallman | 2004-03-04 17:03:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-03-04 17:03:51 +0000 |
| commit | c25d9847fd8d3f7e631d4dafc64c70e8db009eb4 (patch) | |
| tree | 7a3223d49ff0f0d9cb3e5238a94d1a55bb3630e6 | |
| parent | 926f20041fc4d5cdaa94737117a236be2744cd02 (diff) | |
| download | emacs-c25d9847fd8d3f7e631d4dafc64c70e8db009eb4.tar.gz emacs-c25d9847fd8d3f7e631d4dafc64c70e8db009eb4.zip | |
(rmail-convert-to-babyl-format):
Specify t for UNIBYTE when calling mail-unquote-printable-region.
| -rw-r--r-- | lisp/mail/rmail.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4090749d83e..c890ae6e6a0 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1733,7 +1733,7 @@ It returns t if it got any new messages." | |||
| 1733 | (if quoted-printable-header-field-end | 1733 | (if quoted-printable-header-field-end |
| 1734 | (save-excursion | 1734 | (save-excursion |
| 1735 | (unless | 1735 | (unless |
| 1736 | (mail-unquote-printable-region header-end (point) nil t) | 1736 | (mail-unquote-printable-region header-end (point) nil t t) |
| 1737 | (message "Malformed MIME quoted-printable message")) | 1737 | (message "Malformed MIME quoted-printable message")) |
| 1738 | ;; Change "quoted-printable" to "8bit", | 1738 | ;; Change "quoted-printable" to "8bit", |
| 1739 | ;; to reflect the decoding we just did. | 1739 | ;; to reflect the decoding we just did. |
| @@ -1880,7 +1880,7 @@ It returns t if it got any new messages." | |||
| 1880 | (if quoted-printable-header-field-end | 1880 | (if quoted-printable-header-field-end |
| 1881 | (save-excursion | 1881 | (save-excursion |
| 1882 | (unless | 1882 | (unless |
| 1883 | (mail-unquote-printable-region header-end (point) nil t) | 1883 | (mail-unquote-printable-region header-end (point) nil t t) |
| 1884 | 1884 | ||
| 1885 | (message "Malformed MIME quoted-printable message")) | 1885 | (message "Malformed MIME quoted-printable message")) |
| 1886 | ;; Change "quoted-printable" to "8bit", | 1886 | ;; Change "quoted-printable" to "8bit", |
| @@ -1917,7 +1917,10 @@ It returns t if it got any new messages." | |||
| 1917 | (goto-char (point-min)) | 1917 | (goto-char (point-min)) |
| 1918 | (while (search-forward "\n\^_" nil t); single char | 1918 | (while (search-forward "\n\^_" nil t); single char |
| 1919 | (replace-match "\n^_")))); 2 chars: "^" and "_" | 1919 | (replace-match "\n^_")))); 2 chars: "^" and "_" |
| 1920 | (or (bolp) (newline)) ; in case we lost the final newline. | 1920 | ;; This is for malformed messages that don't end in newline. |
| 1921 | ;; There shouldn't be any, but some users say occasionally | ||
| 1922 | ;; there are some. | ||
| 1923 | (or (bolp) (newline)) | ||
| 1921 | (insert ?\^_) | 1924 | (insert ?\^_) |
| 1922 | (setq last-coding-system-used nil) | 1925 | (setq last-coding-system-used nil) |
| 1923 | (or rmail-enable-mime | 1926 | (or rmail-enable-mime |