Index: vhMAIL3.mac.rou
===================================================================
diff -u -r734 -r1938
--- vhMAIL3.mac.rou	(.../vhMAIL3.mac.rou)	(revision 734)
+++ vhMAIL3.mac.rou	(.../vhMAIL3.mac.rou)	(revision 1938)
@@ -85,7 +85,8 @@
  .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 '$L(Mail),$O(UserId(""))'="" Do
+ If AutoDisp="D" Set Mail="A"
+ Else  If '$L(Mail),$O(UserId(""))'="" Do
  .Write @F11,@F1
  .Set Buttons="Buttons"
  .Set UserId=$O(UserId("")) Set:$O(UserId(UserId)) UserId=""