From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18010
Path: main.gmane.org!not-for-mail
From: Hrvoje Niksic <hniksic@srce.hr>
Newsgroups: gmane.emacs.gnus.general
Subject: *Group* buffer disaster fix
Date: 21 Oct 1998 16:30:03 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <kign26qf0no.fsf@jagor.srce.hr>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035156610 3912 80.91.224.250 (20 Oct 2002 23:30:10 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:30:10 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA23458
	for <jason@mailhost.sclp.com>; Wed, 21 Oct 1998 10:31:02 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAB16701;
	Wed, 21 Oct 1998 09:30:45 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 21 Oct 1998 09:30:45 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id JAA24059 for <ding@hpc.uh.edu>; Wed, 21 Oct 1998 09:30:37 -0500 (CDT)
Original-Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA23449
	for <ding@gnus.org>; Wed, 21 Oct 1998 10:30:20 -0400 (EDT)
Original-Received: (from hniksic@localhost)
	by jagor.srce.hr (8.9.0/8.9.0) id QAA23263;
	Wed, 21 Oct 1998 16:30:04 +0200 (MET DST)
Original-To: ding@gnus.org
X-Attribution: Hrvoje
X-Face: &{dT~)Pu6V<0y?>3p$;@vh\`C7xB~A0T-J%Og)J,@-1%q6Q+,
        gs<-9M#&`I8cJp2b1{vPE|~+JE+gx;a7%BG{}nY^ehK1"q#rG
        O,Rn1A_Cy%t]V=Brv7h<L@)<XGh#XroV6xQg$VA8K
Original-Lines: 52
User-Agent: Gnus/5.070036 (Pterodactyl Gnus v0.36) XEmacs/21.0 (Danish Landrace)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18010
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18010

This patch should work.  Lloyd, Lars, please comment.


1998-10-21  Hrvoje Niksic  <hniksic@srce.hr>

	* mailcap.el (mailcap-save-binary-file): Use unwind-protect.

	* mm-decode.el (mm-display-external): Set undisplayer to mm
	buffer, not the current buffer; use unwind-protect.

--- mm-decode.el.orig	Wed Oct 21 14:32:26 1998
+++ mm-decode.el	Wed Oct 21 14:35:45 1998
@@ -220,8 +220,10 @@
 	  (buffer-disable-undo)
 	  (mm-set-buffer-file-coding-system 'no-conversion)
 	  (insert-buffer-substring cur)
-	  (funcall method)
-	  (mm-handle-set-undisplayer handle (current-buffer)))
+	  (let ((mm (current-buffer)))
+	    (unwind-protect
+		(funcall method)
+	      (mm-handle-set-undisplayer handle mm))))
       (let* ((dir (make-temp-name (expand-file-name "emm." mm-tmp-directory)))
 	     (filename (mail-content-type-get
 			(mm-handle-disposition handle) 'filename))
--- mailcap.el.orig	Wed Oct 21 16:27:16 1998
+++ mailcap.el	Wed Oct 21 16:27:30 1998
@@ -272,11 +272,12 @@
 
 (defun mailcap-save-binary-file ()
   (goto-char (point-min))
-  (let ((file (read-file-name
-	       "Filename to save as: "
-	       (or mailcap-download-directory "~/")))
-	(require-final-newline nil))
-    (write-region (point-min) (point-max) file)
+  (unwind-protect
+      (let ((file (read-file-name
+		   "Filename to save as: "
+		   (or mailcap-download-directory "~/")))
+	    (require-final-newline nil))
+	(write-region (point-min) (point-max) file))
     (kill-buffer (current-buffer))))
 
 (defun mailcap-maybe-eval ()


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Be nice to your kids.
They'll choose your nursing home.