From: yamaoka Date: Wed, 6 Jun 2001 00:15:36 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_4-02-quimby~36 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d2a4279f1775174ff9be1b50491a6d3402474d1;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 787179c..953df78 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-06-05 Simon Josefsson + + * mm-decode.el (mm-handle-set-external-undisplayer): Don't + generate compiler warnings. From Alex Schroeder . + 2001-06-04 Hrvoje Niksic * mm-decode.el (mm-pipe-part): Bind coding-system-for-write to diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 61bc805..0ca7321 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -364,21 +364,16 @@ The original alist is not modified. See also `destructive-alist-to-plist'." (defun mm-handle-set-external-undisplayer (handle function) "Set the undisplayer for this handle; postpone undisplaying of viewers for types in mm-keep-viewer-alive-types." - (if (mm-keep-viewer-alive-p handle) - (progn - (setq new-handle (copy-sequence handle)) - (mm-handle-set-undisplayer new-handle function) - (mm-handle-set-undisplayer handle nil) - (push new-handle mm-postponed-undisplay-list) - ) - (mm-handle-set-undisplayer handle function) - ) -) + (if (mm-keep-viewer-alive-p handle) + (let ((new-handle (copy-sequence handle))) + (mm-handle-set-undisplayer new-handle function) + (mm-handle-set-undisplayer handle nil) + (push new-handle mm-postponed-undisplay-list)) + (mm-handle-set-undisplayer handle function))) (defun mm-destroy-postponed-undisplay-list () (message "Destroying external MIME viewers") - (mm-destroy-parts mm-postponed-undisplay-list) -) + (mm-destroy-parts mm-postponed-undisplay-list)) (defun mm-dissect-buffer (&optional no-strict-mime) "Dissect the current buffer and return a list of MIME handles."