This routine adapted from AmigaMail IV-37 by Michael Sinz */
| 771 | #ifdef AMIFLUSH |
| 772 | /* This routine adapted from AmigaMail IV-37 by Michael Sinz */ |
| 773 | static struct Message * |
| 774 | GetFMsg(struct MsgPort *port) |
| 775 | { |
| 776 | struct IntuiMessage *msg, *succ, *succ1; |
| 777 | |
| 778 | if (msg = (struct IntuiMessage *) GetMsg(port)) { |
| 779 | if (!sysflags.amiflush) |
| 780 | return ((struct Message *) msg); |
| 781 | if (msg->Class == RAWKEY) { |
| 782 | Forbid(); |
| 783 | succ = (struct IntuiMessage *) (port->mp_MsgList.lh_Head); |
| 784 | while (succ1 = (struct IntuiMessage *) (succ->ExecMessage.mn_Node |
| 785 | .ln_Succ)) { |
| 786 | if (succ->Class == RAWKEY) { |
| 787 | Remove((struct Node *) succ); |
| 788 | ReplyMsg((struct Message *) succ); |
| 789 | } |
| 790 | succ = succ1; |
| 791 | } |
| 792 | Permit(); |
| 793 | } |
| 794 | } |
| 795 | return ((struct Message *) msg); |
| 796 | } |
| 797 | #endif |
| 798 | |
| 799 | struct NewWindow * |