-
- if (strlen(composition_file_name) >=
- sizeof (composition_file_name) - 6) {
- advise(NULL, "unable to remove original composition file.");
- } else {
- if (!(p = strrchr(composition_file_name, '/'))) {
- p = composition_file_name;
- } else {
- p++;
- }
- strcpy(body_file_name, p);
- *p++ = ',';
- strcpy(p, body_file_name);
- strcat(p, ".orig");
-
- unlink(composition_file_name);
- }