[COMMIT] Fix a bug with VM and the console-tty-output-coding-system

Aidan Kehoe kehoea at parhasard.net
Sat Oct 13 12:46:17 EDT 2007


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 at 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)



More information about the XEmacs-Patches mailing list