/[emacs]/emacs/lisp/gnus/mm-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-util.el

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

revision 1.42 by lute, Mon Jul 4 17:55:15 2005 UTC revision 1.43 by miles, Fri Aug 5 08:48:40 2005 UTC
# Line 766  charset, and a longer list means no appr Line 766  charset, and a longer list means no appr
766      (if (and (memq 'iso-2022-jp-2 charsets)      (if (and (memq 'iso-2022-jp-2 charsets)
767               (memq 'iso-2022-jp-2 hack-charsets))               (memq 'iso-2022-jp-2 hack-charsets))
768          (setq charsets (delq 'iso-2022-jp charsets)))          (setq charsets (delq 'iso-2022-jp charsets)))
769        ;; Attempt to reduce the number of charsets if utf-8 is available.
770        (if (and (featurep 'xemacs)
771                 (> (length charsets) 1)
772                 (mm-coding-system-p 'utf-8))
773            (let ((mm-coding-system-priorities
774                   (cons 'utf-8 mm-coding-system-priorities)))
775              (setq charsets
776                    (mm-delete-duplicates
777                     (mapcar 'mm-mime-charset
778                             (delq 'ascii
779                                   (mm-find-charset-region b e)))))))
780      charsets))      charsets))
781    
782  (defmacro mm-with-unibyte-buffer (&rest forms)  (defmacro mm-with-unibyte-buffer (&rest forms)

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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