🚀 go-pugleaf

Earlier in May I reported a bug in handling numeric time zones in
rmail.el and submitted a fix.  I have since noted that my fix, like
the original bug, did not have sufficient flexibility.  I have
observed numeric time zones led by a) a blank followed by the digits,
b) a blank followed by the sign followed by the digits, and c) no
blank followed by the sign followed by the digits.  My original fix
only allowed for b.  The diffs appended to this message handle all
three cases.
---
Andy Sherman/AT&T Bell Laboratories/Murray Hill, NJ           *NEW ADDRESS*
AUDIBLE:  (201) 582-5928                                      *NEW PHONE*
READABLE: andys@ulysses.ATT.COM  or att!ulysses!andys         *NEW EMAIL*
The views and opinions are my own.  Who else would want them? *OLD DISCLAIMER*
-------------------context diff for rmail.el-------------------------------
*** rmail.el.orig	Wed May 17 17:02:23 1989
--- rmail.el	Wed May 31 08:46:16 1989
***************
*** 550,556 ****
  	       (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:\\|"
--- 550,556 ----
  	       (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:\\|"
***************
*** 594,600 ****
  	  (goto-char start))
  	(let ((case-fold-search nil))
  	  (if (re-search-forward
! 	       "^From \\([^ ]*\\(\\|\".*\"[^ ]*\\)\\)  ?\\([^ ]*\\) \\([^ ]*\\) *\\([0-9]*\\) \\([0-9:]*\\)\\( [A-Z]?[A-Z][A-Z]T\\|[-+][0-9][0-9][0-9][0-9]\\|\\) 19\\([0-9]*\\) *\n" nil t)
  	      (replace-match
  		(concat
  		  ;; Keep and reformat the date if we don't
--- 594,600 ----
  	  (goto-char start))
  	(let ((case-fold-search nil))
  	  (if (re-search-forward
! 	       "^From \\([^ ]*\\(\\|\".*\"[^ ]*\\)\\)  ?\\([^ ]*\\) \\([^ ]*\\) *\\([0-9]*\\) \\([0-9:]*\\)\\( \\([A-Z]\\)?[A-Z][A-Z]T\\| ?[-+]?[0-9][0-9][0-9][0-9]\\|\\) 19\\([0-9]*\\) *\n" nil t)
  	      (replace-match
  		(concat
  		  ;; Keep and reformat the date if we don't