[gnus git] branch master updated: m0-7-187-g30551c2 =1= * nnrss.el (nnrss-discover-feed): Indent.

       via  30551c2da02b151317bdbe082722fc3b42a79a86 (commit)
      from  a8b5192d574a012e14a92748f904a5cffce0ece6 (commit)


- Log -----------------------------------------------------------------
commit 30551c2da02b151317bdbe082722fc3b42a79a86
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Aug 1 13:08:58 2013 +0200

    * nnrss.el (nnrss-discover-feed): Indent.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8f9f7e..5ef2034 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-01  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* nnrss.el (nnrss-discover-feed): Indent.
+
 2013-08-01  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff.
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index b1e5c4c..80bb7c4 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -933,30 +933,30 @@ whether they are `offsite' or `onsite'."
      rss-offsite-in rdf-offsite-in xml-offsite-in)))
 
 (defun nnrss-discover-feed (url)
-  "Given a page, find an RSS feed using Mark Pilgrim's
-`ultra-liberal rss locator'."
-
+  "Given a page, find an RSS feed.
+Use Mark Pilgrim's `ultra-liberal rss locator'."
   (let ((parsed-page (nnrss-fetch url)))
-
-;;    1. if this url is the rss, use it.
+    ;;    1. if this url is the rss, use it.
     (if (nnrss-rss-p parsed-page)
 	(let ((rss-ns (nnrss-get-namespace-prefix parsed-page "http://purl.org/rss/1.0/")))
 	  (nnrss-rss-title-description rss-ns parsed-page url))
 
-;;    2. look for the <link rel="alternate"
-;;    type="application/rss+xml" and use that if it is there.
+      ;;    2. look for the <link rel="alternate"
+      ;;    type="application/rss+xml" and use that if it is there.
       (let ((links (nnrss-get-rsslinks parsed-page)))
 	(if links
 	    (let* ((xml (nnrss-fetch
 			 (cdr (assoc 'href (cadar links)))))
-		   (rss-ns (nnrss-get-namespace-prefix xml "http://purl.org/rss/1.0/")))
-	      (nnrss-rss-title-description rss-ns xml (cdr (assoc 'href (cadar links)))))
-
-;;    3. look for links on the site in the following order:
-;;       - onsite links ending in .rss, .rdf, or .xml
-;;       - onsite links containing any of the above
-;;       - offsite links ending in .rss, .rdf, or .xml
-;;       - offsite links containing any of the above
+		   (rss-ns (nnrss-get-namespace-prefix
+			    xml "http://purl.org/rss/1.0/")))
+	      (nnrss-rss-title-description
+	       rss-ns xml (cdr (assoc 'href (cadar links)))))
+
+	  ;;    3. look for links on the site in the following order:
+	  ;;       - onsite links ending in .rss, .rdf, or .xml
+	  ;;       - onsite links containing any of the above
+	  ;;       - offsite links ending in .rss, .rdf, or .xml
+	  ;;       - offsite links containing any of the above
 	  (let* ((base-uri (progn (string-match ".*://[^/]+/?" url)
 				  (match-string 0 url)))
 		 (hrefs (nnrss-order-hrefs
@@ -969,9 +969,9 @@ whether they are `offsite' or `onsite'."
 		      (setq rss-link (nnrss-rss-title-description
 				      rss-ns href-data (car hrefs))))
 		  (setq hrefs (cdr hrefs)))))
-	    (if rss-link rss-link
-
-;;    4. check syndic8
+	    (if rss-link
+		rss-link
+	      ;;    4. check syndic8
 	      (nnrss-find-rss-via-syndic8 url))))))))
 
 (defun nnrss-find-rss-via-syndic8 (url)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/nnrss.el  |   36 ++++++++++++++++++------------------
 2 files changed, 22 insertions(+), 18 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project