X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/cbe19f539e4de1a2adfb24574b6689a0784c8049..ddf3a8574f657dcb8c53fc5908e7bebbde1994b5:/uip/mhlist.c

diff --git a/uip/mhlist.c b/uip/mhlist.c
index e300762d..a8e28cbd 100644
--- a/uip/mhlist.c
+++ b/uip/mhlist.c
@@ -6,6 +6,12 @@
  */
 
 #include "h/mh.h"
+#include "sbr/m_name.h"
+#include "sbr/m_gmprot.h"
+#include "sbr/getarguments.h"
+#include "sbr/seq_setprev.h"
+#include "sbr/seq_setcur.h"
+#include "sbr/seq_save.h"
 #include "sbr/smatch.h"
 #include "sbr/m_convert.h"
 #include "sbr/getfolder.h"
@@ -20,12 +26,10 @@
 #include "sbr/error.h"
 #include <fcntl.h>
 #include "h/signals.h"
-#include "h/md5.h"
 #include "h/mts.h"
 #include "h/tws.h"
 #include "h/mime.h"
 #include "h/mhparse.h"
-#include "h/mhcachesbr.h"
 #include "h/done.h"
 #include "h/utils.h"
 #include "mhmisc.h"
@@ -33,8 +37,8 @@
 #include "mhfree.h"
 
 #define MHLIST_SWITCHES \
-    X("check", 0, CHECKSW) \
-    X("nocheck", 0, NCHECKSW) \
+    X("check", -5, CHECKSW) \
+    X("nocheck", -7, NCHECKSW) \
     X("headers", 0, HEADSW) \
     X("noheaders", 0, NHEADSW) \
     X("realsize", 0, SIZESW) \
@@ -48,8 +52,6 @@
     X("type content", 0, TYPESW) \
     X("prefer content", 0, PREFERSW) \
     X("noprefer", 0, NPREFERSW) \
-    X("rcache policy", 0, RCACHESW) \
-    X("wcache policy", 0, WCACHESW) \
     X("changecur", 0, CHGSW) \
     X("nochangecur", 0, NCHGSW) \
     X("version", 0, VERSIONSW) \
@@ -86,7 +88,7 @@ main (int argc, char **argv)
     bool chgflag = true;
     bool verbosw = false;
     bool dispo = false;
-    int msgnum, *icachesw;
+    int msgnum;
     char *cp, *file = NULL, *folder = NULL;
     char *maildir, buf[100], **argp;
     char **arguments;
@@ -122,30 +124,9 @@ main (int argc, char **argv)
 		print_version(invo_name);
 		done (0);
 
-	    case RCACHESW:
-		icachesw = &rcachesw;
-		goto do_cache;
-	    case WCACHESW:
-		icachesw = &wcachesw;
-do_cache:
-		if (!(cp = *argp++) || *cp == '-')
-		    die("missing argument to %s", argp[-2]);
-		switch (*icachesw = smatch (cp, cache_policy)) {
-		case AMBIGSW:
-		    ambigsw (cp, cache_policy);
-		    done (1);
-		case UNKWNSW:
-		    die("%s unknown", cp);
-		default:
-		    break;
-		}
-		continue;
-
 	    case CHECKSW:
-		checksw++;
-		continue;
 	    case NCHECKSW:
-		checksw = 0;
+		/* Currently a NOP */
 		continue;
 
 	    case HEADSW:
@@ -203,10 +184,10 @@ do_cache:
 		continue;
 
 	    case CHGSW:
-	    	chgflag = true;
+		chgflag = true;
 		continue;
 	    case NCHGSW:
-	    	chgflag = false;
+		chgflag = false;
 		continue;
 
 	    case VERBSW: 
@@ -238,15 +219,6 @@ do_cache:
     parts[npart] = NULL;
     types[ntype] = NULL;
 
-    /* Check for public cache location */
-    if ((cache_public = context_find (nmhcache)) && *cache_public != '/')
-	cache_public = NULL;
-
-    /* Check for private cache location */
-    if (!(cache_private = context_find (nmhprivcache)))
-	cache_private = ".cache";
-    cache_private = mh_xstrdup(m_maildir(cache_private));
-
     if (!context_find ("path"))
 	free (path ("./", TFOLDER));