diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-30 11:43:21 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-30 11:43:21 +0000 |
| commit | 37ec692a024d538a1c913c310b71e8e8f32ee1ad (patch) | |
| tree | c888d42029fa425b51f8a4554ca88efd14ce9a0e /lisp/mail/rmail.el | |
| parent | 630dd2508734a8601c8458dc1dbf2f22626841c8 (diff) | |
| download | emacs-37ec692a024d538a1c913c310b71e8e8f32ee1ad.tar.gz | |
(rmail-convert-to-babyl-format): Fix off-by-one
error in arguments to base64-decode-region. Remove ^M characters
after decoding base64.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 512712ec4bc..6185fd12286 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1836,9 +1836,12 @@ It returns t if it got any new messages." (when (condition-case nil (progn - (base64-decode-region header-end (point)) + (base64-decode-region (1+ header-end) (point)) t) (error nil)) + (goto-char header-end) + (while (search-forward "\r\n" (point-max) t) + (replace-match "\n")) ;; Change "base64" to "8bit", to reflect the ;; decoding we just did. (goto-char base64-header-field-end) |