Index: vhMAIL.mac.rou
===================================================================
diff -u -r1632 -r1657
--- vhMAIL.mac.rou	(.../vhMAIL.mac.rou)	(revision 1632)
+++ vhMAIL.mac.rou	(.../vhMAIL.mac.rou)	(revision 1657)
@@ -14,7 +14,7 @@
  .Set R=$S(MailTyp="U":"",1:$$AUTOREAD())
  .If $L(R)
  .Else  Set R=$$SCROLL^vhLIST(.MAIL,"",60),MailId=$P($G(^HULP(%J,MAIL("SELECT"))),D)
- .If R="",$D(^vhMAIL("IN",CUserId)) Do WAKEUSER^vhMAIL3(CUserId,1) If $$UNSLEEP^vhMAIL3(CUserId,"",1) Set R="O"
+ .If R="",MailTyp'="U",$D(^vhMAIL("IN",CUserId)) Do WAKEUSER^vhMAIL3(CUserId,1) If $$UNSLEEP^vhMAIL3(CUserId,"",1) Set R="O"
  .Set Input=R
  .Do CHKMENU(MailId,MailTyp)
  .If Input="COM" Do MENU