Path: utzoo!attcan!uunet!munnari!vuwcomp!dsiramd!pnamd!cstowe!wdr
From: wdr@cstowe.csoft.co.nz (Bill)
Newsgroups: comp.emacs
Subject: Bug with rmail.el when dealing with more than one SYSV mail item+fix
Message-ID: <1307@cstowe.csoft.co.nz>
Date: 20 Jan 89 02:20:25 GMT
Organization: Commercial Software Ltd, Palmerston North, New Zealand
Lines: 54


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)