andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Synch with Gnus trunk.

Browse source 
(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.
This commit is contained in:
Katsumi Yamaoka 2010-05-11 04:43:46 +00:00
parent c88b05a9d6
commit 3d73e84152
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,3 +1,10 @@
2010-05-11 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-extern.el (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.
2010-05-10 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-util.el (mm-emacs-mule): Remove.

8
lisp/gnus/mm-extern.el
View file

@ -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