* shr.el (shr-insert): Fix up the white space only regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f798f08..47ac036 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-insert): Fix up the white space only regexp.
+
        * nnimap.el (nnimap-transform-split-mail): Not all articles have
        bodies.  Protect against this.  Reported by Michael Welsh Duggan.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 3311fa3..4031386 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -194,7 +194,7 @@ redirects somewhere else."
 
 (defun shr-insert (text)
   (when (and (eq shr-state 'image)
-             (not (string-match "^\\s-*$" text)))
+            (not (string-match "\\`[ \t\n]+\\'" text)))
     (insert "\n")
     (setq shr-state nil))
   (cond