From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36579
Path: main.gmane.org!not-for-mail
From: Alex Schroeder <alex@gnu.org>
Newsgroups: gmane.emacs.gnus.general
Subject: free variable new-handle
Date: 05 Jun 2001 11:30:23 +0200
Sender: alex@gnu.org
Message-ID: <m2y9r7tgsw.fsf@snail.nowhere.ch>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035172140 9296 80.91.224.250 (21 Oct 2002 03:49:00 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:49:00 +0000 (UTC)
Return-Path: <alex@gnu.org>
Return-Path: <alex@gnu.org>
Original-Received: (qmail 2688 invoked from network); 5 Jun 2001 09:30:56 -0000
Original-Received: from smtp.datacomm.ch (HELO flu-smtp-01.datacomm.ch) (212.40.5.52)
  by gnus.org with SMTP; 5 Jun 2001 09:30:56 -0000
Original-Received: from snail.nowhere.ch (line372.datacomm.ch [212.254.1.192])
	by flu-smtp-01.datacomm.ch (8.11.3/8.11.3) with ESMTP id f559Urq12650
	for <ding@gnus.org>; Tue, 5 Jun 2001 11:30:54 +0200
Original-Received: (from alex@localhost)
	by snail.nowhere.ch (8.10.2/8.10.2/SuSE Linux 8.10.0-0.3) id f559UN000579;
	Tue, 5 Jun 2001 11:30:23 +0200
X-Authentication-Warning: snail.nowhere.ch: alex set sender to alex@gnu.org using -f
Original-To: ding@gnus.org
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/20.7
Original-Lines: 20
Xref: main.gmane.org gmane.emacs.gnus.general:36579
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36579

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.