From xemacs-m  Sun Apr 20 09:08:15 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA00285
	for <xemacs-beta@xemacs.org>; Sun, 20 Apr 1997 09:08:13 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id HAA11113;
	Sun, 20 Apr 1997 07:10:05 -0700
Date: Sun, 20 Apr 1997 07:10:05 -0700
Message-Id: <199704201410.HAA11113@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: <xemacs-beta@xemacs.org>
Subject: Re: XEmacs 20.2-b1 build success on Digital UNIX V4.0B
In-Reply-To: <m2iv1h23mu.fsf@altair.xemacs.org>
References: <9704201337.AA03524@clusaz.gvc.dec.com>
	<m2iv1h23mu.fsf@altair.xemacs.org>
X-Mailer: VM 6.27 under 20.1 XEmacs Lucid
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D

>>>>> "sb" == Steven L Baur <steve@miranova.com> writes:

    sb> Did you ever manage to repeat or get a handle on the VM
    sb> hanging bug you reported for 20.1beta15?

 Kyle helped me find how to fix it by providing a hint.  I'm told that 
it is already fixed in VM 6.28, so this *IS NOT* an official patch.
It will let you expunge deleted mail though.

*** vm-thread.el~	Wed Apr 16 10:34:18 1997
--- vm-thread.el	Fri Apr 18 09:41:56 1997
***************
*** 147,166 ****
      (if (> n modulus)
  	(message "Building threads... done"))))
  
  (defun vm-thread-mark-for-summary-update (message-list)
    (while message-list
      ;; if thread-list is null then we've already marked this
      ;; message, or it doesn't need marking.
!     (if (null (vm-thread-list-of (car message-list)))
! 	nil
!       (vm-mark-for-summary-update (car message-list) t)
!       (vm-set-thread-list-of (car message-list) nil)
!       (vm-set-thread-indentation-of (car message-list) nil)
!       (vm-thread-mark-for-summary-update
!        (get (intern (vm-su-message-id (car message-list))
! 		    vm-thread-obarray)
! 	    'children))
!       (setq message-list (cdr message-list)))))
  
  (defun vm-thread-list (message)
    (let ((done nil)
--- 147,183 ----
      (if (> n modulus)
  	(message "Building threads... done"))))
  
+ ;;(defun vm-thread-mark-for-summary-update (message-list)
+ ;;  (while message-list
+ ;;    ;; if thread-list is null then we've already marked this
+ ;;    ;; message, or it doesn't need marking.
+ ;;    (if (null (vm-thread-list-of (car message-list)))
+ ;;	nil
+ ;;      (vm-mark-for-summary-update (car message-list) t)
+ ;;      (vm-set-thread-list-of (car message-list) nil)
+ ;;      (vm-set-thread-indentation-of (car message-list) nil)
+ ;;      (vm-thread-mark-for-summary-update
+ ;;       (get (intern (vm-su-message-id (car message-list))
+ ;;		    vm-thread-obarray)
+ ;;	    'children)))
+ ;;      (setq message-list (cdr message-list))))
+ 
  (defun vm-thread-mark-for-summary-update (message-list)
    (while message-list
      ;; if thread-list is null then we've already marked this
      ;; message, or it doesn't need marking.
!     (let ((cml (car message-list)))
!       (if (null (vm-thread-list-of cml))
! 	  nil
! 	(vm-mark-for-summary-update cml t)
! 	(vm-set-thread-list-of cml nil)
! 	(vm-set-thread-indentation-of cml nil)
! 	(vm-thread-mark-for-summary-update
! 	 (get (intern (vm-su-message-id cml)
! 		      vm-thread-obarray)
! 	      'children))))
!     (setq message-list (cdr message-list))))
! 
  
  (defun vm-thread-list (message)
    (let ((done nil)

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.2  Linux 2.0.30t
You tell me and we'll both know.

