[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.278 
emacs/lisp/international/mule-cmds.el:1.279
*** emacs/lisp/international/mule-cmds.el:1.278 Tue Jul 19 02:29:58 2005
--- emacs/lisp/international/mule-cmds.el       Fri Jul 29 01:44:52 2005
***************
*** 1027,1036 ****
        ;; We should never use no-conversion for outgoing mail.
        (setq coding nil))
      (if (fboundp select-safe-coding-system-function)
!       (funcall select-safe-coding-system-function
!                (point-min) (point-max) coding
!                (function (lambda (x) (coding-system-get x 'mime-charset))))
!       coding)))
  
  ;;; Language support stuff.
  
--- 1027,1045 ----
        ;; We should never use no-conversion for outgoing mail.
        (setq coding nil))
      (if (fboundp select-safe-coding-system-function)
!       (setq coding
!             (funcall select-safe-coding-system-function
!                      (point-min) (point-max) coding
!                      (function (lambda (x)
!                                  (coding-system-get x 'mime-charset))))))
!     (if coding
!       ;; Be sure to use LF for end-of-line.
!       (setq coding (coding-system-change-eol-conversion coding 'unix))
!       ;; No coding system is decided.  Usually this is the case that
!       ;; the current buffer contains only ASCII.  So, we hope
!       ;; iso-8859-1 works.
!       (setq coding 'iso-8859-1-unix))
!     coding))
  
  ;;; Language support stuff.