master dee2f91: Remove support for Syndic8.com, defunct since 2013

[Stefan Kangas]

branch: master
commit dee2f914f31bb6246cf39d8a79a76ce609babda2
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Remove support for Syndic8.com, defunct since 2013
    
    * lisp/gnus/nnrss.el (nnrss-discover-feed)
    (nnrss-find-rss-via-syndic8): Remove support for Syndic8.com, as
    the site was shut down in 2013.
---
 lisp/gnus/nnrss.el | 60 ++++++------------------------------------------------
 1 file changed, 6 insertions(+), 54 deletions(-)

diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 36b7af0..a40fa88 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -930,60 +930,7 @@ Use Mark Pilgrim's `ultra-liberal rss locator'."
                      (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
-             (nnrss-find-rss-via-syndic8 url))))))))
-
-(declare-function xml-rpc-method-call "ext:xml-rpc"
-                 (server-url method &rest params))
-
-(defun nnrss-find-rss-via-syndic8 (url)
-  "Query syndic8 for the rss feeds it has for URL."
-  (if (not (locate-library "xml-rpc"))
-      (progn
-       (message "XML-RPC is not available... not checking Syndic8.")
-       nil)
-    (require 'xml-rpc)
-    (let ((feedid (xml-rpc-method-call
-                  "http://www.syndic8.com/xmlrpc.php";
-                  'syndic8.FindSites
-                  url)))
-      (when feedid
-       (let* ((feedinfo (xml-rpc-method-call
-                         "http://www.syndic8.com/xmlrpc.php";
-                         'syndic8.GetFeedInfo
-                         feedid))
-              (urllist
-               (delq nil
-                     (mapcar
-                      (lambda (listinfo)
-                        (if (string-equal
-                             (cdr (assoc "status" listinfo))
-                             "Syndicated")
-                            (cons
-                             (cdr (assoc "sitename" listinfo))
-                             (list
-                              (cons 'title
-                                    (cdr (assoc
-                                          "sitename" listinfo)))
-                              (cons 'href
-                                    (cdr (assoc
-                                          "dataurl" listinfo)))))))
-                      feedinfo))))
-         (if (not (> (length urllist) 1))
-             (cdar urllist)
-           (let ((completion-ignore-case t)
-                 (selection
-                  (mapcar (lambda (listinfo)
-                            (cons (cdr (assoc "sitename" listinfo))
-                                  (string-to-number
-                                   (cdr (assoc "feedid" listinfo)))))
-                          feedinfo)))
-             (cdr (assoc
-                   (gnus-completing-read
-                    "Multiple feeds found. Select one"
-                    selection t) urllist)))))))))
+            rss-link))))))
 
 (defun nnrss-rss-p (data)
   "Test if DATA is an RSS feed.
@@ -1022,6 +969,11 @@ prefix), return the prefix."
        (concat ns ":")
       ns)))
 
+(defun nnrss-find-rss-via-syndic8 (_url)
+  "This function is obsolete and does nothing.  Syndic8 shut down in 2013."
+  (declare (obsolete nil "28.1"))
+  nil)
+
 (provide 'nnrss)
 
 ;;; nnrss.el ends here