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 | 4c4a44f32eac7add0c07863510ec85d85de7b945 (patch) | |
| tree | 2a6fd7e4e6b170a44291ff4fa9ba3105f93980c5 | |
| parent | f5792262456f1ea5eddf6697dd9d014cbca19563 (diff) | |
| download | emacs-4c4a44f32eac7add0c07863510ec85d85de7b945.tar.gz | |
(rmail-unix-mail-delimiter): Allow space or tab as
first character in mailbox part of `From ' line.
| -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 |