home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!europa.asd.contel.com!darwin.sura.net!mips!sdd.hp.com!uakari.primate.wisc.edu!ames!agate!linus!linus.mitre.org!stillson
- From: stillson@mitre.org (Ken Stillson)
- Newsgroups: comp.mail.elm
- Subject: Re: how to use `ispell' with elm?
- Message-ID: <stillson.711827803@tsfsrv>
- Date: 22 Jul 92 17:56:43 GMT
- References: <1992Jul22.021346.14340@augean.eleceng.adelaide.edu.AU> <1992Jul22.125628.2576@cbfsb.cb.att.com>
- Sender: news@linus.mitre.org (News Service)
- Organization: The MITRE Corporation
- Lines: 68
- Nntp-Posting-Host: tsfsrv.mitre.org
-
- Well, I've already posted this (unofficial, unsupported, un-everything
- else) patch several times, but what the heck-- here it comes again...
-
- This will add the option I)spell on the "what now?" menu that comes up
- right after you've finished editing your message. Use the unix patch
- command to effect the changes...
-
- --- cut here ---
- *** mailmsg2.c.old Thu Mar 19 11:04:06 1992
- --- mailmsg2.c Thu Mar 19 11:04:42 1992
- ***************
- *** 114,119 ****
- --- 114,120 ----
- char *whole_msg_file, *tempnam();
- char filename[SLEN], fname[SLEN], copy_file[SLEN],
- very_long_buffer[VERY_LONG_STRING], mailerflags[NLEN];
- + char kens_temp[100]; /* KEN */
- int ch, sys_status;
- register int retransmit = FALSE;
- int already_has_text = FALSE; /* we need an ADDRESS */
- ***************
- *** 236,241 ****
- --- 237,248 ----
- }
- break;
-
- + /* added 11/14/91 by KEN Stillson, support for spelling check: */
- + case 'i': need_redraw = 1; /* KEN */
- + sprintf (kens_temp, "ispell %s", filename); /* KEN */
- + system_call (kens_temp, SH, TRUE, FALSE); /* KEN */
- + break; /* KEN */
- +
- case 'c': if (name_copy_file(copy_file))
- need_redraw = 1;
- break;
- ***************
- *** 570,576 ****
- #ifdef ALLOW_SUBSHELL
- strcat(buffer, "!)shell, ");
- #endif
- ! strcat(buffer, "h)eaders, c)opy file, s)end, or f)orget.");
- Centerline(LINES-1, buffer);
- }
-
- --- 577,583 ----
- #ifdef ALLOW_SUBSHELL
- strcat(buffer, "!)shell, ");
- #endif
- ! strcat(buffer, "h)eaders, c)opy file, i)spell, s)end, f)orget."); /* KEN */
- Centerline(LINES-1, buffer);
- }
-
- ***************
- *** 649,654 ****
- --- 656,664 ----
- continue;
- }
- break;
- +
- + case 'i' : Write_to_screen("Ispell",0); /* KEN */
- + break;
-
- case 'h' : Write_to_screen("Headers",0);
- break;
- --
-
- panic: cannot read .signature file for stillson@mitre.org
- Abort, Retry, Ignore, Explode?
-