Commit c893016b authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* mail/rmailmm.el (rmail-mime-handle): Don't set the buffer to unibyte

just because we see "encoding: 8bit".
* mail/rmail.el (rmail-show-message-1): Decode the body's QP into bytes.
parent 9425f8e1
2010-01-22 Stefan Monnier <monnier@iro.umontreal.ca>
* mail/rmailmm.el (rmail-mime-handle): Don't set the buffer to unibyte
just because we see "encoding: 8bit".
* mail/rmail.el (rmail-show-message-1): Decode the body's QP into bytes.
2010-01-22 Chong Yidong <cyd@stupidchicken.com> 2010-01-22 Chong Yidong <cyd@stupidchicken.com>
* isearch.el (isearch-allow-scroll): Doc fix (Bug#5446). * isearch.el (isearch-allow-scroll): Doc fix (Bug#5446).
......
...@@ -133,6 +133,8 @@ If NOERROR is non-nil, return t if successful. ...@@ -133,6 +133,8 @@ If NOERROR is non-nil, return t if successful.
If UNIBYTE is non-nil, insert converted characters as unibyte. If UNIBYTE is non-nil, insert converted characters as unibyte.
That is useful if you are going to character code decoding afterward, That is useful if you are going to character code decoding afterward,
as Rmail does." as Rmail does."
;; FIXME: `unibyte' should always be non-nil, and the iso-latin-1
;; specific handling should be removed (or moved elsewhere and generalized).
(interactive "r\nP") (interactive "r\nP")
(let (failed) (let (failed)
(save-match-data (save-match-data
......
...@@ -2727,7 +2727,8 @@ The current mail message becomes the message displayed." ...@@ -2727,7 +2727,8 @@ The current mail message becomes the message displayed."
(insert-buffer-substring mbox-buf body-start end) (insert-buffer-substring mbox-buf body-start end)
(cond (cond
((string= character-coding "quoted-printable") ((string= character-coding "quoted-printable")
(mail-unquote-printable-region (point-min) (point-max))) (mail-unquote-printable-region (point-min) (point-max)
nil nil 'unibyte))
((and (string= character-coding "base64") is-text-message) ((and (string= character-coding "base64") is-text-message)
(base64-decode-region (point-min) (point-max))) (base64-decode-region (point-min) (point-max)))
((eq character-coding 'uuencode) ((eq character-coding 'uuencode)
......
...@@ -361,7 +361,10 @@ The parsed header value: ...@@ -361,7 +361,10 @@ The parsed header value:
(setq content-transfer-encoding nil)) (setq content-transfer-encoding nil))
((string= content-transfer-encoding "8bit") ((string= content-transfer-encoding "8bit")
;; FIXME: Is this the correct way? ;; FIXME: Is this the correct way?
(set-buffer-multibyte nil))) ;; No, of course not, it just means there's no decoding to do.
;; (set-buffer-multibyte nil)
(setq content-transfer-encoding nil)
))
;; Inline stuff requires work. Attachments are handled by the bulk ;; Inline stuff requires work. Attachments are handled by the bulk
;; handler. ;; handler.
(if (string= "inline" (car content-disposition)) (if (string= "inline" (car content-disposition))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment