home *** CD-ROM | disk | FTP | other *** search
/ zipcon.net / www.zipcon.net.tar / www.zipcon.net / pub / linux / pine-4.43-maildir.patch < prev    next >
Text File  |  2002-02-28  |  46KB  |  1,403 lines
  1. diff -Nur pine4.43/README.maildir pine4.43-maildir/README.maildir
  2. --- pine4.43/README.maildir    Thu Jan  1 01:00:00 1970
  3. +++ pine4.43-maildir/README.maildir    Wed Dec  5 09:32:47 2001
  4. @@ -0,0 +1,93 @@
  5. +Pine 4.0x Maildir c-client module
  6. +---------------------------------
  7. +
  8. +Written by Mattias Larsson <ml@techno.org> <mta@freeit.com>
  9. +
  10. +This is the second release of my Maildir driver for Pine 4. It is based
  11. +on Eric Greens IMAP2bis Maildir driver.
  12. +
  13. +PLEASE NOTE that this driver has only been tested in the IMAP4rev1 daemon
  14. +before. It was just put into Pine 4.00, and it looks like it works, but it
  15. +has not been extensively tested. It has been running for 8 months in
  16. +production in our IMAP4 daemon though.
  17. +
  18. +PLEASE NOTE:
  19. +
  20. +This driver needs to store the UID's of the message in the file somehow. In
  21. +the earlier versions of this driver this was done by adding a new maildir
  22. +flag (the ,3 flag), however, this solution was not very good since most
  23. +other clients could not handle it. Thus I had to find another solution. In
  24. +this driver I use a pretty radical method. Any file in the maildir with the
  25. +execute bit set has its UID set in the mtime of the file. So you should not
  26. +edit the files in here, or in any otherway update the mtime, because then
  27. +the UID gets changed. Most clients should not do this, so I think this
  28. +solution is compatible with most other clients (if you find one that isn't,
  29. +let me know). If you for some reason have to edit a file in the Maildir,
  30. +delete the ".uidvalidity" file in the root of the Maildir (ie, the dir where
  31. +you find cur/ new/ and tmp/). Alternatively, edit maildir.c and define the
  32. +NO_UID_VALIDITY option, which will cause the Maildir to get set new UID's on
  33. +every start up. Note that if you are running IMAP and Netscape as a client,
  34. +you can't change the UID's, because Netscape do not support the UID validity
  35. +flag in the IMAP protocol. So use this with care. 
  36. +
  37. +Please edit the maildir.c file in any case. There are 3 options you can
  38. +set yourself. The default configuration is not suitable for ISPs. If you are
  39. +an ISP, or system with many users, you might want to consider setting some
  40. +of the options different.
  41. +
  42. +Ohh, if there are problems compiling it, let me know, and please let me know
  43. +what you did to fix it. This thing was developed on Solaris (using both GCC
  44. +and SunCC, should work with both), but I haven't tried it on any other
  45. +platform. It is also known to compile cleanly on Linux RH5.1
  46. +
  47. +CONFIGURATION
  48. +-------------
  49. +
  50. +There are a few configurable options. You find these at the top of the
  51. +maildir.c file (and it can be found in imap/src/osdep/unix if I'm not all
  52. +mistaken). Right now, two options are configurable. By default it is
  53. +configured for ISP use, something that you might want to change if you use
  54. +it at home.
  55. +
  56. +HOW TO USE
  57. +----------
  58. +
  59. +Use it as any other c-client driver. There is some option you want to change
  60. +if you want all folders to be created as Maildirs (and I can't remember what
  61. +the option is from the top of my head). Read the pine documentation.
  62. +
  63. +CHANGES
  64. +-------
  65. +
  66. +Rel 4.  Coredump problem fixed. In release 3 I decided to user the sparep
  67. +    in the message cache so no patching of mail.h would be necessary,
  68. +    however, PINE uses this pointer internally for other things, causing
  69. +    coredumps when used with the Rel 3. patch.
  70. +
  71. +Rel 3.    New way of storing UID's (compatible with ,2 clients).
  72. +    Multiple inbox patches applied
  73. +
  74. +Rel 2.  Pine 4 changes.
  75. +
  76. +Rel 1.  Imap4rev 1 driver
  77. +
  78. +FINAL NOTES
  79. +-----------
  80. +
  81. +I'll try to maintain and release new versions as soon as I have time over,
  82. +which unfortunately does not happen very often in this business ;)
  83. +
  84. +You can (might) find newer versions of this driver at:
  85. +
  86. +http://www.freeit.com/mta/
  87. +
  88. +
  89. +Regards,
  90. +Daniel Mattias Larsson
  91. +
  92. +e-mail: ml@techno.org
  93. +ph: +46-707-268785
  94. +snail-mail:
  95. +Industrivagen 4
  96. +SE-194 77 Upplands Vasby
  97. +SWEDEN
  98. diff -Nur pine4.43/imap/src/c-client/mail.h pine4.43-maildir/imap/src/c-client/mail.h
  99. --- pine4.43/imap/src/c-client/mail.h    Tue Nov 13 20:50:10 2001
  100. +++ pine4.43-maildir/imap/src/c-client/mail.h    Wed Dec  5 09:32:47 2001
  101. @@ -692,6 +692,7 @@
  102.    unsigned int spare2 : 1;    /* second spare bit */
  103.    unsigned int spare3 : 1;    /* third spare bit */
  104.    void *sparep;            /* spare pointer */
  105. +  void *maildirp;        /* for the Maildir driver */
  106.    unsigned long user_flags;    /* user-assignable flags */
  107.  } MESSAGECACHE;
  108.  
  109. diff -Nur pine4.43/imap/src/osdep/unix/Makefile pine4.43-maildir/imap/src/osdep/unix/Makefile
  110. --- pine4.43/imap/src/osdep/unix/Makefile    Wed Nov  7 01:23:48 2001
  111. +++ pine4.43-maildir/imap/src/osdep/unix/Makefile    Wed Dec  5 09:54:38 2001
  112. @@ -21,7 +21,7 @@
  113.  # Command line build parameters
  114.  
  115.  EXTRAAUTHENTICATORS=
  116. -EXTRADRIVERS=mbox
  117. +EXTRADRIVERS=maildir mbox
  118.  PASSWDTYPE=std
  119.  SSLTYPE=none
  120.  
  121. @@ -105,7 +105,7 @@
  122.  # Standard distribution build parameters
  123.  
  124.  DEFAULTAUTHENTICATORS=md5 pla log
  125. -DEFAULTDRIVERS=imap nntp pop3 mh mx mbx tenex mtx mmdf unix news phile
  126. +DEFAULTDRIVERS=maildir imap nntp pop3 mh mx mbx tenex mtx mmdf unix news phile
  127.  
  128.  
  129.  # Normally no need to change any of these
  130. @@ -114,7 +114,7 @@
  131.  BINARIES=mail.o misc.o newsrc.o smanager.o osdep.o utf8.o siglocal.o \
  132.   dummy.o pseudo.o netmsg.o flstring.o fdstring.o \
  133.   rfc822.o nntp.o smtp.o imap4r1.o pop3.o \
  134. - unix.o mbox.o mbx.o mmdf.o tenex.o mtx.o news.o phile.o mh.o mx.o
  135. + unix.o mbox.o mbx.o mmdf.o tenex.o mtx.o news.o phile.o mh.o mx.o maildir.o
  136.  CFLAGS=-g
  137.  
  138.  CAT=cat
  139. @@ -808,7 +808,7 @@
  140.  tenex.o: mail.h misc.h osdep.h tenex.h dummy.h
  141.  unix.o: mail.h misc.h osdep.h unix.h pseudo.h dummy.h
  142.  utf8.o: mail.h misc.h osdep.h utf8.h
  143. -
  144. +maildir.o: mail.h misc.h osdep.h maildir.h dummy.h
  145.  
  146.  # OS-dependent
  147.  
  148. diff -Nur pine4.43/imap/src/osdep/unix/dummy.c pine4.43-maildir/imap/src/osdep/unix/dummy.c
  149. --- pine4.43/imap/src/osdep/unix/dummy.c    Sat Oct 27 08:15:23 2001
  150. +++ pine4.43-maildir/imap/src/osdep/unix/dummy.c    Wed Dec  5 10:04:15 2001
  151. @@ -341,13 +341,17 @@
  152.    char tmp[MAILTMPLEN];
  153.                  /* don't \NoSelect dir if it has a driver */
  154.    if ((attributes & LATT_NOSELECT) && (d = mail_valid (NIL,name,NIL)) &&
  155. -      (d != &dummydriver)) attributes &= ~LATT_NOSELECT;
  156. +      (d != &dummydriver)) {
  157. +    attributes &= ~LATT_NOSELECT; 
  158. +    attributes |= LATT_NOINFERIORS;
  159. +  }      
  160.    if (!contents ||        /* notify main program */
  161.        (!(attributes & LATT_NOSELECT) && (csiz = strlen (contents)) &&
  162.         !stat (dummy_file (tmp,name),&sbuf) && (csiz <= sbuf.st_size) &&
  163.         SAFE_SCAN_CONTENTS (d,tmp,contents,csiz,sbuf.st_size)))
  164.      mm_list (stream,delimiter,name,attributes);
  165. -  return T;
  166. +  if (attributes & LATT_NOINFERIORS) return NIL;
  167. +  else return T;
  168.  }
  169.  
  170.  /* Dummy create mailbox
  171. diff -Nur pine4.43/imap/src/osdep/unix/maildir.c pine4.43-maildir/imap/src/osdep/unix/maildir.c
  172. --- pine4.43/imap/src/osdep/unix/maildir.c    Thu Jan  1 01:00:00 1970
  173. +++ pine4.43-maildir/imap/src/osdep/unix/maildir.c    Wed Dec  5 09:32:47 2001
  174. @@ -0,0 +1,1143 @@
  175. +/*
  176. + * Maildir Module for PINE 4.0x - fourth release, use with CARE! 
  177. + *
  178. + * Author:      Mattias Larsson <ml@techno.org>
  179. + *
  180. + * Version:     21.07.98
  181. + *
  182. + * Please read the README.maildir file before using this module!
  183. + *
  184. + * If you have any questions, please e-mail ml@techno.org 
  185. + *
  186. + * Multiple inboxes patch by Dean Gaudet <dgaudet@arctic.org>
  187. + *
  188. + * =================================================
  189. + *
  190. + * Based on the IMAP2 maildir routines by:
  191. + *
  192. + * Author:      Eric Green
  193. + *              Bloodhounds International Inc.
  194. + *              thrytis@imaxx.net
  195. + *
  196. + * Additional contributions from:
  197. + *              Aidas Kasparas (kaspar@soften.ktu.lt)
  198. + *
  199. + * Date:        27 April 1997
  200. + * Last Edited: 13 June 1997
  201. + *
  202. + * Based (heavily) on mh.c and other c-client library files by Mark Crispin:
  203. + *
  204. + *              Mark Crispin
  205. + *              Networks and Distributed Computing
  206. + *              Computing & Communications
  207. + *              University of Washington
  208. + *              Administration Building, AG-44
  209. + *              Seattle, WA  98195
  210. + *              Internet: MRC@CAC.Washington.EDU
  211. + *
  212. + * Copyright 1995 by the University of Washington
  213. + *
  214. + *  Permission to use, copy, modify, and distribute this software and its
  215. + * documentation for any purpose and without fee is hereby granted, provided
  216. + * that the above copyright notice appears in all copies and that both the
  217. + * above copyright notice and this permission notice appear in supporting
  218. + * documentation, and that the name of the University of Washington not be
  219. + * used in advertising or publicity pertaining to distribution of the software
  220. + * without specific, written prior permission.  This software is made
  221. + * available "as is", and
  222. + * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
  223. + * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
  224. + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
  225. + * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
  226. + * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  227. + * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
  228. + * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
  229. + * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  230. + *
  231. + */
  232. +
  233. +/* CONFIGURABLE OPTIONS - PLEASE CHECK THESE OUT */
  234. +
  235. +#define NO_MAILDIR_FIDDLE    /* disallow Maildir with Maildir in the
  236. +                name. This is useful in an ISP setup
  237. +                using the IMAP daemon. #undef it if you
  238. +                are running a normal pine and know what
  239. +                you are doing */
  240. +
  241. +#define NO_ABSOLUTE_PATHS    /* if you define this, all paths
  242. +                use your HOMEDIR is the root instead
  243. +                of the actual root of the machine. This
  244. +                is also useful in an ISP setup with
  245. +                IMAP */
  246. +
  247. +#undef NO_UID_VALIDITIY        /* define this if you want the UID's not
  248. +                to be persistent over sessions. Use this
  249. +                if you use another client to read the
  250. +                maildir that screws up the special way
  251. +                in which we store UIDs. Do not enable
  252. +                unless you are sure you need it. */
  253. +    
  254. +/* END CONFIGURATION */
  255. +
  256. +#define MTA_DEBUG    /* debugging sent to stdout */
  257. +#undef MTA_DEBUG
  258. +
  259. +#include <stdio.h>
  260. +#include <ctype.h>
  261. +#include <errno.h>
  262. +extern int errno;        /* just in case */
  263. +#include "mail.h"
  264. +#include "osdep.h"
  265. +#include <pwd.h>
  266. +#include <sys/stat.h>
  267. +#include <sys/time.h>
  268. +#include <sys/types.h>
  269. +#include <utime.h>
  270. +#include "maildir.h"
  271. +#include "misc.h"
  272. +#include "dummy.h"
  273. +
  274. +/* Driver dispatch used by MAIL */
  275. +
  276. +DRIVER maildirdriver = {
  277. +  "maildir",            /* driver name */
  278. +                /* driver flags */
  279. +  DR_MAIL|DR_LOCAL|DR_NOFAST|DR_NAMESPACE,
  280. +  (DRIVER *) NIL,        /* next driver */
  281. +  maildir_valid,            /* mailbox is valid for us */
  282. +  maildir_parameters,        /* manipulate parameters */
  283. +  NIL,            /* scan mailboxes */
  284. +  maildir_list,            /* find mailboxes */
  285. +  maildir_lsub,            /* find subscribed mailboxes */
  286. +  maildir_sub,            /* subscribe to mailbox */
  287. +  maildir_unsub,        /* unsubscribe from mailbox */
  288. +  maildir_create,            /* create mailbox */
  289. +  maildir_delete,            /* delete mailbox */
  290. +  maildir_rename,            /* rename mailbox */
  291. +  NIL,                /* status of mailbox */
  292. +  maildir_open,            /* open mailbox */
  293. +  maildir_close,        /* close mailbox */
  294. +  maildir_fast,            /* fetch message "fast" attributes */
  295. +  NIL,                /* fetch message flags */
  296. +  NIL,                /* fetch overview */
  297. +  NIL,                /* fetch message envelopes */
  298. +  maildir_fetchheader,        /* fetch message header */
  299. +  maildir_fetchtext,        /* fetch message body */
  300. +  NIL,                /* fetch partial message text */
  301. +  NIL,                /* unique identifier */
  302. +  NIL,                /* message number */
  303. +  NIL,                /* modify flags */
  304. +  maildir_flagmsg,        /* per-message modify flags */
  305. +  NIL,                /* search for message based on criteria */
  306. +  NIL,                /* sort messages */
  307. +  NIL,                /* thread messages */
  308. +  maildir_ping,            /* ping mailbox to see if still alive */
  309. +  maildir_check,        /* check for new messages */
  310. +  maildir_expunge,            /* expunge deleted messages */
  311. +  maildir_copy,            /* copy messages to another mailbox */
  312. +  maildir_append,            /* append string message to mailbox */
  313. +  maildir_gc                /* garbage collect stream */
  314. +};
  315. +
  316. +                /* prototype stream */
  317. +MAILSTREAM maildirproto = {&maildirdriver};
  318. +
  319. +/* Check validity of mailbox
  320. + */
  321. + 
  322. +DRIVER *maildir_valid (char *name)
  323. +{
  324. +  return maildir_isvalid(name,T) ? &maildirdriver : NIL;
  325. +}
  326. +
  327. +int maildir_isvalid (char *name,long justname)
  328. +{
  329. +  char tmp[MAILTMPLEN];
  330. +  struct stat sbuf;
  331. +  
  332. +  if (!name || (!*name) || 
  333. +      ((*name == '#') && 
  334. +       (*(name+1) == 0 ||
  335. +    (*(name+1) != 'm' && *(name+1) != 'M') ||
  336. +    (*(name+2) != 'd' && *(name+1) != 'D') ||
  337. +    *(name+3) != '/')) || (*name == '.'))
  338. +    return NIL;
  339. +  
  340. +  /* okay, anything containing the name Maildir will be ignored
  341. +     this is to prevent anyone from fiddling with their incoming Maildir
  342. +     directly, it should be accessed via the INBOX alias */
  343. +
  344. +  #ifdef NO_MAILDIR_FIDDLE
  345. +  if (strstr(name, "Maildir")) {
  346. +    return NIL; 
  347. +    }
  348. +  #endif
  349. +                 /* If we are requested only to check 
  350. +                     if the name is appropriate then we
  351. +                     have done! */
  352. +  if (justname && *name == '#') return T;
  353. +  
  354. +
  355. +                /* must be valid local mailbox */
  356. +  if ((*name != '*') && (*name != '{') &&
  357. +      maildir_file (tmp,name) &&
  358. +                /* assume its maildir if its a dir */
  359. +      stat (tmp,&sbuf) == 0 && S_ISDIR (sbuf.st_mode))
  360. +    return T;
  361. +
  362. +                /* INBOX is for default Maildir */
  363. +  if (!strcmp (ucase (strcpy (tmp,name)), "INBOX") &&
  364. +      (stat (maildir_file (tmp,name),&sbuf) == 0) &&
  365. +      S_ISDIR (sbuf.st_mode))
  366. +    return T;
  367. +
  368. +  return NIL;
  369. +}
  370. +
  371. +/* Maildir mail generate file string
  372. + */
  373. +
  374. +char *maildir_file (char *dst,char *name)
  375. +{
  376. +  char tmp[MAILTMPLEN];
  377. +  
  378. +  if (strlen (name) > 3 &&    /* safe do other comparisons */
  379. +      (*name == '#') &&
  380. +      (name[1] == 'm' || name[1] == 'M') &&
  381. +      (name[2] == 'd' || name[2] == 'D') &&
  382. +      (name[3] == '/'))
  383. +    name += 4;
  384. +
  385. +#ifdef NO_ABSOLUTE_PATHS  
  386. +  if (*name == '/') {    
  387. +  /* we do not want to accept / absolute paths, so lets strip the first
  388. +     / ... */
  389. +    sprintf(dst,"%s/%s/cur", myhomedir(), name+1);
  390. +
  391. +/*    strncpy (dst, name, MAILTMPLEN - 2);
  392. +    strncat (dst, "/cur", MAILTMPLEN - 2);
  393. +    dst[MAILTMPLEN - 1] = '\0'; */
  394. +  }
  395. +  else
  396. +    sprintf (dst,"%s/%s/cur",myhomedir (),
  397. +        strcmp (ucase (strcpy (tmp, name)), "INBOX") ? name : MAILDIRPATH);
  398. +#else
  399. +  if (*name == '/') {    
  400. +    strncpy (dst, name, MAILTMPLEN - 2);
  401. +    strncat (dst, "/cur", MAILTMPLEN - 2);
  402. +    dst[MAILTMPLEN - 1] = '\0';
  403. +  }
  404. +  else
  405. +    sprintf (dst,"%s/%s/cur",myhomedir (),
  406. +        strcmp (ucase (strcpy (tmp, name)), "INBOX") ? name : MAILDIRPATH);
  407. +
  408. +#endif 
  409. +  
  410. +  #ifdef MTA_DEBUG
  411. +  printf("maildir_file '%s'\n", dst);
  412. +  #endif
  413. +  return dst;
  414. +}
  415. +
  416. +/* Maildir open
  417. + */
  418. + 
  419. +MAILSTREAM *maildir_open (MAILSTREAM *stream)
  420. +{
  421. + char tmp[MAILTMPLEN],tmp2[MAILTMPLEN];
  422. +
  423. + if (!stream) return &maildirproto;
  424. + if (LOCAL) {        /* recycle stream */
  425. +    maildir_close (stream, 0);
  426. +    stream->dtb = &maildirdriver;
  427. +    mail_free_cache (stream);
  428. +    stream->uid_last = 0;       /* default UID validity */
  429. +    stream->uid_validity = time (0);
  430. +    }
  431. +
  432. +    stream->uid_validity = 0; /* was time(0) */
  433. +
  434. +  if (stream->uid_last < time(0))
  435. +      stream->uid_last = time (0);  
  436. +  
  437. +    stream->local = fs_get (sizeof (MAILDIRLOCAL));
  438. +  LOCAL->inbox = !strcmp (ucase (strcpy (tmp,stream->mailbox)),"INBOX") ||
  439. +      !strcmp (stream->mailbox,maildir_file (tmp2,"INBOX"));
  440. +  LOCAL->dir = cpystr (maildir_file (tmp,stream->mailbox)); /* copy dir name */
  441. +                                /* make temporary buffer */
  442. +  LOCAL->buf = (char *) fs_get ((LOCAL->buflen = MAXMESSAGESIZE) + 1);
  443. +  LOCAL->scantime = 0;          /* not scanned yet */
  444. +  stream->sequence++;
  445. +  stream->nmsgs = stream->recent = 0;
  446. +
  447. +  maildir_ping_core (stream);
  448. +  maildir_ping (stream);
  449. +/*  if (maildir_ping (stream) && !(stream->nmsgs || stream->silent))
  450. +    printf("Mailbox is empty\n");
  451. +*/
  452. +  return stream;
  453. +
  454. +}
  455. +
  456. +/* Maildir ping mailbox
  457. + */
  458. +
  459. +long maildir_ping_core (MAILSTREAM *stream)
  460. +{
  461. +  char tmp[MAILTMPLEN];
  462. +  MESSAGECACHE *elt;
  463. +  struct stat sbuf, sbuf2;
  464. +  DIR *dir;
  465. +  struct direct *d;
  466. +  int reloadall = NIL;
  467. +  int uidinvalid = NIL;
  468. +  unsigned long old;
  469. +  long i;
  470. +  long nmsgs = stream->nmsgs;
  471. +  long recent = stream->recent;
  472. +  long nfiles = stream->nmsgs;
  473. +  int silent = stream->silent;
  474. +  char *s, *s2;
  475. +  mailcache_t mc = (mailcache_t) mail_parameters (NIL,GET_CACHE,NIL);
  476. +
  477. +/*  maildir_copynew (LOCAL->dir);
  478. + */
  479. +  
  480. +  if (stat (LOCAL->dir,&sbuf) < 0) {
  481. +    sprintf (tmp,"Unable to open maildir: %s",strerror (errno));
  482. +    mm_log (tmp,ERROR);
  483. +    return NIL;
  484. +  }
  485. +
  486. +  /* okay, lets try to figure out the Maildir UID validity. This is done
  487. +     by checking the last modification time of the file .uidvalidity
  488. +     in the rootdir of the Maildir. Any program reordering the files
  489. +     in the directory have to touch this file */
  490. +
  491. +  sprintf(tmp, "%s/../.uidvalidity", LOCAL->dir);
  492. +  
  493. +  if (stat (tmp,&sbuf2) < 0) {
  494. +    /* no uid validity file found, if uid_validity == 0, we have
  495. +       to set it to something other than 0, and then create the
  496. +       .uidvalidity file for future accesses */
  497. +
  498. +    if (stream->uid_validity == 0) {
  499. +        FILE *fl;
  500. +        struct utimbuf tbuf;
  501. +        
  502. +        stream->uid_validity = time(0);
  503. +        tbuf.actime = stream->uid_validity;
  504. +        tbuf.modtime = stream->uid_validity;
  505. +
  506. +        if ((fl = fopen(tmp, "w"))) {
  507. +            fclose(fl);
  508. +            chmod (tmp, S_IRUSR|S_IWUSR);
  509. +            utime(tmp, &tbuf);
  510. +            }
  511. +        }
  512. +        uidinvalid = T; /* UID's are invalid, update them */
  513. +    } else {
  514. +    /* valid file, lets set UID if uid_validity = 0 */
  515. +    if (stream->uid_validity == 0) {
  516. +    stream->uid_validity = sbuf2.st_mtime;
  517. +        }
  518. +    }
  519. +
  520. +  #ifdef NO_UID_VALIDITY
  521. +  uidinvalid = T; /* force the UIDs to be invalid and reset every time,
  522. +               useful in an environment without imap servers and
  523. +               clients that screw up the UIDs.. i'd leave it to
  524. +               OFF until I really need it though... */
  525. +  #endif
  526. +
  527. +  stream->silent = T;  
  528. +  if (sbuf.st_ctime != LOCAL->scantime) {
  529. +    /* update the message list */
  530. +    struct direct **names = NIL;
  531. +    nfiles = scandir (LOCAL->dir,&names,maildir_select,maildir_namesort);
  532. +
  533. +    for (i = 0; i < nfiles; i++) {
  534. +
  535. +    /* check if file has executable bit set */
  536. +    sprintf(tmp, "%s/%s", LOCAL->dir, names[i]->d_name);
  537. +      stat (tmp,&sbuf2);
  538. +    if (sbuf2.st_mode & S_IXUSR) {
  539. +        /* executable bit set, modtime is uid */
  540. +        if (sbuf2.st_mtime > stream->uid_last)
  541. +            stream->uid_last = sbuf2.st_mtime+1;
  542. +        }
  543. +    /* this is kept for backwards compatibility */
  544. +        if ((s = strstr (names[i]->d_name,":3,")))
  545. +        s += 3;
  546. +        if (s && (s2 = strstr (s, ",U"))) {
  547. +              s2 += 2;
  548. +        sscanf(s2, "%d", &old);
  549. +        if (old > stream->uid_last) {
  550. +            stream->uid_last = old+1;
  551. +            }
  552. +        }    
  553. +    
  554. +    }
  555. +
  556. +    mm_critical (stream);    /* go critical */
  557. +    old = stream->uid_last;
  558. +    LOCAL->scantime = sbuf.st_ctime;
  559. +
  560. +                /* check if old files same */
  561. +    for (i = 0; i < stream->nmsgs; i++) {
  562. +
  563. +      if (strcmp ((char *) mail_elt (stream, i + 1)->maildirp,
  564. +          names[i]->d_name)) {
  565. +    reloadall = T;
  566. +    break;
  567. +      }
  568. +    }
  569. +
  570. +    if (reloadall) { /* files are out of order, rebuild cache */
  571. +
  572. +      i = 1;
  573. +      while (i <= stream->nmsgs)
  574. +                /* clean out cache */
  575. +    if ((elt = (MESSAGECACHE *) (*mc) (stream,i,CH_ELT))) {
  576. +      fs_give ((void **) &elt->maildirp);
  577. +      mail_expunged (stream,i);
  578. +    }
  579. +    else
  580. +      i++;
  581. +      
  582. +      mm_log ("Warning: Mailbox has changed in an unexpected way.  Reloading.",
  583. +          WARN);
  584. +      stream->nmsgs = 0;
  585. +    }
  586. +    nmsgs = stream->nmsgs;
  587. +    
  588. +    stream->nmsgs = nfiles; /* hm? */    
  589. +
  590. +    for (i = nmsgs; i < nfiles; i++) {
  591. +
  592. +      mail_exists(stream, i+1);
  593. +                /* if newly seen, add to list */
  594. +      (elt = mail_elt (stream, i + 1))->maildirp = (long) cpystr (names[i]->d_name);
  595. +       elt->valid = T;
  596. +
  597. +      /* grab the flags */
  598. +      if ((s = strstr (names[i]->d_name,":3,"))) {
  599. +    s += 3;
  600. +    if (strchr (s,'F'))
  601. +      elt->flagged = T;
  602. +    if (strchr (s,'R'))
  603. +      elt->answered = T;
  604. +    if (strchr (s,'S'))
  605. +      elt->seen = T;
  606. +    if (strchr (s,'T'))
  607. +      elt->deleted = T;
  608. +      } else if ((s = strstr (names[i]->d_name,":2,"))) {
  609. +    /* this is the :2, id where all files go nowadays */
  610. +    s += 3;
  611. +    if (strchr (s,'F'))
  612. +      elt->flagged = T;
  613. +    if (strchr (s,'R'))
  614. +      elt->answered = T;
  615. +    if (strchr (s,'S'))
  616. +      elt->seen = T;
  617. +    if (strchr (s,'T'))
  618. +      elt->deleted = T;
  619. +    sprintf(tmp, "%s/%s", LOCAL->dir, names[i]->d_name);
  620. +      stat (tmp,&sbuf2);
  621. +    if (sbuf2.st_mode & S_IXUSR) {
  622. +        /* executable bit set, modtime is uid */
  623. +        elt->private.uid = sbuf2.st_mtime;
  624. +        }
  625. +    /* and if we could not retrieve UID from modtime, or if
  626. +       UIDs are invalid, go here */
  627. +    if (elt->private.uid == 0 || uidinvalid) {
  628. +            stream->uid_last = (elt = mail_elt (stream,i+1))->private.uid = stream->uid_last+1;
  629. +        maildir_flagmsg(stream, elt);
  630. +        }    
  631. +    s = 0; /* make sure next if statement does not trigger */      
  632. +          }
  633. +
  634. +      if (s)
  635. +      if ((s2 = strstr (s, ",U"))) {
  636. +          s2 += 2;
  637. +    sscanf(s2, "%d", &elt->private.uid);
  638. +    if (elt->private.uid == 0 || uidinvalid) {
  639. +            stream->uid_last = (elt = mail_elt (stream,i+1))->private.uid = stream->uid_last+1;
  640. +        maildir_flagmsg(stream, elt);
  641. +        }    
  642. +    
  643. +          } else { /* assign new UID */
  644. +        stream->uid_last = (elt = mail_elt (stream,i+1))->private.uid = stream->uid_last+1;
  645. +    elt->recent = T;
  646. +    recent++;
  647. +    maildir_flagmsg(stream, elt); /* store the UID that we assigned to it */
  648. +    }    
  649. +
  650. +
  651. +
  652. +    }
  653. +
  654. +    mm_nocritical (stream);    /* release critical */
  655. +                /* free the names stuff */
  656. +    for (i = 0; i < nfiles; i++)
  657. +      fs_give ((void **) &names[i]);
  658. +    if (names)
  659. +      fs_give ((void **) &names);
  660. +  }
  661. +  stream->silent = silent;
  662. +  mail_exists(stream,nfiles);
  663. +/*  if (!reloadall)  */
  664. +      mail_recent (stream,recent);
  665. +
  666. +  return T;            /* return that we are alive */
  667. +}
  668. +
  669. +long maildir_ping (MAILSTREAM *stream)
  670. +{
  671. +  maildir_copynew (LOCAL->dir);
  672. +  return maildir_ping_core (stream);
  673. +}
  674. +
  675. +void maildir_copynew (const char *mailbox)
  676. +{
  677. +  char tmp[MAILTMPLEN],file[MAILTMPLEN],newfile[MAILTMPLEN];
  678. +  DIR *dir;
  679. +  struct dirent *d;
  680. +  struct stat sbuf;
  681. +  
  682. +  sprintf (tmp,"%s/../new",mailbox);
  683. +  if (!(dir = opendir (tmp)))
  684. +    return;
  685. +
  686. +  while (d = readdir (dir)) {
  687. +    if (d->d_name[0] == '.')
  688. +      continue;            /* skip .files */
  689. +
  690. +    sprintf (file,"%s/%s",tmp,d->d_name);
  691. +                /* make sure this is a normal file */
  692. +    if (stat (file,&sbuf) == 0 && S_ISREG (sbuf.st_mode)) {
  693. +      
  694. +      if (strstr (d->d_name,":3,")) /* this message already has flags */
  695. +    sprintf (newfile,"%s/%s",mailbox,d->d_name);
  696. +      else
  697. +    sprintf (newfile,"%s/%s:3,",mailbox,d->d_name);
  698. +      
  699. +                /* move the new mail to the cur dir */
  700. +      if (link (file,newfile) == -1)
  701. +    mm_log("Unable to read new mail!",WARN);
  702. +      else
  703. +    unlink (file);    
  704. +    }
  705. +  }
  706. +  closedir (dir);
  707. +}
  708. +
  709. +int maildir_select (struct direct *name)
  710. +{
  711. +  if (name->d_name[0] != '.')
  712. +    return T;
  713. +
  714. +  return NIL;
  715. +}
  716. +
  717. +int maildir_namesort (struct direct **d1,struct direct **d2)
  718. +{
  719. +/* this maildir module is kind of lame and expects files it just moved
  720. + * from new/ to cur/ to show up at the end of the sorting... this mostly
  721. + * works fine when the timestamp is less than 1000000000 -- you can just
  722. + * strcmp.  but when the timestamp went past that point we need to do
  723. + * this convoluted sort.
  724. + */
  725. +  unsigned long t1, t2;
  726. +
  727. +  t1 = strtoul((*d1)->d_name, NULL, 10);
  728. +  t2 = strtoul((*d2)->d_name, NULL, 10);
  729. +  if (t1 == t2) {
  730. +    return strcmp ((*d1)->d_name,(*d2)->d_name);
  731. +  }
  732. +  else if (t1 > t2) {
  733. +    return 1;
  734. +  }
  735. +  return -1;
  736. +}
  737. +
  738. +
  739. +/* Maildir garbage collect stream
  740. + */
  741. +
  742. +void maildir_gc (MAILSTREAM *stream,long gcflags)
  743. +{
  744. +  unsigned long i;
  745. +  
  746. +  if (gcflags & GC_TEXTS) {    /* garbage collect texts? */
  747. +                /* flush texts from cache */
  748. +/*    if (LOCAL->hdr) fs_give ((void **) &LOCAL->hdr);
  749. +//    if (stream->text) fs_give ((void **) &stream->text);
  750. +//    stream->msgno = 0;        invalidate stream text
  751. +*/
  752. +  }
  753. +}
  754. +
  755. +/* Maildir close
  756. + */
  757. +
  758. +void maildir_close (MAILSTREAM *stream, long options)
  759. +{
  760. +  MESSAGECACHE *elt;
  761. +  int i;
  762. +  mailcache_t mc = (mailcache_t) mail_parameters (NIL,GET_CACHE,NIL);
  763. + 
  764. +/*  CL_EXPUNGE OPTION SUPPORT HERE SOMEWHERE! */
  765. +                /* clean out the cached paths */
  766. +  for (i = 1; i <= stream->nmsgs; i++)
  767. +    if ((elt = (MESSAGECACHE *) (*mc) (stream,i,CH_ELT)) && elt->maildirp) {
  768. +      fs_give ((void **) &elt->maildirp);
  769. +      elt->maildirp = 0; /* otherwise pine coredumps */  
  770. +    }  
  771. +  
  772. +  if (LOCAL) {            /* only if a stream is open */
  773. +    if (LOCAL->dir) fs_give ((void **) &LOCAL->dir);
  774. +    maildir_gc (stream,GC_TEXTS); /* free local cache */
  775. +                /* free local scratch buffer */
  776. +    if (LOCAL->buf) fs_give ((void **) &LOCAL->buf);
  777. +                /* nuke the local data */
  778. +    fs_give ((void **) &stream->local);
  779. +    stream->dtb = NIL;        /* log out the DTB */
  780. +  }
  781. +}
  782. +
  783. +void maildir_check (MAILSTREAM *stream)
  784. +{
  785. +  /* Perhaps in the future this will preserve flags */
  786. +  if (maildir_ping (stream)) mm_log ("Check completed",(long) NIL);   
  787. +}
  788. +
  789. +long maildir_fetchtext (MAILSTREAM *stream,unsigned long msgno,STRING *bs, long flags)
  790. +{
  791. +  unsigned long i;
  792. +  MESSAGECACHE *elt;
  793. +                                /* UID call "impossible" */
  794. +  if (flags & FT_UID) return NIL;
  795. +  elt = mail_elt (stream,msgno);/* get elt */
  796. +                                /* snarf message if don't have it yet */
  797. +  if (!elt->private.msg.text.text.data) {
  798. +    maildir_fetchheader (stream,msgno,&i,flags);
  799. +    if (!elt->private.msg.text.text.data) return NIL;
  800. +  }
  801. +  if (!(flags & FT_PEEK)) {     /* mark as seen */
  802. +    mail_elt (stream,msgno)->seen = T;
  803. +    maildir_flagmsg (stream, mail_elt(stream,msgno));
  804. +    mm_flags (stream,msgno);
  805. +  }
  806. +  if (!elt->private.msg.text.text.data) return NIL;
  807. +  INIT (bs,mail_string,elt->private.msg.text.text.data,
  808. +        elt->private.msg.text.text.size);
  809. +  return T;
  810. +}
  811. +
  812. +
  813. +/* Maildir fetch message header
  814. + */
  815. +
  816. +char *maildir_fetchheader (MAILSTREAM *stream,unsigned long msgno,
  817. +        unsigned long *length, long flags)
  818. +{
  819. +  unsigned long i,hdrsize;
  820. +  int fd;
  821. +  char *t;
  822. +  char tmp[MAILTMPLEN];
  823. +  char *s,*b;
  824. +  struct stat sbuf;
  825. +  struct tm *tm;
  826. +  MESSAGECACHE *elt;
  827. +  *length = 0;                  /* default to empty */
  828. +  if (flags & FT_UID) return "";/* UID call "impossible" */
  829. +  elt = mail_elt (stream,msgno);/* get elt */
  830. +  if (!elt->private.msg.header.text.data) {
  831. +
  832. +/*    maildir_gc (stream,GC_TEXTS);  invalidate current cache */
  833. +                /* build message file name */
  834. +    sprintf (tmp,"%s/%s",LOCAL->dir,(char *) elt->maildirp);
  835. +    if ((fd = open (tmp,O_RDONLY,NIL)) >= 0) {
  836. +      fstat (fd,&sbuf);        /* get size of message */
  837. +                /* make plausible IMAPish date string */
  838. +      tm = gmtime (&sbuf.st_mtime);
  839. +      elt->day = tm->tm_mday; elt->month = tm->tm_mon + 1;
  840. +      elt->year = tm->tm_year + 1900 - BASEYEAR;
  841. +      elt->hours = tm->tm_hour; elt->minutes = tm->tm_min;
  842. +      elt->seconds = tm->tm_sec;
  843. +      elt->zhours = 0; elt->zminutes = 0;
  844. +                /* slurp message */
  845. +      read (fd,s = (char *) fs_get (sbuf.st_size + 1),sbuf.st_size);
  846. +      s[sbuf.st_size] = '\0';    /* tie off file */
  847. +      close (fd);        /* close file */
  848. +
  849. +      for (i = 0,b = s; *b && !(i && (*b == '\n')); i = (*b++ == '\n'));
  850. +      hdrsize = (*b ? ++b:b)-s;    /* number of header bytes */
  851. +
  852. +      elt->rfc822_size =          /* size of entire message in CRLF form */
  853. +       (elt->private.msg.header.text.size =
  854. +        strcrlfcpy ((char **) &elt->private.msg.header.text.data,&i,s,
  855. +                    hdrsize)) +
  856. +          (elt->private.msg.text.text.size =
  857. +           strcrlfcpy ((char **) &elt->private.msg.text.text.data,&i,b,
  858. +                       sbuf.st_size - hdrsize));
  859. +      fs_give ((void **) &s);
  860. +    } else return "";
  861. +
  862. +  }
  863. +
  864. +  *length = elt->private.msg.header.text.size;
  865. +  return (char *) elt->private.msg.header.text.data;
  866. +}
  867. +
  868. +void maildir_fast (MAILSTREAM *stream,char *sequence,long flags)
  869. +{
  870. +  unsigned long i,j;
  871. +                /* ugly and slow */
  872. +  if (stream && LOCAL && ((flags & FT_UID) ?
  873. +              mail_uid_sequence (stream,sequence) :
  874. +              mail_sequence (stream,sequence)))
  875. +    for (i = 1; i <= stream->nmsgs; i++)
  876. +      if (mail_elt (stream,i)->sequence) maildir_fetchheader (stream,i,&j,NIL);
  877. +}
  878. +
  879. +/* Maildir find list of subscribed mailboxes
  880. + * Accepts: mail stream
  881. + *        pattern to search
  882. + */
  883. +
  884. +void maildir_list (MAILSTREAM *stream,char *ref, char *pat)
  885. +{
  886. +  return;
  887. +}
  888. +
  889. +void *maildir_parameters (long function,void *value)
  890. +{
  891. +  return NIL;
  892. +}
  893. +
  894. +long maildir_create (MAILSTREAM *stream,char *mailbox)
  895. +{
  896. +  char tmp[MAILTMPLEN];
  897. +  char err[MAILTMPLEN];
  898. +  char *s, *s2;
  899. +  int fnlen, i;
  900. +  char *subdir_names[] = {"/cur","/new","/tmp",NULL};
  901. +
  902. +                /* must not already exist */
  903. +  if (access (maildir_file (tmp,mailbox),F_OK) == 0) {
  904. +    sprintf (err,"Can't create mailbox %s: mailbox already exists",mailbox);
  905. +    mm_log (err,ERROR);
  906. +    return NIL;
  907. +  }
  908. +  
  909. +  maildir_file (tmp,mailbox);    /* get file name */
  910. +  fnlen = strlen (tmp);
  911. +  /*syslog(LOG_INFO, "fname: '%s'", tmp);*/
  912. +  tmp[fnlen - 4] = '\0';    /* making main directory's name */
  913. +  fnlen -= 4;
  914. +
  915. +  /* okay, try to add support for adding hiearchys of directories, this
  916. +     is done by scanning for /'s.... */
  917. +     
  918. +  /*syslog(LOG_INFO, "tmp '%s'", tmp);*/
  919. +  s = tmp;
  920. +
  921. +  while ((s = strstr(s, "/")) != 0) {
  922. +    /*syslog(LOG_INFO, "Before make: '%s'", s);*/
  923. +      *s = '\0';
  924. +      /*syslog(LOG_INFO, "Trying to make: '%s'", tmp);*/
  925. +    if (mkdir (tmp,0700) && *s != '\0') /* trying to make the dir */
  926. +      if (errno != EEXIST) {
  927. +        sprintf (err,"Can't create mailbox %s: %s %s",
  928. +             mailbox,tmp,strerror (errno));
  929. +             mm_log (err,ERROR);
  930. +             return NIL;
  931. +      }
  932. +      *s = '/';
  933. +    s++;
  934. +      } 
  935. +
  936. +  if (mkdir (tmp,0700)) {    /* try to make new dir */
  937. +    sprintf (err,"Can't create mailbox %s: %s %s",
  938. +         mailbox,tmp,strerror (errno));
  939. +    mm_log (err,ERROR);
  940. +    return NIL;
  941. +  }
  942. +
  943. +  /*syslog(LOG_INFO, "create maildir");*/
  944. +  for (i = 0; subdir_names[i]; i++) {
  945. +    strcpy (tmp + fnlen,subdir_names[i]);
  946. +
  947. +    if (mkdir (tmp,0700)) {    /* try to make new dir */
  948. +      sprintf (err,"Can't create mailbox %s: %s %s",
  949. +           mailbox,tmp,strerror (errno));
  950. +      mm_log (err,ERROR);
  951. +      return NIL;
  952. +    }
  953. +  }
  954. +
  955. +  return T;            /* return success */
  956. +}
  957. +
  958. +void maildir_flagmsg (MAILSTREAM *stream,MESSAGECACHE *elt)
  959. +{
  960. +  char oldfile[MAILTMPLEN],newfile[MAILTMPLEN],fn[MAILTMPLEN];
  961. +  struct utimbuf tbuf;
  962. +  char *s;
  963. +
  964. +                                /* build the new filename */
  965. +  sprintf (oldfile,"%s/%s",LOCAL->dir,(char *) elt->maildirp);
  966. +  if ((s = strchr ((char *) elt->maildirp,':'))) *s = '\0';
  967. +  sprintf (fn,"%s:2,%s%s%s%s",(char *) elt->maildirp,elt->flagged ? "F" : "",
  968. +           elt->answered ? "R" : "",elt->seen ? "S" : "",
  969. +           elt->deleted ? "T" : "");
  970. +  sprintf (newfile,"%s/%s",LOCAL->dir,fn);
  971. +                                /* rename the file with new flags */
  972. +  if (rename (oldfile,newfile) < 0) {
  973. +    sprintf(oldfile,"Unable to write flags to disk: %s",strerror (errno));
  974. +    mm_log(oldfile,ERROR);
  975. +    return;
  976. +  }
  977. +                                /* update the file name in cache */
  978. +  fs_give ((void **) &elt->maildirp);
  979. +  elt->maildirp = (long) cpystr (fn);
  980. +
  981. +  /* fix the UID on the file */
  982. +  tbuf.actime = elt->private.uid;
  983. +  tbuf.modtime = elt->private.uid;
  984. +  chmod (newfile, S_IRUSR|S_IWUSR|S_IXUSR);
  985. +  utime (newfile, &tbuf);
  986. +
  987. +}
  988. +
  989. +void maildir_expunge (MAILSTREAM *stream)
  990. +{
  991. +  MESSAGECACHE *elt;
  992. +  unsigned long i = 1;
  993. +  unsigned long n = 0;
  994. +  unsigned long recent = stream->recent;
  995. +  
  996. +  maildir_gc (stream,GC_TEXTS);    /* invalidate texts */
  997. +  mm_critical (stream);        /* go critical */
  998. +  while (i <= stream->nmsgs) {    /* for each message */
  999. +                /* if deleted, need to trash it */
  1000. +    if ((elt = mail_elt (stream,i))->deleted) {
  1001. +      sprintf (LOCAL->buf,"%s/%s",LOCAL->dir,(char *) elt->maildirp);
  1002. +      if (unlink (LOCAL->buf)) {/* try to delete the message */
  1003. +    sprintf (LOCAL->buf,"Expunge of message %ld failed, aborted: %s",i,
  1004. +         strerror (errno));
  1005. +    mm_log (LOCAL->buf,WARN);
  1006. +    break;
  1007. +      }
  1008. +                /* free the cached filename */
  1009. +      if (elt->maildirp) {
  1010. +          fs_give ((void **) &elt->maildirp);
  1011. +          elt->maildirp = 0; /* otherwise pine coredumps */
  1012. +        }
  1013. +      if (elt->recent) --recent;/* if recent, note one less recent message */
  1014. +      mail_expunged (stream,i);    /* notify upper levels */
  1015. +      n++;            /* count up one more expunged message */
  1016. +    }
  1017. +    else i++;            /* otherwise try next message */
  1018. +  }
  1019. +  if (n) {            /* output the news if any expunged */
  1020. +    sprintf (LOCAL->buf,"Expunged %ld messages",n);
  1021. +    mm_log (LOCAL->buf,(long) NIL);
  1022. +  }
  1023. +  else mm_log ("No messages deleted, so no update needed",(long) NIL);
  1024. +  mm_nocritical (stream);    /* release critical */
  1025. +                /* notify upper level of new mailbox size */
  1026. +  mail_exists (stream,stream->nmsgs);
  1027. +  mail_recent (stream,recent);
  1028. +}
  1029. +
  1030. +/* dont forget to process options in here */
  1031. +long maildir_copy (MAILSTREAM *stream,char *sequence,char *mailbox,long options)
  1032. +{
  1033. +  STRING st;
  1034. +  MESSAGECACHE *elt;
  1035. +  struct stat sbuf;
  1036. +  int fd;
  1037. +  long i;
  1038. +  char *s,tmp[MAILTMPLEN];
  1039. +                /* copy the messages */
  1040. +  if ((options & CP_UID) ? mail_uid_sequence (stream, sequence) : 
  1041. +      mail_sequence (stream,sequence)) 
  1042. +  for (i = 1; i <= stream->nmsgs; i++)
  1043. +    if ((elt = mail_elt (stream,i))->sequence) {
  1044. +      sprintf (LOCAL->buf,"%s/%s",LOCAL->dir,(char *) elt->maildirp);
  1045. +      if ((fd = open (LOCAL->buf,O_RDONLY,NIL)) < 0) return NIL;
  1046. +      fstat (fd,&sbuf);        /* get size of message */
  1047. +                /* slurp message */
  1048. +      read (fd,s = (char *) fs_get (sbuf.st_size +1),sbuf.st_size);
  1049. +      s[sbuf.st_size] = '\0';    /* tie off file */
  1050. +      close (fd);        /* flush message file */
  1051. +      INIT (&st,mail_string,(void *) s,sbuf.st_size);
  1052. +      sprintf (LOCAL->buf,"%s%s%s%s%s)",
  1053. +           elt->seen ? " \\Seen" : "",
  1054. +           elt->deleted ? " \\Deleted" : "",
  1055. +           elt->flagged ? " \\Flagged" : "",
  1056. +           elt->answered ? " \\Answered" : "",
  1057. +           (elt->seen || elt->deleted || elt->flagged || elt->answered) ?
  1058. +           "" : " ");
  1059. +      LOCAL->buf[0] = '(';    /* open list */
  1060. +      mail_date (tmp,elt);    /* generate internal date */
  1061. +      if (!maildir_append (stream,mailbox,LOCAL->buf,tmp,&st)) {
  1062. +    fs_give ((void **) &s);    /* give back temporary space */
  1063. +    return NIL;
  1064. +      }
  1065. +      fs_give ((void **) &s);    /* give back temporary space */
  1066. +    }
  1067. +  return T;            /* return success */
  1068. +}
  1069. +
  1070. +long maildir_append (MAILSTREAM *stream,char *mailbox,char *flags,char *date,
  1071. +           STRING *message)
  1072. +{
  1073. +  int fd;
  1074. +  char c,*s;
  1075. +  char tmp[MAILTMPLEN],file[MAILTMPLEN],path1[MAILTMPLEN],path2[MAILTMPLEN];
  1076. +  MESSAGECACHE elt;
  1077. +  long i;
  1078. +  long size = 0;
  1079. +  long ret = LONGT;
  1080. +  short uf = 0;
  1081. +  
  1082. +  /*  
  1083. +     This is intentionaly made static.  Users can ask to save a LOT of messages
  1084. +     at once and this program can do that within one second. Dan's assumption
  1085. +     that time+pid+hostname always will be unique stops being true in this
  1086. +     case. So we will add yet another number to host part of message file's
  1087. +     name. Hostname is used only to make filename unique and Dan  explicitly
  1088. +     says that "<...>  Other than this [skipping filenames starting at dot] ,
  1089. +     readers should not attempt to parse filenames. <...>". Therefore this 
  1090. +     addition should be no problem. Am I right, Dan?   --AK
  1091. +  */ 
  1092. +  
  1093. +  static unsigned int transact = 0;
  1094. +
  1095. +  if (flags)             /* get flags if given */
  1096. +    uf = maildir_getflags (user_flags (&maildirproto),flags);
  1097. +
  1098. +/*  if (date) {            want to preserve date?
  1099. +    //syslog(LOG_INFO, "date: '%s'", date);
  1100. +                // yes, parse date into an elt
  1101. +    if (!mail_parse_date (&elt,date)) {
  1102. +      sprintf (tmp,"Bad date in append: %s",date);
  1103. +      mm_log (tmp,ERROR);
  1104. +      return NIL;
  1105. +    }
  1106. +  } */
  1107. +                /* N.B.: can't use LOCAL->buf for tmp */
  1108. +                /* make sure valid mailbox */
  1109. +  if (!maildir_isvalid (mailbox, NIL)) {
  1110. +    sprintf (tmp,"Not a valid Maildir mailbox: %s",mailbox);
  1111. +    mm_log (tmp,ERROR);
  1112. +    return NIL;
  1113. +  }
  1114. +                /* build file name we will use */
  1115. +  sprintf (file,"%u.%d.%09u.%s:3,%s%s%s%s",
  1116. +       time (0),getpid (),transact++,mylocalhost (),
  1117. +       uf&fFLAGGED ? "F" : "",uf&fANSWERED ? "R" : "",
  1118. +       uf&fSEEN ? "S" : "",uf&fDELETED ? "T" : "");
  1119. +                /* build tmp file name */
  1120. +  sprintf (path1,"%s/../tmp/%s",maildir_file (tmp,mailbox),file);
  1121. +  
  1122. +  if ((fd = open (path1,O_WRONLY|O_CREAT|O_EXCL,S_IREAD|S_IWRITE)) < 0) {
  1123. +    sprintf (tmp,"Can't open append mailbox: %s",strerror (errno));
  1124. +    mm_log (tmp,ERROR);
  1125. +    return NIL;
  1126. +  }
  1127. +  i = SIZE (message);        /* get size of message */
  1128. +  s = (char *) fs_get (i + 1);    /* get space for the data */
  1129. +                /* copy the data w/o CR's */
  1130. +  while (i--) if ((c = SNX (message)) != '\015') s[size++] = c;
  1131. +  mm_critical (stream);        /* go critical */
  1132. +                /* write the data */
  1133. +  if ((write (fd,s,size) < 0) || fsync (fd)) {
  1134. +    unlink (path1);        /* delete message */
  1135. +    sprintf (tmp,"Message append failed: %s",strerror (errno));
  1136. +    mm_log (tmp,ERROR);
  1137. +    ret = NIL;
  1138. +  }
  1139. +                /* build final filename to use */
  1140. +  sprintf (path2,"%s/../new/%s",maildir_file (tmp,mailbox),file);
  1141. +  if (link (path1,path2) < 0) {
  1142. +    sprintf (tmp,"Message append failed: %s",strerror (errno));
  1143. +    mm_log (tmp,ERROR);
  1144. +    ret = NIL;
  1145. +  }
  1146. +  unlink (path1);
  1147. +  
  1148. +  close (fd);            /* close the file */
  1149. +  mm_nocritical (stream);    /* release critical */
  1150. +  fs_give ((void **) &s);    /* flush the buffer */
  1151. +  return ret;
  1152. +}
  1153. +
  1154. +short bezerk_getflags (MAILSTREAM *stream,char *flag)
  1155. +{
  1156. +  char *t,tmp[MAILTMPLEN],err[MAILTMPLEN];
  1157. +  short f = 0;
  1158. +  short i,j;
  1159. +  if (flag && *flag) {        /* no-op if no flag string */
  1160. +                /* check if a list and make sure valid */
  1161. +    if ((i = (*flag == '(')) ^ (flag[strlen (flag)-1] == ')')) {
  1162. +      mm_log ("Bad flag list",ERROR);
  1163. +      return NIL;
  1164. +    }
  1165. +                /* copy the flag string w/o list construct */
  1166. +    strncpy (tmp,flag+i,(j = strlen (flag) - (2*i)));
  1167. +    tmp[j] = '\0';
  1168. +    t = ucase (tmp);        /* uppercase only from now on */
  1169. +
  1170. +    while (t && *t) {        /* parse the flags */
  1171. +      if (*t == '\\') {        /* system flag? */
  1172. +    switch (*++t) {        /* dispatch based on first character */
  1173. +    case 'S':        /* possible \Seen flag */
  1174. +      if (t[1] == 'E' && t[2] == 'E' && t[3] == 'N') i = fSEEN;
  1175. +      t += 4;        /* skip past flag name */
  1176. +      break;
  1177. +    case 'D':        /* possible \Deleted flag */
  1178. +      if (t[1] == 'E' && t[2] == 'L' && t[3] == 'E' && t[4] == 'T' &&
  1179. +          t[5] == 'E' && t[6] == 'D') i = fDELETED;
  1180. +      t += 7;        /* skip past flag name */
  1181. +      break;
  1182. +    case 'F':        /* possible \Flagged flag */
  1183. +      if (t[1] == 'L' && t[2] == 'A' && t[3] == 'G' && t[4] == 'G' &&
  1184. +          t[5] == 'E' && t[6] == 'D') i = fFLAGGED;
  1185. +      t += 7;        /* skip past flag name */
  1186. +      break;
  1187. +    case 'A':        /* possible \Answered flag */
  1188. +      if (t[1] == 'N' && t[2] == 'S' && t[3] == 'W' && t[4] == 'E' &&
  1189. +          t[5] == 'R' && t[6] == 'E' && t[7] == 'D') i = fANSWERED;
  1190. +      t += 8;        /* skip past flag name */
  1191. +      break;
  1192. +    default:        /* unknown */
  1193. +      i = 0;
  1194. +      break;
  1195. +    }
  1196. +                /* add flag to flags list */
  1197. +    if (i && ((*t == '\0') || (*t++ == ' '))) f |= i;
  1198. +      }
  1199. +      else {            /* no user flags yet */
  1200. +    t = strtok (t," ");    /* isolate flag name */
  1201. +    sprintf (err,"Unknown flag: %.80s",t);
  1202. +    t = strtok (NIL," ");    /* get next flag */
  1203. +    mm_log (err,ERROR);
  1204. +      }
  1205. +    }
  1206. +  }
  1207. +  return f;
  1208. +}
  1209. +
  1210. +short maildir_getflags (MAILSTREAM *stream,char *flag)
  1211. +{
  1212. +  return bezerk_getflags (stream,flag); /* nothing exciting, reuse old code */
  1213. +}
  1214. +
  1215. +long maildir_delete (MAILSTREAM *stream,char *mailbox)
  1216. +{
  1217. +  DIR *dirp;
  1218. +  struct direct *d;
  1219. +  int i,j;
  1220. +  char tmp[MAILTMPLEN],err[MAILTMPLEN];
  1221. +  char *subdir_names[] = {"cur/","new/","tmp/",NULL};
  1222. +
  1223. +                /* check if mailbox even exists */
  1224. +  if (!maildir_isvalid (mailbox,NIL)) {
  1225. +/*    sprintf (tmp,"Can't delete mailbox %s: no such mailbox",mailbox);
  1226. +    mm_log (tmp,ERROR);
  1227. +    return NIL; */
  1228. +    /*syslog(LOG_INFO, "Invalid maildir in delete()"); */
  1229. +    return T; /* well.. a stupid hack to get by a problem in netscape ..
  1230. +            it remembers folders locally, and if a folder is deleted on
  1231. +            another machine, you have no way removing it on any other
  1232. +            netscapes... */
  1233. +  }
  1234. +
  1235. +                /* get name of directory */
  1236. +  i = strlen (maildir_file (tmp,mailbox)) + 1;
  1237. +  for (j = 0; subdir_names[j]; j++) {
  1238. +    strcpy (tmp + i - 4,subdir_names[j]);
  1239. +    if (dirp = opendir (tmp)) {    /* open directory */
  1240. +      while (d = readdir (dirp))    /* empty the directory */
  1241. +    if (strcmp (d->d_name,".") && strcmp (d->d_name,"..")) {
  1242. +      strcpy (tmp + i,d->d_name);
  1243. +      /*syslog(LOG_INFO, "unlink1: '%s'");*/
  1244. +      unlink (tmp);
  1245. +    }
  1246. +      closedir (dirp);        /* flush directory */
  1247. +    }
  1248. +                /* remove the subdir */
  1249. +    tmp[i + 3] = '\0';
  1250. +    /*syslog(LOG_INFO, "tmp: '%s'", tmp);*/
  1251. +    if (rmdir (tmp)) {
  1252. +    /*  sprintf (err,"Can't delete directory %s: %s",tmp,strerror (errno));
  1253. +      mm_log (err,ERROR);*/
  1254. +    }
  1255. +  }
  1256. +
  1257. +                /* try to remove the directory */
  1258. +  *(tmp + i - 5) = '\0';
  1259. +  /*syslog(LOG_INFO, "tmp2: '%s'", tmp);*/
  1260. +  if (rmdir (tmp)) {
  1261. +/*    sprintf (err,"Can't delete mailbox %s: %s",mailbox,strerror (errno));
  1262. +    mm_log (err,ERROR);
  1263. +    return NIL; */
  1264. +  }
  1265. +  return T;            /* return success */
  1266. +}
  1267. +
  1268. +long maildir_rename (MAILSTREAM *stream,char *old,char *new)
  1269. +{
  1270. +  char tmp[MAILTMPLEN],tmpnew[MAILTMPLEN];
  1271. +
  1272. +                /* old mailbox name must be valid */
  1273. +  if (!maildir_isvalid (old,NIL)) {
  1274. +    sprintf (tmp,"Can't rename mailbox %s: no such mailbox",old);
  1275. +    mm_log (tmp,ERROR);
  1276. +    return NIL;
  1277. +  }
  1278. +
  1279. +                /* new mailbox name must not exist */
  1280. +  if (access (maildir_file (tmp,new),F_OK) == 0) {
  1281. +    sprintf (tmp,"Can't rename to mailbox %s: destination already exists",new);
  1282. +    mm_log (tmp,ERROR);
  1283. +    return NIL;
  1284. +  }
  1285. +
  1286. +                /* try to rename the directory */
  1287. +  if (rename (maildir_file (tmp,old),maildir_file (tmpnew,new))) {
  1288. +    sprintf (tmp,"Can't rename mailbox %s to %s: %s",old,new,strerror (errno));
  1289. +    mm_log (tmp,ERROR);
  1290. +    return NIL;
  1291. +  }
  1292. +  return T;            /* return success */
  1293. +}
  1294. +
  1295. +long maildir_sub (MAILSTREAM *stream,char *mailbox)
  1296. +{
  1297. +  char tmp[MAILTMPLEN];
  1298. +  return sm_subscribe (mailbox);
  1299. +}
  1300. +
  1301. +long maildir_unsub (MAILSTREAM *stream,char *mailbox)
  1302. +{
  1303. +  char tmp[MAILTMPLEN];
  1304. +  return sm_unsubscribe (mailbox);
  1305. +}
  1306. +
  1307. +void maildir_lsub (MAILSTREAM *stream,char *ref,char *pat)
  1308. +{
  1309. + void *sdb = NIL;
  1310. +  char *s;
  1311. +                                /* get canonical form of name */
  1312. +  if ((s = sm_read (&sdb))) {
  1313. +    do if (pmatch_full (s,pat,'/')) mm_lsub (stream,'/',s,NIL);
  1314. +    while (s = sm_read (&sdb)); /* until no more subscriptions */
  1315. +  }
  1316. +
  1317. +}
  1318. diff -Nur pine4.43/imap/src/osdep/unix/maildir.h pine4.43-maildir/imap/src/osdep/unix/maildir.h
  1319. --- pine4.43/imap/src/osdep/unix/maildir.h    Thu Jan  1 01:00:00 1970
  1320. +++ pine4.43-maildir/imap/src/osdep/unix/maildir.h    Wed Dec  5 09:32:47 2001
  1321. @@ -0,0 +1,56 @@
  1322. +/*
  1323. + * Please read maildir.c for license and information
  1324. + *
  1325. + */
  1326. +
  1327. +#define MAILDIRPATH "Maildir"
  1328. +    
  1329. +typedef struct maildir_local {
  1330. +  unsigned int inbox : 1;    /* if it is an INBOX or not */
  1331. +  unsigned int dirty : 1;    /* diskcopy needs updating */
  1332. +  char *dir;            /* mail directory name */
  1333. +  char *buf;            /* temporary buffer */
  1334. +  char *hdr;            /* current header */
  1335. +  unsigned long buflen;        /* current size of temporary buffer */
  1336. +  time_t scantime;        /* last time directory scanned */
  1337. +} MAILDIRLOCAL;
  1338. +
  1339. +/* Convenient access to local data */
  1340. +
  1341. +#define LOCAL ((MAILDIRLOCAL *) stream->local)
  1342. +
  1343. +/* Function prototypes */
  1344. +
  1345. +DRIVER *maildir_valid (char *name);
  1346. +int maildir_isvalid (char *name,long justname);
  1347. +MAILSTREAM *maildir_open (MAILSTREAM *stream);
  1348. +void maildir_gc (MAILSTREAM *stream,long gcflags);
  1349. +void maildir_close (MAILSTREAM *stream, long options);
  1350. +long maildir_ping (MAILSTREAM *stream);
  1351. +long maildir_ping_core (MAILSTREAM *stream);
  1352. +void maildir_check (MAILSTREAM *stream);
  1353. +long maildir_fetchtext (MAILSTREAM *stream,unsigned long msgno,STRING *bs,long flags);
  1354. +char *maildir_fetchheader (MAILSTREAM *stream,unsigned long msgno,
  1355. +        unsigned long *length, long flags);
  1356. +void maildir_fast (MAILSTREAM *stream,char *sequence,long flags);
  1357. +void maildir_list (MAILSTREAM *stream,char *ref,char *pat);
  1358. +void *maildir_parameters (long function,void *value);
  1359. +long maildir_create (MAILSTREAM *stream,char *mailbox);
  1360. +void maildir_flagmsg (MAILSTREAM *stream,MESSAGECACHE *elt);
  1361. +void maildir_expunge (MAILSTREAM *stream);
  1362. +long maildir_copy (MAILSTREAM *stream,char *sequence,char *mailbox,long options);
  1363. +long maildir_append (MAILSTREAM *stream,char *mailbox,char *flags,char *date,
  1364. +                   STRING *message);
  1365. +short maildir_getflags (MAILSTREAM *stream,char *flag);
  1366. +long maildir_delete (MAILSTREAM *stream,char *mailbox);
  1367. +long maildir_rename (MAILSTREAM *stream,char *old,char *new);
  1368. +long maildir_sub (MAILSTREAM *stream,char *mailbox);
  1369. +long maildir_unsub (MAILSTREAM *stream,char *mailbox);
  1370. +void maildir_lsub (MAILSTREAM *stream,char *ref,char *pat);
  1371. +
  1372. +/* utility functions */
  1373. +char *maildir_file (char *dst,char *name);
  1374. +void maildir_copynew (const char *mailbox);
  1375. +int maildir_select (struct direct *name);
  1376. +int maildir_namesort (struct direct **d1,struct direct **d2);
  1377. +void maildir_listwork(char *name, MAILSTREAM *stream, char *s2, char *subdir, int flag);
  1378. diff -Nur pine4.43/pine/mailcmd.c pine4.43-maildir/pine/mailcmd.c
  1379. --- pine4.43/pine/mailcmd.c    Thu Nov  1 22:28:10 2001
  1380. +++ pine4.43-maildir/pine/mailcmd.c    Wed Dec  5 10:14:32 2001
  1381. @@ -2712,8 +2712,7 @@
  1382.       * the destination folder will need...
  1383.       */
  1384.      context_apply(tmp, context, save_folder, sizeof(tmp));
  1385. -        save_stream = (stream->dtb->flags & DR_LOCAL) && !IS_REMOTE(tmp) ?
  1386. -      stream : context_same_stream(context, save_folder, stream);
  1387. +        save_stream = context_same_stream(context, save_folder, stream);
  1388.      }
  1389.  
  1390.      /* if needed, this'll get set in mm_notify */
  1391. diff -Nur pine4.43/pine/pine.h pine4.43-maildir/pine/pine.h
  1392. --- pine4.43/pine/pine.h    Wed Nov 28 01:12:13 2001
  1393. +++ pine4.43-maildir/pine/pine.h    Wed Dec  5 10:11:40 2001
  1394. @@ -63,7 +63,7 @@
  1395.  #ifndef _PINE_INCLUDED
  1396.  #define _PINE_INCLUDED
  1397.  
  1398. -#define PINE_VERSION        "4.43"
  1399. +#define PINE_VERSION        "4.43L0"
  1400.  #define    PHONE_HOME_VERSION    "-count"
  1401.  #define    PHONE_HOME_HOST        "docserver.cac.washington.edu"
  1402.  
  1403.