CVS update by aidan packages/xemacs-packages/vm ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/10/13 18:43:47

  Modified:    packages/xemacs-packages/vm ChangeLog vm-mime.el
Log:
Fix a bug with VM and the console-tty-output-coding-system.

Revision  Changes    Path
1.69      +8 -0      XEmacs/packages/xemacs-packages/vm/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/ChangeLog,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -p -r1.68 -r1.69
--- ChangeLog	2007/09/30 12:55:54	1.68
+++ ChangeLog	2007/10/13 16:43:45	1.69
@@ -1,3 +1,11 @@
+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.
+
 2007-09-30  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 7.25 released.



1.35      +7 -6      XEmacs/packages/xemacs-packages/vm/vm-mime.el

Index: vm-mime.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/vm-mime.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -p -r1.34 -r1.35
--- vm-mime.el	2007/09/30 11:29:52	1.34
+++ vm-mime.el	2007/10/13 16:43:46	1.35
@@ -4306,12 +4306,13 @@ LAYOUT is the MIME layout struct for the
 	   ;; 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