aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2002-05-27 14:51:57 +0000
committerDave Love2002-05-27 14:51:57 +0000
commit7f04a67e3bebe7871f01cb446f3af7d5aacb84d3 (patch)
tree2e57d41ab2302a053064a5deafe7e247f93b2b74
parente160cfd46d8cf4df3f0778e28cecad71f27151f4 (diff)
downloademacs-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.el8
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)))))