(article-unsplit-urls): Don't anchor urls to the

start of the lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f5d755..1ad0e5d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-unsplit-urls): Don't anchor urls to the
+       start of the lines.
+
 2004-11-14  Magnus Henoch  <mange@freemail.hu>
 
        * hashcash.el (hashcash-default-payment): Change default to 20

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 77bf5cd..7773bce 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2447,7 +2447,7 @@ If READ-CHARSET, ask for a coding system."
     (let ((inhibit-read-only t))
       (goto-char (point-min))
       (while (re-search-forward
-             "^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
+             "\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
        (replace-match "\\1\\3" t)))
     (when (interactive-p)
       (gnus-treat-article nil))))