emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Article unsplit urls


From: Luigi Panzeri
Subject: Article unsplit urls
Date: Fri, 25 Jan 2008 18:37:05 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (darwin)

I found a little bug. If an url was split by word wrapping the article
after the ':' (For example consider  http:
//www.google.com the article-unsplit-urls)
article-unsplit-urls does not work. The simple patch is attached
-- 
Luigi Panzeri aka Matley

Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film
Quotes on Lisp: http://lispers.org/

--- gnus-art.el 2008-01-25 16:46:15.000000000 +0100
+++ src/emacs/lisp/gnus/gnus-art.el     2008-01-25 16:45:01.000000000 +0100
@@ -2658,11 +2658,12 @@
     (let ((inhibit-read-only t))
       (goto-char (point-min))
       (while (re-search-forward
-             "\\(\\(https?\\|ftp\\):\\) *\n?\\(//\\S-+\\) *\n?\\(\\S-+\\)" nil 
t)
-       (replace-match "\\1\\3\\4" t)))
+             "\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
+       (replace-match "\\1\\3" t)))
     (when (interactive-p)
       (gnus-treat-article nil))))
 
+
 (defun article-wash-html (&optional read-charset)
   "Format an HTML article.
 If READ-CHARSET, ask for a coding system.  If it is a number, the

reply via email to

[Prev in Thread] Current Thread [Next in Thread]