Mercurial > emacs

changeset 110754:fa69a70cd62e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shr.el (shr-insert): Use string anchors instead of line anchors.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 04 Oct 2010 07:42:58 +0000
parents d9ff3c5329a6
children 5c603f558199
files lisp/gnus/ChangeLog lisp/gnus/shr.el
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Sun Oct 03 18:19:56 2010 -0700
+++ b/lisp/gnus/ChangeLog	Mon Oct 04 07:42:58 2010 +0000
@@ -1,3 +1,7 @@
+2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* shr.el (shr-insert): Use string anchors instead of line anchors.
+
 2010-10-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el: Add headings.
--- a/lisp/gnus/shr.el	Sun Oct 03 18:19:56 2010 -0700
+++ b/lisp/gnus/shr.el	Mon Oct 04 07:42:58 2010 +0000
@@ -237,7 +237,7 @@
    (t
     (let ((first t)
 	  column)
-      (when (and (string-match "^[ \t\n]" text)
+      (when (and (string-match "\\`[ \t\n]" text)
 		 (not (bolp)))
 	(insert " "))
       (dolist (elem (split-string text))
@@ -258,7 +258,7 @@
 	(unless shr-start
 	  (setq shr-start (point)))
 	(insert elem))
-      (when (and (string-match "[ \t\n]$" text)
+      (when (and (string-match "[ \t\n]\\'" text)
 		 (not (bolp)))
 	(insert " "))))))