[Emacsweblogs] Fix compiler warnings with CVS Emacs

[Leo]

The following patch fixes the compiler warning under Emacs 23.1.90.

diff -c -L /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz~ -L 
/usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz /tmp/jka-com10239tAh 
/tmp/jka-com10239HVt
--- /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz~
+++ /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz
@@ -482,8 +482,7 @@
     (while (progn (setq name (format " *XML-RPC-%d*" num)
                        buf (get-buffer name))
                  (and buf (or (get-buffer-process buf)
-                              (save-excursion (set-buffer buf)
-                                              (> (point-max) 1)))))
+                               (with-current-buffer buf (> (point-max) 1)))))
       (setq num (1+ num)))
     name))
 
@@ -535,7 +534,7 @@
                     (setq url-be-asynchronous t
                           url-current-callback-data (list
                                                      async-callback-function
-                                                     (current-buffer)) 
+                                                     (current-buffer))
                           url-current-callback-func
                            'xml-rpc-request-callback-handler)
                   (setq url-be-asynchronous nil))
@@ -544,9 +543,8 @@
                 (when (not url-be-asynchronous)
                   (let ((result (xml-rpc-request-process-buffer
                                  (current-buffer))))
-                    (when (> xml-rpc-debug 1) 
-                       (save-excursion
-                         (set-buffer (create-file-buffer "result-data"))
+                    (when (> xml-rpc-debug 1)
+                       (with-current-buffer (create-file-buffer "result-data")
                          (insert result)))
                     result)))
                (t                      ; Post emacs20 w3-el
@@ -609,8 +607,7 @@
 (defun xml-rpc-request-process-buffer (xml-buffer)
   "Process buffer XML-BUFFER."
   (unwind-protect
-      (save-excursion
-       (set-buffer xml-buffer)
+      (with-current-buffer xml-buffer
        (when (fboundp 'url-uncompress)
           (let ((url-working-buffer xml-buffer))
             (url-uncompress)))
@@ -626,7 +623,7 @@
                        ((looking-at "<\\?xml ")
                         (xml-rpc-clean (xml-parse-region (point-min)
                                                           (point-max))))
-                         
+
                        ;; No HTTP status returned
                        ((not status)
                         (let ((errstart
@@ -654,7 +651,7 @@
     (when (< xml-rpc-debug 1)
       (kill-buffer xml-buffer))
     (funcall callback-fun (xml-rpc-xml-to-response xml-response))))
-  
+
 
 (defun xml-rpc-method-call-async (async-callback-func server-url method
                                                      &rest params)

Diff finished.  Thu Dec 24 04:09:15 2009