From xemacs-m  Sun Jun 15 16:21:00 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 QAA29211
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 16:20:58 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id OAA09733;
	Sun, 15 Jun 1997 14:21:13 -0700
Date: Sun, 15 Jun 1997 14:21:13 -0700
Message-Id: <199706152121.OAA09733@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: [patch] mh-e/mh-e.el
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


 There shouldn't be anymore ! mistakes.

8<----------------------------------------------------------------->8
*** mh-e.el.orig	Wed Jun 11 12:25:57 1997
--- mh-e.el	Sun Jun 15 14:19:45 1997
***************
*** 994,1000 ****
        (mh-first-msg)
        (while (<= (point) last-line)
  	(forward-char mh-cmd-note)
! 	(setq char (following-char))
  	(if (or (and remove-all-flags
  		     (or (eql char (aref mh-note-deleted 0))
  			 (eql char (aref mh-note-refiled 0))))
--- 994,1000 ----
        (mh-first-msg)
        (while (<= (point) last-line)
  	(forward-char mh-cmd-note)
! 	(setq char (char-after (point)))
  	(if (or (and remove-all-flags
  		     (or (eql char (aref mh-note-deleted 0))
  			 (eql char (aref mh-note-refiled 0))))
***************
*** 1005,1011 ****
  	(if remove-all-flags
  	    (progn
  	      (forward-char 1)
! 	      (if (eql (following-char) (aref mh-note-seq 0))
  		  (progn
  		    (delete-char 1)
  		    (insert " ")))))
--- 1005,1011 ----
  	(if remove-all-flags
  	    (progn
  	      (forward-char 1)
! 	      (if (eql (char-after (point)) (aref mh-note-seq 0))
  		  (progn
  		    (delete-char 1)
  		    (insert " ")))))
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

