projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(shr-insert): Use string anchors instead of line anchors.
[gnus]
/
lisp
/
shr.el
diff --git
a/lisp/shr.el
b/lisp/shr.el
index
faeb16a
..
118afe2
100644
(file)
--- a/
lisp/shr.el
+++ b/
lisp/shr.el
@@
-237,7
+237,7
@@
fit these criteria."
(t
(let ((first t)
column)
(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))
(not (bolp)))
(insert " "))
(dolist (elem (split-string text))
@@
-258,7
+258,7
@@
fit these criteria."
(unless shr-start
(setq shr-start (point)))
(insert elem))
(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 " "))))))
(not (bolp)))
(insert " "))))))