Mercurial > emacs
comparison lisp/mail/rmailout.el @ 2717:67f34b0bc2d1
(rmail-output): Undo June 11 1992 change:
Don't try to use Date field in the From.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 May 1993 23:53:56 +0000 |
| parents | a712cff3b6e7 |
| children | 7503a402c721 |
comparison
equal
deleted
inserted
replaced
| 2716:acd678e58602 | 2717:67f34b0bc2d1 |
|---|---|
| 175 (insert "From " | 175 (insert "From " |
| 176 (mail-strip-quoted-names (or (mail-fetch-field "from") | 176 (mail-strip-quoted-names (or (mail-fetch-field "from") |
| 177 (mail-fetch-field "really-from") | 177 (mail-fetch-field "really-from") |
| 178 (mail-fetch-field "sender") | 178 (mail-fetch-field "sender") |
| 179 "unknown")) | 179 "unknown")) |
| 180 " " (or (mail-fetch-field "date") (current-time-string)) "\n") | 180 " " (current-time-string) "\n") |
| 181 ;; ``Quote'' "\nFrom " as "\n>From " | 181 ;; ``Quote'' "\nFrom " as "\n>From " |
| 182 ;; (note that this isn't really quoting, as there is no requirement | 182 ;; (note that this isn't really quoting, as there is no requirement |
| 183 ;; that "\n[>]+From " be quoted in the same transparent way.) | 183 ;; that "\n[>]+From " be quoted in the same transparent way.) |
| 184 (while (search-forward "\nFrom " nil t) | 184 (while (search-forward "\nFrom " nil t) |
| 185 (forward-char -5) | 185 (forward-char -5) |