free variable new-handle

[Alex Schroeder <alex@gnu.org>]

The following looks like a minor bug in current cvs:

While compiling mm-handle-set-external-undisplayer in file /home/alex/elisp/gnus/lisp/mm-decode.el:
  ** assignment to free variable new-handle
  ** reference to free variable new-handle

Something like the following should do just as fine, I think.
Untested.

(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)
     (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)))

Alex.