wdr@cstowe.csoft.co.nz (Bill) (01/20/89)
Hi there fellow Emacs addicts,
I am running emacs 18.51 on a NCR Tower 600 (NCR release 1.03 - System
V.2) and have found a problem with rmail in emacs. If I have more than
one message in my mail file rmail lumps them all together as one
message which is a little annoying. I enclose the following patch
which fixes this problem in the hope that if anyone else has the same
problem they could use it. The only thing to beware of (that I know!)
is that the extra regexp I have allows for NZS or NZD which are our time
zone names here.
I would be curious to know if anyone had this problem and if they
found a better fix (ie some variable I don't know about). Also I had
to insert a (forward-line 1) to stop an infinite loop developing, I
have suspicions that I have missed something. If anyone knows please
enlighten me!
Tunza Luck!
*** rmail.el.ori Wed Jan 18 10:50:05 1989
--- rmail.el Fri Jan 20 14:11:29 1989
***************
*** 545,554 ****
(setq start (point))
(insert "\^L\n0, unseen,,\n*** EOOH ***\n")
(rmail-nuke-pinhead-header)
(if (re-search-forward
(concat "^[\^_]?\\("
"From [^ \n]*\\(\\|\".*\"[^ \n]*\\) ?[^ \n]* [^ \n]* *"
! "[0-9]* [0-9:]* \\([A-Z]?[A-Z][A-Z]T \\|[-+][0-9][0-9][0-9][0-9] \\|\\)" ; EDT, -0500
"19[0-9]*$\\|"
mmdf-delim1 "\\|"
"^Babyl Options:\\|"
--- 545,555 ----
(setq start (point))
(insert "\^L\n0, unseen,,\n*** EOOH ***\n")
(rmail-nuke-pinhead-header)
+ (forward-line 1)
(if (re-search-forward
(concat "^[\^_]?\\("
"From [^ \n]*\\(\\|\".*\"[^ \n]*\\) ?[^ \n]* [^ \n]* *"
! "[0-9]* [0-9:]* \\([A-Z]?[A-Z][A-Z]T? \\|[-+][0-9][0-9][0-9][0-9] \\|\\)" ; EDT, -0500
"19[0-9]*$\\|"
mmdf-delim1 "\\|"
"^Babyl Options:\\|"
--------
Bill Ryder (wdr@csoft.co.nz) or !uunet!vuwcomp!dsiramd!pnamd!cstowe!wdr
Commercial Software N.Z. Ltd., PO Box 4030
Palmerston North, Aotearoa (New Zealand if want to use snail mail)