diff options
| author | Richard M. Stallman | 2009-04-09 16:46:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2009-04-09 16:46:02 +0000 |
| commit | f824857fc589ea08b77f2876ec7d548439e5c4c0 (patch) | |
| tree | 08d6d7e6b69fb4e58d4a995fd6eafdf1aa3f20b9 | |
| parent | 9aadce2568555d286f03a5b8863e29bf84002e7e (diff) | |
| download | emacs-f824857fc589ea08b77f2876ec7d548439e5c4c0.tar.gz emacs-f824857fc589ea08b77f2876ec7d548439e5c4c0.zip | |
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mail/rmailout.el | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d59d7577f7f..a4050c3e5ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | 2009-04-09 Richard M Stallman <rms@gnu.org> | 1 | 2009-04-09 Richard M Stallman <rms@gnu.org> |
| 2 | 2 | ||
| 3 | * mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen". | ||
| 4 | |||
| 3 | * mail/rmailout.el (rmail-output-to-rmail-buffer): | 5 | * mail/rmailout.el (rmail-output-to-rmail-buffer): |
| 4 | Call rmail-modify-format.. | 6 | Call rmail-modify-format. |
| 5 | 7 | ||
| 6 | Don't query before visiting a Babyl file. | 8 | Don't query before visiting a Babyl file. |
| 7 | Instead, query before modifications that would save it. | 9 | Instead, query before modifications that would save it. |
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index cb34ff4705a..b6f20df69a0 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el | |||
| @@ -169,7 +169,7 @@ display message number MSG." | |||
| 169 | (save-restriction | 169 | (save-restriction |
| 170 | (unless (looking-at "^From ") | 170 | (unless (looking-at "^From ") |
| 171 | (error "Invalid mbox message")) | 171 | (error "Invalid mbox message")) |
| 172 | (insert "\^L\n0, unseen,,\n*** EOOH ***\n") | 172 | (insert "\^L\n0,,\n*** EOOH ***\n") |
| 173 | (rmail-nuke-pinhead-header) | 173 | (rmail-nuke-pinhead-header) |
| 174 | ;; Decode base64 or quoted printable contents, Rmail style. | 174 | ;; Decode base64 or quoted printable contents, Rmail style. |
| 175 | (let* ((header-end (save-excursion | 175 | (let* ((header-end (save-excursion |