unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Article unsplit urls
@ 2008-01-25 17:37 Luigi Panzeri
  2008-01-26 10:37 ` Reiner Steib
  0 siblings, 1 reply; 2+ messages in thread
From: Luigi Panzeri @ 2008-01-25 17:37 UTC (permalink / raw)
  To: emacs-devel

[-- Attachment #1: Type: text/plain, Size: 343 bytes --]

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/


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-art.patch --]
[-- Type: text/x-patch, Size: 665 bytes --]

--- 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

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2008-01-26 10:37 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-01-25 17:37 Article unsplit urls Luigi Panzeri
2008-01-26 10:37 ` Reiner Steib

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).