710 |
;; First decode the head. |
;; First decode the head. |
711 |
(save-restriction |
(save-restriction |
712 |
(message-narrow-to-head) |
(message-narrow-to-head) |
713 |
(mail-decode-encoded-word-region (point-min) (point-max))) |
(let ((rfc2047-quote-decoded-words-containing-tspecials t)) |
714 |
|
(mail-decode-encoded-word-region (point-min) (point-max)))) |
715 |
(unless handles |
(unless handles |
716 |
(setq handles (mm-dissect-buffer t))) |
(setq handles (mm-dissect-buffer t))) |
717 |
(goto-char (point-min)) |
(goto-char (point-min)) |