From 5071d149a5a61c42cb888e628fc1a9aa2029762b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 14 Nov 2004 19:44:26 +0000 Subject: [PATCH] (article-unsplit-urls): Don't anchor urls to the start of the lines. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0f5d75552..1ad0e5d15 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-14 Lars Magne Ingebrigtsen + + * gnus-art.el (article-unsplit-urls): Don't anchor urls to the + start of the lines. + 2004-11-14 Magnus Henoch * hashcash.el (hashcash-default-payment): Change default to 20 diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 77bf5cd4f..7773bce33 100644 --- 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)))) -- 2.34.1