Index: vhMAIL3.mac.rou =================================================================== diff -u -r1938 -r1939 --- vhMAIL3.mac.rou (.../vhMAIL3.mac.rou) (revision 1938) +++ vhMAIL3.mac.rou (.../vhMAIL3.mac.rou) (revision 1939) @@ -85,7 +85,7 @@ .Set R=^vhUSER("D",UserId,"M"),AutoDisp=$P(R,D,7),$P(UserId(UserId),D,2)=AutoDisp Set Mail="" If $D(CUserId),$D(UserId(CUserId)),"#\#U\U#U\#"[("#"_UserId(CUserId)_"#") Set Mail="R" - If AutoDisp="D" Set Mail="A" + If $G(AutoDisp)="D" Set Mail="A" Else If '$L(Mail),$O(UserId(""))'="" Do .Write @F11,@F1 .Set Buttons="Buttons"