mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-art.el (gnus-article-browse-html-parts): Use <div align="left"> instead of <pre> to align message header

Browse source
This commit is contained in:
Katsumi Yamaoka 2012-12-12 22:22:31 +00:00
parent 2dd61a9b33
commit 5ea1a8d1ee
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2012-12-12 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-browse-html-parts): Use <div align="left">
instead of <pre> to align message header.
2012-12-12 Sam Steingold <sds@gnu.org> 2012-12-12 Sam Steingold <sds@gnu.org>
* gnus.el (gnus-other-frame-resume-function): Add user option. * gnus.el (gnus-other-frame-resume-function): Add user option.

10
lisp/gnus/gnus-art.el
View file

@ -2884,14 +2884,16 @@ message header will be added to the bodies of the \"text/html\" parts."
(insert header "\n") (insert header "\n")
(setq title (message-fetch-field "subject")) (setq title (message-fetch-field "subject"))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "\\(<\\)\\|\\(>\\)\\|&" nil t) (while (re-search-forward "\\(<\\)\\|\\(>\\)\\|\\(&\\)\\|\n"
nil t)
(replace-match (cond ((match-beginning 1) "&lt;") (replace-match (cond ((match-beginning 1) "&lt;")
((match-beginning 2) "&gt;") ((match-beginning 2) "&gt;")
(t "&amp;")))) ((match-beginning 3) "&amp;")
(t "<br>\n"))))
(goto-char (point-min)) (goto-char (point-min))
(insert "<pre>\n") (insert "<div align=\"left\">\n")
(goto-char (point-max)) (goto-char (point-max))
(insert "</pre>\n<hr>\n") (insert "</div>\n<hr>\n")
;; We have to examine charset one by one since ;; We have to examine charset one by one since
;; charset specified in parts might be different. ;; charset specified in parts might be different.
(if (eq charset 'gnus-decoded) (if (eq charset 'gnus-decoded)