Use gnus-process-plist and friends for compatibility.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6390cd1..27b44f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-html.el (gnus-html-schedule-image-fetching): Use
+       gnus-process-plist and friends for compatibility.
+
 2010-08-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-ems.el: Provide compatibility functions for

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 542d140..cf0299e 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -154,16 +154,16 @@
                   url)))
     (process-kill-without-query process)
     (set-process-sentinel process 'gnus-html-curl-sentinel)
-    (set-process-plist process (list 'images images
-                                    'buffer buffer))))
+    (gnus-set-process-plist process (list 'images images
+                                         'buffer buffer))))
 
 (defun gnus-html-image-id (url)
   (expand-file-name (sha1 url) gnus-html-cache-directory))
 
 (defun gnus-html-curl-sentinel (process event)
   (when (string-match "finished" event)
-    (let* ((images (getf (process-plist process) 'images))
-          (buffer (getf (process-plist process) 'buffer))
+    (let* ((images (getf (gnus-process-plist process) 'images))
+          (buffer (getf (gnus-process-plist process) 'buffer))
           (spec (pop images))
           (file (gnus-html-image-id (car spec))))
       (when (and (buffer-live-p buffer)