X-Git-Url: http://git.marmaro.de/?p=mmh;a=blobdiff_plain;f=uip%2Frmf.c;h=b9c1969b9adb9b9693d6e1f50e7e0705c62a8b05;hp=a53fe4c9e1ed23fa8351084ee6856377980ab506;hb=32b2354dbaf4bf934936eb5b102a4a3d2fdd209a;hpb=a485ed478abbd599d8c9aab48934e7a26733ecb1

diff --git a/uip/rmf.c b/uip/rmf.c
index a53fe4c..b9c1969 100644
--- a/uip/rmf.c
+++ b/uip/rmf.c
@@ -1,10 +1,10 @@
 /*
- * rmf.c -- remove a folder
- *
- * This code is Copyright (c) 2002, by the authors of nmh.  See the
- * COPYRIGHT file in the root directory of the nmh distribution for
- * complete copyright information.
- */
+** rmf.c -- remove a folder
+**
+** This code is Copyright (c) 2002, by the authors of nmh.  See the
+** COPYRIGHT file in the root directory of the nmh distribution for
+** complete copyright information.
+*/
 
 #include <h/mh.h>
 
@@ -14,21 +14,21 @@ static struct swit switches[] = {
 #define NINTRSW  1
 	{ "nointeractive", 0 },
 #define VERSIONSW  2
-	{ "version", 0 },
+	{ "Version", 0 },
 #define HELPSW  3
 	{ "help", 0 },
 	{ NULL, 0 }
 };
 
 /*
- * static prototypes
- */
+** static prototypes
+*/
 static int rmf(char *);
-static void rma (char *);
+static void rma(char *);
 
 
 int
-main (int argc, char **argv)
+main(int argc, char **argv)
 {
 	int defolder = 0, interactive = -1;
 	char *cp, *folder = NULL, newfolder[BUFSIZ];
@@ -37,94 +37,95 @@ main (int argc, char **argv)
 #ifdef LOCALE
 	setlocale(LC_ALL, "");
 #endif
-	invo_name = r1bindex (argv[0], '/');
+	invo_name = mhbasename(argv[0]);
 
 	/* read user profile/context */
 	context_read();
 
-	arguments = getarguments (invo_name, argc, argv, 1);
+	arguments = getarguments(invo_name, argc, argv, 1);
 	argp = arguments;
 
 	while ((cp = *argp++)) {
 		if (*cp == '-') {
-			switch (smatch (++cp, switches)) {
-				case AMBIGSW:
-					ambigsw (cp, switches);
-					done (1);
-				case UNKWNSW:
-					adios (NULL, "-%s unknown", cp);
-
-				case HELPSW:
-					snprintf (buf, sizeof(buf), "%s [+folder] [switches]",
-						invo_name);
-					print_help (buf, switches, 1);
-					done (1);
-				case VERSIONSW:
-					print_version(invo_name);
-					done (1);
-
-				case INTRSW:
-					interactive = 1;
-					continue;
-				case NINTRSW:
-					interactive = 0;
-					continue;
+			switch (smatch(++cp, switches)) {
+			case AMBIGSW:
+				ambigsw(cp, switches);
+				done(1);
+			case UNKWNSW:
+				adios(NULL, "-%s unknown", cp);
+
+			case HELPSW:
+				snprintf(buf, sizeof(buf), "%s [+folder] [switches]", invo_name);
+				print_help(buf, switches, 1);
+				done(1);
+			case VERSIONSW:
+				print_version(invo_name);
+				done(1);
+
+			case INTRSW:
+				interactive = 1;
+				continue;
+			case NINTRSW:
+				interactive = 0;
+				continue;
 			}
 		}
 		if (*cp == '+' || *cp == '@') {
 			if (folder)
-				adios (NULL, "only one folder at a time!");
+				adios(NULL, "only one folder at a time!");
 			else
-				folder = pluspath (cp);
+				folder = getcpy(expandfol(cp));
 		} else {
-			adios (NULL, "usage: %s [+folder] [switches]", invo_name);
+			adios(NULL, "usage: %s [+folder] [switches]",
+					invo_name);
 		}
 	}
 
-	if (!context_find ("path"))
-		free (path ("./", TFOLDER));
 	if (!folder) {
-		folder = getfolder (1);
+		folder = getcurfol();
 		defolder++;
 	}
-	if (strcmp (m_mailpath (folder), pwd ()) == 0)
-		adios (NULL, "sorry, you can't remove the current working directory");
+	if (strcmp(toabsdir(folder), pwd()) == 0)
+		adios(NULL, "You can't remove the current working directory");
 
 	if (interactive == -1)
 		interactive = defolder;
 
-	if (strchr (folder, '/') && (*folder != '/') && (*folder != '.')) {
-		for (cp = copy (folder, newfolder); cp > newfolder && *cp != '/'; cp--)
-			continue;
+	if (strchr(folder, '/') && (*folder != '/') && (*folder != '.')) {
+		strcpy(newfolder, folder);
+		cp = newfolder + strlen(newfolder);
+		while (cp > newfolder && *cp != '/')
+			cp--;
 		if (cp > newfolder)
 			*cp = '\0';
 		else
-			strncpy (newfolder, getfolder(0), sizeof(newfolder));
+			strncpy(newfolder, getdeffol(), sizeof(newfolder));
 	} else {
-		strncpy (newfolder, getfolder(0), sizeof(newfolder));
+		strncpy(newfolder, getdeffol(), sizeof(newfolder));
 	}
 
 	if (interactive) {
-		cp = concat ("Remove folder \"", folder, "\"? ", NULL);
-		if (!getanswer (cp))
-			done (0);
-		free (cp);
+		cp = concat("Remove folder \"", folder, "\"? ", NULL);
+		if (!getanswer(cp))
+			done(0);
+		free(cp);
 	}
 
-	if (rmf (folder) == OK) {
-		char *cfolder = context_find(pfolder);
-		if (cfolder && strcmp (cfolder, newfolder)) {
-			printf ("[+%s now current]\n", newfolder);
-			context_replace (pfolder, newfolder);  /* update current folder */
+	if (rmf(folder) == OK) {
+		char *cfolder = context_find(curfolder);
+		if (cfolder && strcmp(cfolder, newfolder)!=0) {
+			printf("[+%s now current]\n", newfolder);
+			/* update current folder */
+			context_replace(curfolder, newfolder);
 		}
 	}
-	context_save ();  /* save the context file */
-	done (0);
+	context_save();  /* save the context file */
+	done(0);
 	return 1;
 }
 
 static int
-rmf (char *folder)
+rmf(char *folder)
 {
 	int i, j, others;
 	register char *maildir;
@@ -132,112 +133,114 @@ rmf (char *folder)
 	register struct dirent *dp;
 	register DIR *dd;
 
-	switch (i = chdir (maildir = m_maildir (folder))) {
-		case OK:
-			if (access (".", W_OK) != NOTOK && access ("..", W_OK) != NOTOK)
-				break;  /* fall otherwise */
-
-		case NOTOK:
-			snprintf (cur, sizeof(cur), "atr-%s-%s",
-						current, m_mailpath (folder));
-			if (!context_del (cur)) {
-				printf ("[+%s de-referenced]\n", folder);
-				return OK;
-			}
-			advise (NULL, "you have no profile entry for the %s folder +%s",
-					i == NOTOK ? "unreadable" : "read-only", folder);
-			return NOTOK;
+	switch (i = chdir(maildir = toabsdir(folder))) {
+	case OK:
+		if (access(".", W_OK) != NOTOK && access("..", W_OK) != NOTOK)
+			break;  /* fall otherwise */
+
+	case NOTOK:
+		snprintf(cur, sizeof(cur), "atr-%s-%s", seq_cur,
+				toabsdir(folder));
+		if (!context_del(cur)) {
+			printf("[+%s de-referenced]\n", folder);
+			return OK;
+		}
+		advise(NULL, "you have no profile entry for the %s folder +%s",
+				i == NOTOK ? "unreadable" : "read-only",
+				folder);
+		return NOTOK;
 	}
 
-	if ((dd = opendir (".")) == NULL)
-		adios (NULL, "unable to read folder +%s", folder);
+	if ((dd = opendir(".")) == NULL)
+		adios(NULL, "unable to read folder +%s", folder);
 	others = 0;
 
 	/*
-	 * Run the external delete hook program.
-	 */
+	** Run the external delete hook program.
+	*/
 
-	(void)ext_hook("del-hook", maildir, (char *)0);
+	ext_hook("del-hook", maildir, NULL);
 
 	j = strlen(backup_prefix);
-	while ((dp = readdir (dd))) {
+	while ((dp = readdir(dd))) {
 		switch (dp->d_name[0]) {
-			case '.':
-				if (strcmp (dp->d_name, ".") == 0
-						|| strcmp (dp->d_name, "..") == 0)
-					continue;  /* else fall */
-
-			case ',':
-#ifdef MHE
-			case '+':
-#endif /* MHE */
-#ifdef UCI
-			case '_':
-			case '#':
-#endif /* UCI */
-				break;
+		case '.':
+			if (strcmp(dp->d_name, ".") == 0 ||
+					strcmp(dp->d_name, "..") == 0)
+				continue;  /* else fall */
 
-			default:
-				if (m_atoi (dp->d_name))
-					break;
-				if (strcmp (dp->d_name, altmsglink) == 0
-						|| strncmp (dp->d_name, backup_prefix, j) == 0)
-					break;
+		case ',':
+			break;
 
-				admonish (NULL, "file \"%s/%s\" not deleted",
-						folder, dp->d_name);
-				others++;
-				continue;
+		default:
+			if (m_atoi(dp->d_name))
+				break;
+			if (strcmp(dp->d_name, altmsglink) == 0 ||
+					strncmp(dp->d_name,
+					backup_prefix, j) == 0)
+				break;
+
+			admonish(NULL, "file \"%s/%s\" not deleted",
+					folder, dp->d_name);
+			others++;
+			continue;
 		}
-		if (unlink (dp->d_name) == NOTOK) {
-			admonish (dp->d_name, "unable to unlink %s:", folder);
+		if (unlink(dp->d_name) == NOTOK) {
+			admonish(dp->d_name, "unable to unlink %s:", folder);
 			others++;
 		}
 	}
 
-	closedir (dd);
+	closedir(dd);
 
 	/*
-	 * Remove any relevant private sequences
-	 * or attributes from context file.
-	 */
-	rma (folder);
-
-	chdir ("..");
-	if (others == 0 && remdir (maildir))
-		return OK;
+	** Remove any relevant private sequences
+	** or attributes from context file.
+	*/
+	rma(folder);
+
+	chdir("..");
+	if (others == 0) {
+		context_save();  /* Is this needed? meillo 2011-10 */
+		fflush(stdout);  /* Is this needed? meillo 2011-10 */
+		if (rmdir(maildir) != -1) {
+			return OK;
+		}
+		admonish(maildir, "unable to remove directory");
+	}
 
-	advise (NULL, "folder +%s not removed", folder);
+	advise(NULL, "folder +%s not removed", folder);
 	return NOTOK;
 }
 
 
 /*
- * Remove all the (private) sequence information for
- * this folder from the profile/context list.
- */
+** Remove all the (private) sequence information for
+** this folder from the profile/context list.
+*/
 
 static void
-rma (char *folder)
+rma(char *folder)
 {
 	register int alen, j, plen;
 	register char *cp;
 	register struct node *np, *pp;
 
-	alen = strlen ("atr-");
-	plen = strlen (cp = m_mailpath (folder)) + 1;
+	alen = strlen("atr-");
+	plen = strlen(cp = getcpy(toabsdir(folder))) + 1;
 
 	/*
-	 * Search context list for keys that look like
-	 * "atr-something-folderpath", and remove them.
-	 */
+	** Search context list for keys that look like
+	** "atr-something-folderpath", and remove them.
+	*/
 	for (np = m_defs, pp = NULL; np; np = np->n_next) {
-		if (ssequal ("atr-", np->n_name)
-				&& (j = strlen (np->n_name) - plen) > alen
-				&& *(np->n_name + j) == '-'
-				&& strcmp (cp, np->n_name + j + 1) == 0) {
+		if (strncmp(np->n_name, "atr-", alen)==0 &&
+				(j = strlen(np->n_name) - plen) > alen &&
+				*(np->n_name + j) == '-' &&
+				strcmp(cp, np->n_name + j + 1) == 0) {
 			if (!np->n_context)
-				admonish (NULL, "bug: context_del(key=\"%s\")", np->n_name);
+				admonish(NULL, "bug: context_del(key=\"%s\")",
+						np->n_name);
 			if (pp) {
 				pp->n_next = np->n_next;
 				np = pp;
@@ -249,4 +252,5 @@ rma (char *folder)
 			pp = np;
 		}
 	}
+	free(cp);
 }