4862 |
(forward-line -1) |
(forward-line -1) |
4863 |
(setq beg (point))) |
(setq beg (point))) |
4864 |
(gnus-article-insert-newline) |
(gnus-article-insert-newline) |
4865 |
(mm-insert-inline handle (mm-get-part handle)) |
(mm-insert-inline handle |
4866 |
|
(let ((charset |
4867 |
|
(mail-content-type-get |
4868 |
|
(mm-handle-type handle) 'charset))) |
4869 |
|
(if (eq charset 'gnus-decoded) |
4870 |
|
(mm-get-part handle) |
4871 |
|
(mm-decode-string (mm-get-part handle) |
4872 |
|
charset)))) |
4873 |
(goto-char (point-max)))) |
(goto-char (point-max)))) |
4874 |
;; Do highlighting. |
;; Do highlighting. |
4875 |
(save-excursion |
(save-excursion |