diff lisp/gnus/shr.el @ 110754:fa69a70cd62e

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 0defef1647a5
children 5c603f558199
line wrap: on
line diff
--- 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 " "))))))