packing messages with From_ separator

Here are small diffs for packf (and doc) to pack messages
with uucp From_ separator.


*** mh.orig/uip/packf.c Fri Oct 30 02:02:34 1987
--- mh/uip/packf.c      Fri Oct  9 12:31:27 1992
***************
*** 13,19 ****
  #define FILESW        0
      "file name", 0,

! #define       HELPSW  1
      "help", 4,

      NULL, NULL
--- 13,22 ----
  #define FILESW        0
      "file name", 0,

! #define       UUCPSW  1
!     "uucp", 4,
!
! #define       HELPSW  2
      "help", 4,

      NULL, NULL
***************
*** 36,41 ****
--- 39,45 ----
  int     argc;
  char  **argv;
  {
+     int     uucp_sep = 0;
      int     msgp = 0,
              fd,
              msgnum;
***************
*** 50,55 ****
--- 54,60 ----
             *msgs[MAXARGS];
      struct msgs *mp;
      struct stat st;
+     time_t stamp;

      invo_name = r1bindex (argv[0], '/');
      if ((cp = m_find (invo_name)) != NULL) {
***************
*** 63,68 ****
--- 68,74 ----

  /*  */

+     mbx_mmdf();
      while (cp = *argp++) {
        if (*cp == '-')
            switch (smatch (++cp, switches)) {
***************
*** 69,74 ****
--- 75,84 ----
                case AMBIGSW:
                    ambigsw (cp, switches);
                    done (1);
+               case UUCPSW:
+                   uucp_sep = 1;
+                   mbx_uucp();
+                   continue;
                case UNKWNSW:
                    adios (NULLCP, "-%s unknown", cp);
                case HELPSW:
***************
*** 136,143 ****
                admonish (msgnam, "unable to read message");
                break;
            }

!           if (mbx_copy (file, md, fd, 1, NULLCP, 1) == NOTOK)
                adios (file, "error writing to file");

            (void) close (fd);
--- 146,157 ----
                admonish (msgnam, "unable to read message");
                break;
            }
+           if(uucp_sep) {
+               time(&stamp);
+               sprintf(buf, "From %s %s", getlogin(), ctime(&stamp));
+           }

!           if (mbx_copy (file, md, fd, 1, uucp_sep ? buf : NULLCP, 1) == NOTOK)
                adios (file, "error writing to file");

            (void) close (fd);
*** mh.orig/conf/doc/packf.rf   Fri Apr  6 02:04:58 1990
--- mh/conf/doc/packf.rf        Fri Oct  9 12:19:03 1992
***************
*** 6,17 ****
  .SY
  packf
  \%[+folder] \%[msgs]
  \%[\-file\ name]
  \%[\-help]
  .DE
  \fIPackf\fR
  takes messages from a folder and copies them to a single file.
! Each message in the file is separated by four CTRL\-A's and a
  @BEGIN: MMDFMTS
  newline (identical to the way messages are stored in your receiving mail 
drop).
  @END: MMDFMTS
--- 6,19 ----
  .SY
  packf
  \%[+folder] \%[msgs]
+ \%[\-uucp]
  \%[\-file\ name]
  \%[\-help]
  .DE
  \fIPackf\fR
  takes messages from a folder and copies them to a single file.
! By default,
! each message in the file is separated by four CTRL\-A's and a
  @BEGIN: MMDFMTS
  newline (identical to the way messages are stored in your receiving mail 
drop).
  @END: MMDFMTS
***************
*** 21,26 ****
--- 23,30 ----
  @BEGIN: SENDMTS
  newline.
  @END: SENDMTS
+ If switch '-uucp' is specified, then messages in the file separated
+ by UUCP 'From ' line instead.
  Messages packed can be unpacked using \fIinc\fR.

  If the \fIname\fR given to the `\-file\ name' switch exists,