I’m trying, in general, to eliminate my local bug fixes by committing them. This is one more step in that direction. APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/vm/ChangeLog addition: 2007-10-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * vm-mime.el (vm-mime-tty-can-display-mime-charset): Call coding-system-name when determining whether the current TTY coding system can display the relevant MIME character set; prevents false negatives when coding system objects are compared with the symbols that refer to them. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/vm/vm-mime.el =================================================================== RCS Index: xemacs-packages/vm/vm-mime.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/vm-mime.el,v retrieving revision 1.34 diff -u -u -r1.34 vm-mime.el --- xemacs-packages/vm/vm-mime.el 2007/09/30 11:29:52 1.34 +++ xemacs-packages/vm/vm-mime.el 2007/10/13 16:41:49 ＠＠ -4306,12 +4306,13 ＠＠ ;; The intention is that ourtermcs is the version of the ;; coding-system without line-ending information attached to its ;; end. - ((ourtermcs (or (car - (coding-system-get - (console-tty-output-coding-system) - 'alias-coding-systems)) - (coding-system-base - (console-tty-output-coding-system))))) + ((ourtermcs (coding-system-name + (or (car + (coding-system-get + (console-tty-output-coding-system) + 'alias-coding-systems)) + (coding-system-base + (console-tty-output-coding-system)))))) (or (eq ourtermcs (car (cdr (vm-string-assoc -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches