diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-12-21 09:14:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-12-21 09:14:03 +0000 |
| commit | aa228418e97d3b6aada0da50ee0419c5c23f726c (patch) | |
| tree | 54f5de32b8b44b028fc96ebda21b9d11f96916fe /lisp/mail/rmail.el | |
| parent | 0231f2dce81e3f5118c5c2eecec6081ba888e03a (diff) | |
| download | emacs-aa228418e97d3b6aada0da50ee0419c5c23f726c.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fcb55c90dd9..8c966ce9604 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1,5 +1,5 @@ ;; "RMAIL" mail reader for Emacs. -;; Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1988, 1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -638,7 +638,7 @@ argument causes us to read a file name and use that file as the inbox." (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]* *\\(remote from [^\n]*\\)?$\\|" + "[0-9]+ *\\(remote from [^\n]*\\)?$\\|" mmdf-delim1 "\\|" "^BABYL OPTIONS:\\|" "\^L\n[01],\\)") nil t) @@ -684,7 +684,7 @@ argument causes us to read a file name and use that file as the inbox." (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]*\\) *\\(remote from [^\n]*\\)?\n" nil t) + "^From \\([^ ]*\\(\\|\".*\"[^ ]*\\)\\) ?\\([^ ]*\\) \\([^ ]*\\) *\\([0-9]*\\) \\([0-9:]*\\)\\( ?[A-Z]?[A-Z][A-Z]T\\| ?[-+]?[0-9][0-9][0-9][0-9]\\|\\) [0-9][0-9]\\([0-9]*\\) *\\(remote from [^\n]*\\)?\n" nil t) (replace-match (concat "Mail-from: \\&" |