andys@ulysses.att.com (05/18/89)
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