diff options
| author | Dave Love | 2002-05-27 14:51:57 +0000 |
|---|---|---|
| committer | Dave Love | 2002-05-27 14:51:57 +0000 |
| commit | 7f04a67e3bebe7871f01cb446f3af7d5aacb84d3 (patch) | |
| tree | 2e57d41ab2302a053064a5deafe7e247f93b2b74 | |
| parent | e160cfd46d8cf4df3f0778e28cecad71f27151f4 (diff) | |
| download | emacs-7f04a67e3bebe7871f01cb446f3af7d5aacb84d3.tar.gz emacs-7f04a67e3bebe7871f01cb446f3af7d5aacb84d3.zip | |
(mail-recover-1, mail-recover): Use utf-8-emacs
coding system, not emacs-mule.
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index c56b4193da8..fbd3b923de9 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1582,7 +1582,7 @@ The seventh argument ACTIONS is a list of actions to take | |||
| 1582 | (define-key (current-local-map) "v" | 1582 | (define-key (current-local-map) "v" |
| 1583 | (lambda () | 1583 | (lambda () |
| 1584 | (interactive) | 1584 | (interactive) |
| 1585 | (let ((coding-system-for-read 'emacs-mule-unix)) | 1585 | (let ((coding-system-for-read 'utf-8-emacs-unix)) |
| 1586 | (dired-view-file)))) | 1586 | (dired-view-file)))) |
| 1587 | (define-key (current-local-map) "\C-c\C-c" | 1587 | (define-key (current-local-map) "\C-c\C-c" |
| 1588 | (lambda () | 1588 | (lambda () |
| @@ -1590,13 +1590,13 @@ The seventh argument ACTIONS is a list of actions to take | |||
| 1590 | (let ((fname (dired-get-filename)) | 1590 | (let ((fname (dired-get-filename)) |
| 1591 | ;; Auto-saved files are written in the internal | 1591 | ;; Auto-saved files are written in the internal |
| 1592 | ;; representation, so they should be read accordingly. | 1592 | ;; representation, so they should be read accordingly. |
| 1593 | (coding-system-for-read 'emacs-mule-unix)) | 1593 | (coding-system-for-read 'utf-8-emacs-unix)) |
| 1594 | (switch-to-buffer-other-window "*mail*") | 1594 | (switch-to-buffer-other-window "*mail*") |
| 1595 | (let ((buffer-read-only nil)) | 1595 | (let ((buffer-read-only nil)) |
| 1596 | (erase-buffer) | 1596 | (erase-buffer) |
| 1597 | (insert-file-contents fname nil) | 1597 | (insert-file-contents fname nil) |
| 1598 | ;; insert-file-contents will set buffer-file-coding-system | 1598 | ;; insert-file-contents will set buffer-file-coding-system |
| 1599 | ;; to emacs-mule, which is probably not what they want to | 1599 | ;; to utf-8-emacs, which is probably not what they want to |
| 1600 | ;; use for sending the message. But we don't know what | 1600 | ;; use for sending the message. But we don't know what |
| 1601 | ;; was its value before the buffer was killed or Emacs | 1601 | ;; was its value before the buffer was killed or Emacs |
| 1602 | ;; crashed. We therefore reset buffer-file-coding-system | 1602 | ;; crashed. We therefore reset buffer-file-coding-system |
| @@ -1648,7 +1648,7 @@ you can move to one of them and type C-c C-c to recover that one." | |||
| 1648 | (buffer-coding buffer-file-coding-system) | 1648 | (buffer-coding buffer-file-coding-system) |
| 1649 | ;; Auto-save files are written in internal | 1649 | ;; Auto-save files are written in internal |
| 1650 | ;; representation of non-ASCII characters. | 1650 | ;; representation of non-ASCII characters. |
| 1651 | (coding-system-for-read 'emacs-mule-unix)) | 1651 | (coding-system-for-read 'utf-8-emacs-unix)) |
| 1652 | (erase-buffer) | 1652 | (erase-buffer) |
| 1653 | (insert-file-contents file-name nil) | 1653 | (insert-file-contents file-name nil) |
| 1654 | (setq buffer-file-coding-system buffer-coding))))) | 1654 | (setq buffer-file-coding-system buffer-coding))))) |