diff options
| author | Juanma Barranquero | 2010-05-04 00:38:50 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2010-05-04 00:38:50 +0200 |
| commit | 61a9da2586265ea8d7473d0fefbf008e2822f3c7 (patch) | |
| tree | 2536372f76a6bf4582245d7a36548edfc1aeecca | |
| parent | 53967e09ad89f11531c7fee0240c2eac1f63922c (diff) | |
| download | emacs-61a9da2586265ea8d7473d0fefbf008e2822f3c7.tar.gz emacs-61a9da2586265ea8d7473d0fefbf008e2822f3c7.zip | |
* mm-util.el (mm-decompress-buffer): Use `delete-file'.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/mm-util.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fbf1302d4f7..bb6d11c81bd 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-05-03 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * mm-util.el (mm-decompress-buffer): Use `delete-file'; | ||
| 4 | alias `jka-compr-delete-temp-file' no longer exists. | ||
| 5 | |||
| 1 | 2010-05-03 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2010-05-03 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | Use define-minor-mode in Gnus where applicable. | 8 | Use define-minor-mode in Gnus where applicable. |
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 1e70a69b1fd..c1dc4f5b754 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el | |||
| @@ -1563,7 +1563,7 @@ decompressed data. The buffer's multibyteness must be turned off." | |||
| 1563 | (error | 1563 | (error |
| 1564 | (setq err-msg (error-message-string err))))) | 1564 | (setq err-msg (error-message-string err))))) |
| 1565 | (when (file-exists-p err-file) | 1565 | (when (file-exists-p err-file) |
| 1566 | (ignore-errors (jka-compr-delete-temp-file err-file))) | 1566 | (ignore-errors (delete-file err-file))) |
| 1567 | (when inplace | 1567 | (when inplace |
| 1568 | (unless err-msg | 1568 | (unless err-msg |
| 1569 | (delete-region (point-min) (point-max)) | 1569 | (delete-region (point-min) (point-max)) |