diff options
| author | Paul Eggert <eggert@twinsun.com> | 1996-08-03 02:53:02 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1996-08-03 02:53:02 +0000 |
| commit | 03a65a2e6f4c1e4995f956c1da9c987d1014b683 (patch) | |
| tree | 20973131cc232ba5b96c488d400a3547bcf6abfc /lisp/mail/rmail.el | |
| parent | 1a3d0f63e1fb259e0baaa96e775939ebe1453419 (diff) | |
| download | emacs-03a65a2e6f4c1e4995f956c1da9c987d1014b683.tar.gz | |
(rmail-unix-mail-delimiter): Allow space or tab as
first character in mailbox part of `From ' line.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 3663bdf29d5..416734000e3 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -232,10 +232,15 @@ Called with region narrowed to the message, including headers.") ;; From: Joe User ;; <joe@y.z> ;; can yield `From Joe User Fri Mar 22 08:11:15 1996'. + ;; The mailbox can be removed or be replaced by white space, e.g. + ;; From: "Joe User"{space}{tab} + ;; <joe@y.z> + ;; can yield `From {space}{tab} Fri Mar 22 08:11:15 1996', + ;; where {space} and {tab} represent the Ascii space and tab characters. ;; We want to match the results of any of these manglings. ;; The following regexp rejects names whose first characters are ;; obviously bogus, but after that anything goes. - "\\([^\0-\r \^?].*\\)? " + "\\([^\0-\b\n-\r\^?].*\\)? " ;; The time the message was sent. "\\([^\0-\r \^?]+\\) +" ; day of the week |