diff options
| author | Katsumi Yamaoka | 2010-09-01 04:28:56 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-09-01 04:28:56 +0000 |
| commit | cd110b2b0c2d2823d3572a62e1cd596c096f9a47 (patch) | |
| tree | 8dfefe6091af27296d5154e1f6365f6996c45b7f | |
| parent | a14b34178368bb33e425268fc8ddc105b9d52b0b (diff) | |
| download | emacs-cd110b2b0c2d2823d3572a62e1cd596c096f9a47.tar.gz emacs-cd110b2b0c2d2823d3572a62e1cd596c096f9a47.zip | |
gnus-html-curl-sentinel: Replace process-get with gnus-process-get.
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-html.el | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d7bc81bcac8..8a1e5db1359 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -3,6 +3,9 @@ | |||
| 3 | * gnus-ems.el (gnus-process-get, gnus-process-put): New compatibility | 3 | * gnus-ems.el (gnus-process-get, gnus-process-put): New compatibility |
| 4 | functions. | 4 | functions. |
| 5 | 5 | ||
| 6 | * gnus-html.el (gnus-html-curl-sentinel): Replace process-get with | ||
| 7 | gnus-process-get. | ||
| 8 | |||
| 6 | 2010-08-31 Julien Danjou <julien@danjou.info> (tiny change) | 9 | 2010-08-31 Julien Danjou <julien@danjou.info> (tiny change) |
| 7 | 10 | ||
| 8 | * nnimap.el (nnimap-request-newgroups): Use nnimap-request-list-method | 11 | * nnimap.el (nnimap-request-newgroups): Use nnimap-request-list-method |
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 576d8835dcc..f568d673345 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el | |||
| @@ -171,8 +171,8 @@ | |||
| 171 | 171 | ||
| 172 | (defun gnus-html-curl-sentinel (process event) | 172 | (defun gnus-html-curl-sentinel (process event) |
| 173 | (when (string-match "finished" event) | 173 | (when (string-match "finished" event) |
| 174 | (let* ((images (process-get process 'images)) | 174 | (let* ((images (gnus-process-get process 'images)) |
| 175 | (buffer (process-get process 'buffer)) | 175 | (buffer (gnus-process-get process 'buffer)) |
| 176 | (spec (pop images)) | 176 | (spec (pop images)) |
| 177 | (file (gnus-html-image-id (car spec)))) | 177 | (file (gnus-html-image-id (car spec)))) |
| 178 | (when (and (buffer-live-p buffer) | 178 | (when (and (buffer-live-p buffer) |