From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/688 Path: news.gmane.org!not-for-mail From: those who know me have no need of my name Newsgroups: gmane.emacs.gnus.user Subject: Re: multiline urls Date: 27 Jun 2002 15:42:20 GMT Organization: earthfriends Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1138667634 7986 80.91.229.2 (31 Jan 2006 00:33:54 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 00:33:54 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:27:58 2006 Original-Path: quimby.gnus.org!lackawana.kippona.com!stargate.gts.cz!news-out.visi.com!hermes.visi.com!216.168.1.165.MISMATCH!sn-xit-05!sn-xit-04!sn-post-02!sn-post-01!supernews.com!news.supernews.com!not-for-mail Original-Newsgroups: gnu.emacs.gnus User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.4 (Informed Management (RC1), i686-redhat-linux) Original-X-Complaints-To: newsabuse@supernews.com Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:828 Original-Lines: 33 X-Gnus-Article-Number: 828 Tue Jan 17 17:27:58 2006 Xref: news.gmane.org gmane.emacs.gnus.user:688 Archived-At: in gnu.emacs.gnus i read: >("<\\(URL:\\)? *\\([^<>]*\\)>" 2 t gnus-button-embedded-url 2) and i think you'll want whitespace instead of just space, and in various places, and at least one real(ish) character, e.g., ("<\\s-*\\(URL:\\)?\\s-*\\([^<>]+\\)\\s-*>" 2 t gnus-button-embedded-url 2) however, this is only for buttonizing the text (at least in oort). once you are using this there is probably no need for `W u', but if you feel the need ... the alist doesn't have anything to do with how `W u' works, which is handled by a function with a hard-coded format (at least in oort). here's a quick hack, though it's not well tested and (still) doesn't handle all the url types: (defun article-unsplit-urls () "Remove the newlines that some other mailers insert into URLs." (interactive) (save-excursion (let ((buffer-read-only nil)) (goto-char (point-min)) (while (re-search-forward "\\(\\(