diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-05-11 04:43:46 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-05-11 04:43:46 +0000 |
| commit | 3d73e84152c941cc4a1e2de64926efd21710f535 (patch) | |
| tree | 61cbaa8fd2a78a21de24dee7692cbed5c649b9fa /lisp/gnus/mm-extern.el | |
| parent | c88b05a9d69ee8d35e408d70a80538fdd13f1a3d (diff) | |
| download | emacs-3d73e84152c941cc4a1e2de64926efd21710f535.tar.gz emacs-3d73e84152c941cc4a1e2de64926efd21710f535.tar.bz2 emacs-3d73e84152c941cc4a1e2de64926efd21710f535.zip | |
Synch with Gnus trunk.
(mm-extern-url): Don't use mm-with-unibyte-current-buffer.
(mm-extern-cache-contents): Use with-current-buffer instead of
save-excursion + set-buffer.
Diffstat (limited to 'lisp/gnus/mm-extern.el')
| -rw-r--r-- | lisp/gnus/mm-extern.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el index 1e3df3c4cff..f40f798789c 100644 --- a/lisp/gnus/mm-extern.el +++ b/lisp/gnus/mm-extern.el @@ -67,9 +67,8 @@ (coding-system-for-read mm-binary-coding-system)) (unless url (error "URL is not specified")) - (mm-with-unibyte-current-buffer - (mm-url-insert-file-contents url)) (mm-disable-multibyte) + (mm-url-insert-file-contents url) (setq buffer-file-name name))) (defun mm-extern-anon-ftp (handle) @@ -125,7 +124,7 @@ (or access-type (error "Couldn't find access type")))) mm-extern-function-alist))) - buf handles) + handles) (unless func (error "Access type (%s) is not supported" access-type)) (mm-with-part handle @@ -136,8 +135,7 @@ (unless (bufferp (car handles)) (mm-destroy-parts handles) (error "Multipart external body is not supported")) - (save-excursion - (set-buffer (setq buf (mm-handle-buffer handles))) + (with-current-buffer (mm-handle-buffer handles) (let (good) (unwind-protect (progn |