Mercurial > emacs
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 " "))))))