[Top][All Lists]
[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
- Article unsplit urls,
Luigi Panzeri <=