From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68731 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.gnus.general Subject: docstring url hyperlinks (patch) Date: Thu, 16 Jul 2009 11:08:28 +1000 Message-ID: <87eisha0z7.fsf@blah.blah> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1247708528 18560 80.91.229.12 (16 Jul 2009 01:42:08 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 16 Jul 2009 01:42:08 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M17156@lists.math.uh.edu Thu Jul 16 03:42:01 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1MRFyy-00078T-3K for ding-account@gmane.org; Thu, 16 Jul 2009 03:42:00 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1MRFy3-00050K-Tm; Wed, 15 Jul 2009 20:41:03 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1MRFSl-0004r6-24 for ding@lists.math.uh.edu; Wed, 15 Jul 2009 20:08:43 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1MRFSj-0000Zw-Dr for ding@lists.math.uh.edu; Wed, 15 Jul 2009 20:08:42 -0500 Original-Received: from mailout2-10.pacific.net.au ([125.255.80.137] helo=mailout2.pacific.net.au) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1MRFTG-0003ND-00 for ; Thu, 16 Jul 2009 03:09:14 +0200 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.2.163]) by mailout2.pacific.net.au (Postfix) with ESMTP id 6595D180E30 for ; Thu, 16 Jul 2009 11:08:35 +1000 (EST) Original-Received: from blah.blah (ppp29B9.dyn.pacific.net.au [61.8.41.185]) by mailproxy2.pacific.net.au (Postfix) with ESMTP id A3D5F2741D for ; Thu, 16 Jul 2009 11:08:34 +1000 (EST) Original-Received: from gg by blah.blah with local (Exim 4.69) (envelope-from ) id 1MRFSW-0002iP-Ug for ding@gnus.org; Thu, 16 Jul 2009 11:08:29 +1000 User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.3 (gnu/linux) X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68731 Archived-At: --=-=-= I did a bit of a grep for urls in docstrings which could be hyperlinked. Diff below from the lisp dir. 2009-07-16 Kevin Ryde * gnus-sum.el (gnus-summary-idna-message): * nnrss.el (nnrss-normalize-date, nnrss-discover-feed): Hyperlink urls in docstrings with URL `...'. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=docstring-urls.diff Index: gnus-sum.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v retrieving revision 7.238 diff -u -r7.238 gnus-sum.el --- gnus-sum.el 5 Feb 2009 09:04:09 -0000 7.238 +++ gnus-sum.el 16 Jul 2009 01:04:53 -0000 @@ -9507,7 +9507,7 @@ remain unencoded after running this function, it is likely an invalid IDNA string (`xn--bar' is invalid). -You must have GNU Libidn (`http://www.gnu.org/software/libidn/') +You must have GNU Libidn (URL `http://www.gnu.org/software/libidn/') installed for this command to work." (interactive "P") (if (not (and (condition-case nil (require 'idna) Index: nnrss.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/nnrss.el,v retrieving revision 7.61 diff -u -r7.61 nnrss.el --- nnrss.el 22 Jan 2009 07:02:16 -0000 7.61 +++ nnrss.el 16 Jul 2009 01:04:56 -0000 @@ -496,7 +496,7 @@ (defun nnrss-normalize-date (date) "Return a date string of DATE in the RFC822 style. This function handles the ISO 8601 date format described in -, and also the RFC822 style +URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC822 style which RSS 2.0 allows." (let (case-fold-search vector year month day time zone cts given) (cond ((null date)) ; do nothing for this case @@ -1010,7 +1010,7 @@ (defun nnrss-discover-feed (url) "Given a page, find an RSS feed using Mark Pilgrim's -`ultra-liberal rss locator' (http://diveintomark.org/2002/08/15.html)." +`ultra-liberal rss locator' (URL `http://diveintomark.org/2002/08/15.html')." (let ((parsed-page (nnrss-fetch url))) --=-=-=--