(nnrss-find-rss-via-syndic8): Return nil if xml-rpc

isn't available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62cb85c..4d3abca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnrss.el (nnrss-find-rss-via-syndic8): Return nil if xml-rpc
+       isn't available.
+
        * message.el (message-hidden-headers): Doc fix.
 
 2003-10-18  Jesper Harder  <harder@ifa.au.dk>

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index f42e101..ff448ce 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -685,7 +685,9 @@ whether they are `offsite' or `onsite'."
 (defun nnrss-find-rss-via-syndic8 (url)
   "query syndic8 for the rss feeds it has for the url."
   (if (not (locate-library "xml-rpc"))
-      (message "XML-RPC is not available... not checking Syndic8.")
+      (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"