From:	CRDGW2::CRDGW2::MRGATE::"SMTP::FALCON::TNIELAND" 13-JUN-1989 18:45
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Additional fix/change to VMS FINGER from SPC

Message-Id:  <8906132236.AA25868@crdgw1.ge.com>
Received: from FALCON by AAMRL.AF.MIL; Tue, 13 Jun 89 15:31 EDT
Date: Tue, 13 Jun 89 15:33 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: Additional fix/change to VMS FINGER from SPC
To: TERRY%SPCVXA.BITNET@MITVMA.MIT.EDU, EVERHART@ARISIA.DECNET,
        TNIELAND@WPAFB-AAMRL.AF.MIL
X-Vms-To: IN%"TERRY@SPCVXA.BITNET"

A user just found another item on the new FINGER that causes a "problem".
I have some users here that use DELIVER, a MAIL scan utility, to pre-scan 
there messages.  Some of the messages that have gone through DELIVER also
end up in their mail file, so you still want to scan the file.

Anyway, attached is a differences file that makes a correction to take care of 
it.  The change is to check the forwarding address for the string "DELIVER%" 
and it is their then go on and do the rest of the checks.

(Note:  Deliver is part of the PMDF package)

Ted Nieland
TNIELAND@AAMRL.AF.MIL


************
File DECUS$:[SOURCE.FINGER]FINGER.FOR;143
  209   c	 V51.1.16       Mods at AAMRL - Allowed for MAIL forwarding using 
  210   C			DELIVER and still show new MAIL count and messages.
  211   c			By Ted Nieland				13-Jun-1989
  212   c
******
File DECUS$:[SOURCE.FINGER]FINGER.FOR;141
  209   c
************
************
File DECUS$:[SOURCE.FINGER]FINGER.FOR;143
  223   	1	/'VAX/VMS Finger: Version V51.1.16 of 13-Jun-1989'/
  224   	Common	/Version_Common/ VersionMsg
******
File DECUS$:[SOURCE.FINGER]FINGER.FOR;141
  220   	1	/'VAX/VMS Finger: Version V51.1.15 of 12-Jun-1989'/
  221   	Common	/Version_Common/ VersionMsg
************
************
File DECUS$:[SOURCE.FINGER]FINGER.FOR;143
 2297   	     if (index(fwdinfo(:btrim(fwdinfo)),'DELIVER%').eq.0) Go To 99
 2298   	     Call Finger_Out_Routine(LF//' Mail: ')
******
File DECUS$:[SOURCE.FINGER]FINGER.FOR;141
 2294   	     if (index(fwdinfo(:btrim(fwdinfo)),'deliver%').eq.0) Go To 99
 2295   	     Call Finger_Out_Routine(LF//' Mail: ')
************

Number of difference sections found: 3
Number of difference records found: 5

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=FALCON$DUB3:[TNIELAND]FINGER.DIFF_2;1-
    DECUS$:[SOURCE.FINGER]FINGER.FOR;143-
    DECUS$:[SOURCE.FINGER]FINGER.FOR;141
