-  718,  784
    IF .HDR NEQA HDRQ [QUE_L_HEAD] THEN		!A Reply-To: was found
    BEGIN					!(FILESERV msg, for example)
	IF .MLST [MLST_V_RTOLIST] THEN
	BEGIN
	    REMQUE (.HDR, HDR);
	    INIT_SDESC (SDSC, .MLST [MLST_W_NAME], MLST [MLST_T_NAME]);
	    MAKE_ADDRESS (SDSC, 0, STR);
	    IF .MLST [MLST_V_RTOSNDR] THEN
	    BEGIN
		INIT_SDESC (SDSC, .HDR [TXT_W_LEN], HDR [TXT_T_TEXT]);
		STR$APPEND (STR, ascid_comma_space);
		STR$APPEND (STR, SDSC);
	    END;
	    INSTXT (STR, .HDR [TXT_L_BLINK], MX_K_HDR_REPLY_TO);
	    FREETXT (HDR);
	END;
    END
    ELSE
    BEGIN
	HDR = .HDRQ [QUE_L_HEAD];
	WHILE .HDR NEQA HDRQ DO
	BEGIN
	    IF .HDR [TXT_W_CODE] EQL MX_K_HDR_FROM THEN
	    BEGIN
		IF .MLST [MLST_V_RTOLIST] THEN
		BEGIN
		    ! If an alternative address is given, use that instead
		    ! of the list name.  This is useful for making replies
		    ! to a "-Digest" list go back to the actual list.
		    IF (.MLST[MLST_W_RTNADR] NEQU 0)
		    THEN
			STR$COPY_R (STR, MLST[MLST_W_RTNADR],
					MLST[MLST_T_RTNADR])
		    ELSE
			BEGIN
			INIT_SDESC (SDSC, .MLST [MLST_W_NAME],
				MLST [MLST_T_NAME]);
			MAKE_ADDRESS (SDSC, 0, STR);
			END;
		    IF .MLST [MLST_V_RTOSNDR] THEN
		    BEGIN
			STR$APPEND (STR, ascid_comma_space);
			STR$APPEND (STR, FROMSTR);
		    END;
		END
		ELSE
		    STR$COPY_R (STR, HDR [TXT_W_LEN], HDR [TXT_T_TEXT]);
		INSTXT (STR, .HDR, MX_K_HDR_REPLY_TO);
		EXITLOOP;
	    END;
	    HDR = .HDR [TXT_L_FLINK];
	END;
    END;
/