[Emacs-diffs] /srv/bzr/emacs/trunk r111205: gnus-art.el (gnus-article-browse-html-parts): Use <div align="left"> instead of <pre> to align message header

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111205
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2012-12-12 22:22:31 +0000
message:
  gnus-art.el (gnus-article-browse-html-parts): Use <div align="left"> instead 
of <pre> to align message header
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-12-12 14:46:58 +0000
+++ b/lisp/gnus/ChangeLog       2012-12-12 22:22:31 +0000
@@ -1,3 +1,8 @@
+2012-12-12  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-art.el (gnus-article-browse-html-parts): Use <div align="left">
+       instead of <pre> to align message header.
+
 2012-12-12  Sam Steingold  <address@hidden>
 
        * gnus.el (gnus-other-frame-resume-function): Add user option.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2012-12-06 04:28:00 +0000
+++ b/lisp/gnus/gnus-art.el     2012-12-12 22:22:31 +0000
@@ -2884,14 +2884,16 @@
                   (insert header "\n")
                   (setq title (message-fetch-field "subject"))
                   (goto-char (point-min))
-                  (while (re-search-forward "\\(<\\)\\|\\(>\\)\\|&" nil t)
+                  (while (re-search-forward "\\(<\\)\\|\\(>\\)\\|\\(&\\)\\|\n"
+                                            nil t)
                     (replace-match (cond ((match-beginning 1) "&lt;")
                                          ((match-beginning 2) "&gt;")
-                                         (t "&amp;"))))
+                                         ((match-beginning 3) "&amp;")
+                                         (t "<br>\n"))))
                   (goto-char (point-min))
-                  (insert "<pre>\n")
+                  (insert "<div align=\"left\">\n")
                   (goto-char (point-max))
-                  (insert "</pre>\n<hr>\n")
+                  (insert "</div>\n<hr>\n")
                   ;; We have to examine charset one by one since
                   ;; charset specified in parts might be different.
                   (if (eq charset 'gnus-decoded)