changeset 110026:478f066057b8

gnus-summary-idna-message, nnrss-normalize-date, nnrss-discover-feed: Hyperlink urls in docstrings with URL `...' by Kevin Ryde <user42@zip.com.au>. 2009-07-16 Kevin Ryde <user42@zip.com.au> (tiny change) * gnus-sum.el (gnus-summary-idna-message): * nnrss.el (nnrss-normalize-date, nnrss-discover-feed): Hyperlink urls in docstrings with URL `...'.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 30 Aug 2010 06:21:33 +0000
parents 5f352fd4346a
children 9604de1a8d28
files lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el lisp/gnus/nnrss.el
diffstat 3 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Aug 30 06:17:45 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Aug 30 06:21:33 2010 +0000
@@ -1,3 +1,9 @@
+2009-07-16  Kevin Ryde  <user42@zip.com.au>  (tiny change)
+
+	* gnus-sum.el (gnus-summary-idna-message):
+	* nnrss.el (nnrss-normalize-date, nnrss-discover-feed):
+	Hyperlink urls in docstrings with URL `...'.
+
 2010-08-29  Adam Sjøgren  <asjo@koldfront.dk>
 
 	* gnus-html.el (gnus-html-put-image): Use XEmacs-compatible image
--- a/lisp/gnus/gnus-sum.el	Mon Aug 30 06:17:45 2010 +0000
+++ b/lisp/gnus/gnus-sum.el	Mon Aug 30 06:21:33 2010 +0000
@@ -9524,7 +9524,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)
--- a/lisp/gnus/nnrss.el	Mon Aug 30 06:17:45 2010 +0000
+++ b/lisp/gnus/nnrss.el	Mon Aug 30 06:21:33 2010 +0000
@@ -498,7 +498,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
-<URL:http://www.w3.org/TR/NOTE-datetime>, 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
@@ -1012,7 +1012,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)))