diff --git a/appl/popper/pop_xover.c b/appl/popper/pop_xover.c
new file mode 100644
index 000000000..421070c47
--- /dev/null
+++ b/appl/popper/pop_xover.c
@@ -0,0 +1,36 @@
+#include <popper.h>
+RCSID("$Id$");
+
+int
+pop_xover (POP *p)
+{
+#ifdef XOVER
+    MsgInfoList         *   mp;         /*  Pointer to message info list */
+    int		            i;
+
+    pop_msg(p,POP_SUCCESS,
+	    "%u messages (%u octets)",
+            p->msg_count-p->msgs_deleted,p->drop_size-p->bytes_deleted);
+    
+    /*  Loop through the message information list.  Skip deleted messages */
+    for (i = p->msg_count, mp = p->mlp; i > 0; i--, mp++) {
+        if (!mp->del_flag) 
+            fprintf(p->output,"%u\t%s\t%s\t%s\t%s\t%lu\t%lu\r\n",
+		    mp->number,
+		    mp->subject,
+		    mp->from,
+		    mp->date, 
+		    mp->msg_id,
+		    mp->length,
+		    mp->lines);
+    }
+
+    /*  "." signals the end of a multi-line transmission */
+    fprintf(p->output,".\r\n");
+    fflush(p->output);
+
+    return(POP_SUCCESS);
+#else
+    return pop_msg(p, POP_FAILURE, "Command not implemented.");
+#endif
+}