procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mm-decode.el (mm-shr): Decode contents by charset.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-05 02:08:37 +00:00
parent 97ab3539e0
commit cfadea45db
2 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2010-10-05 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el (mm-shr): Decode contents by charset.
2010-10-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-tag-blockquote): Ensure paragraph after quote, too.

15
lisp/gnus/mm-decode.el
View file

@ -1679,14 +1679,27 @@ If RECURSIVE, search recursively."
(and (eq (mm-body-7-or-8) '7bit)
(not (mm-long-lines-p 76))))))
(declare-function libxml-parse-html-region "xml.c"
(start end &optional base-url))
(declare-function shr-insert-document "shr" (dom))
(defun mm-shr (handle)
(let ((article-buffer (current-buffer)))
(let ((article-buffer (current-buffer))
charset)
(unless handle
(setq handle (mm-dissect-buffer t)))
(setq charset (mail-content-type-get (mm-handle-type handle) 'charset))
(save-restriction
(narrow-to-region (point) (point))
(shr-insert-document
(mm-with-part handle
(when (and charset
(setq charset (mm-charset-to-coding-system charset))
(not (eq charset 'ascii)))
(insert (prog1
(mm-decode-coding-string (buffer-string) charset)
(erase-buffer)
(mm-enable-multibyte))))
(libxml-parse-html-region (point-min) (point-max)))))))
(provide 'mm-decode)