[gnus git] branch master updated: m0-5-187-gf682b8e =1= gnus-art.el (gnus-article-browse-html-parts): Use <div align="left"> instead of <pre> to align message header

       via  f682b8e31d8a1d53c5b65772af1dd280d250f5ec (commit)
      from  975379279f8e14a7efabb974e0dea4686a6f25de (commit)


- Log -----------------------------------------------------------------
commit f682b8e31d8a1d53c5b65772af1dd280d250f5ec
Author: Katsumi Yamaoka <[email protected]>
Date:   Wed Dec 12 22:22:20 2012 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9ad5c2..4a70bdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-12  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (gnus-article-browse-html-parts): Use <div align="left">
+	instead of <pre> to align message header.
+
 2012-12-06  Sam Steingold  <[email protected]>
 
 	* gnus-start.el (gnus-before-resume-hook): Add.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e25308d..9953d33 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2885,14 +2885,16 @@ message header will be added to the bodies of the \"text/html\" parts."
 		   (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-art.el |   10 ++++++----
 2 files changed, 11 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project