- (coding-system-get
- (get-charset-property charset 'prefered-coding-system)
- 'mime-charset)
- (car (memq charset (find-coding-systems-region
- (point-min) (point-max)))))
+ (and (get-charset-property charset 'prefered-coding-system)
+ (coding-system-get
+ (get-charset-property charset 'prefered-coding-system)
+ 'mime-charset))
+ (and (eq charset 'ascii)
+ 'us-ascii)
+ (get-charset-property charset 'prefered-coding-system)
+ (mm-mule-charset-to-mime-charset charset))
+ ;; This is for XEmacs.