[COMMIT] Fix a bug with VM and the console-tty-output-coding-system
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>
* 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