🚀 go-pugleaf

Yesterday I reported a bug in rmail such that it looped when the
time zone specifier in the From_ line was of the form [+-]nnnn.
The problem was a missing blank in a regular expression in the
function rmail-nuke-pinhead-header.  (I would note that a code
writer using a function name like that should be real sure that
his/her code is not pinheaded itself).  The context diff for this
change follows the signature.

Andy Sherman
--
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 follows-------------------------

*** /usr/add-on/emacs/lisp/rmail.el	Thu Apr  6 19:26:17 1989
--- lisp/rmail.el	Wed May 17 16:46:19 1989
***************
*** 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