/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.185.2.1 by handa, Fri Mar 1 02:12:40 2002 UTC revision 1.185.2.2 by fx, Tue May 14 10:16:42 2002 UTC
# Line 387  non-nil, it is used to sort CODINGS in t Line 387  non-nil, it is used to sort CODINGS in t
387                    (lambda (x)                    (lambda (x)
388                      (let ((base (coding-system-base x)))                      (let ((base (coding-system-base x)))
389                        (+ (if (eq base most-preferred) 64 0)                        (+ (if (eq base most-preferred) 64 0)
390                           (let ((mime (coding-system-get base 'mime-charset)))                           (let ((mime (coding-system-get base :mime-charset)))
391                             (if mime                             (if mime
392                                 (if (string-match "^x-" (symbol-name mime))                                 (if (string-match "^x-" (symbol-name mime))
393                                     16 32)                                     16 32)
# Line 580  and TO is ignored." Line 580  and TO is ignored."
580          base)          base)
581      (and (coding-system-p preferred)      (and (coding-system-p preferred)
582           (setq base (coding-system-base preferred))           (setq base (coding-system-base preferred))
583           (coding-system-get preferred 'mime-charset)           (coding-system-get preferred :mime-charset)
584           (not (assq preferred default-coding-system))           (not (assq preferred default-coding-system))
585           (not (rassq base default-coding-system))           (not (rassq base default-coding-system))
586           (setq default-coding-system           (setq default-coding-system
# Line 613  and TO is ignored." Line 613  and TO is ignored."
613        (let ((l codings)        (let ((l codings)
614              mime-charset)              mime-charset)
615          (while l          (while l
616            (setq mime-charset (coding-system-get (car l) 'mime-charset))            (setq mime-charset (coding-system-get (car l) :mime-charset))
617            (if (and mime-charset (coding-system-p mime-charset))            (if (and mime-charset (coding-system-p mime-charset))
618                (setcar l mime-charset))                (setcar l mime-charset))
619            (setq l (cdr l))))            (setq l (cdr l))))
# Line 708  it asks the user to select a proper codi Line 708  it asks the user to select a proper codi
708                       default-sendmail-coding-system                       default-sendmail-coding-system
709                       default-buffer-file-coding-system)))                       default-buffer-file-coding-system)))
710      (if (eq coding 'no-conversion)      (if (eq coding 'no-conversion)
711          ;; We should never use no-conversion for outgoing mails.          ;; We should never use no-conversion for outgoing mail.
712          (setq coding nil))          (setq coding nil))
713      (if (fboundp select-safe-coding-system-function)      (if (fboundp select-safe-coding-system-function)
714          (funcall select-safe-coding-system-function          (funcall select-safe-coding-system-function
715                   (point-min) (point-max) coding                   (point-min) (point-max) coding
716                   (function (lambda (x) (coding-system-get x 'mime-charset))))                   (function (lambda (x) (coding-system-get x :mime-charset))))
717        coding)))        coding)))
718    
719  ;;; Language support stuff.  ;;; Language support stuff.

Legend:
Removed from v.1.185.2.1  
changed lines
  Added in v.1.185.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26