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

  User: aidan   
  Date: 09/09/15 08:50:38

  Modified:    packages/xemacs-packages/vm/lisp vm-virtual.el
Log:
Avoid corruption with virtual folders, vm. Thank you Julian Bradfield!

Revision  Changes    Path
1.77      +7 -0      XEmacs/packages/xemacs-packages/vm/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/ChangeLog,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -p -r1.76 -r1.77
--- ChangeLog	2008/08/25 15:07:48	1.76
+++ ChangeLog	2009/09/15 06:50:31	1.77
@@ -1,3 +1,10 @@
+2009-09-15  Aidan Kehoe  <[email protected]>
+
+	* lisp/vm-virtual.el (vm-build-virtual-message-list): 
+	Merge Julian Bradfield's change of
+	[email protected] , preventing corruption with
+	UTF-8 coding systems and virtual folders.
+
 2008-08-25  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 8.07 released.



1.2       +4 -0      XEmacs/packages/xemacs-packages/vm/lisp/vm-virtual.el

Index: vm-virtual.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/lisp/vm-virtual.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- vm-virtual.el	2008/04/09 21:01:57	1.1
+++ vm-virtual.el	2009/09/15 06:50:36	1.2
@@ -116,12 +116,16 @@ all the real folder buffers involved."
 			 ;; set enable-local-variables to nil
 			 ;; for newer Emacses
 			 (let ((inhibit-local-variables t)
+                               (coding-system-for-read
+                                (vm-binary-coding-system))
 			       (enable-local-eval nil)
 			       (enable-local-variables nil))
 			   (find-file-noselect folder)))))
 	    (set-buffer (or (and (bufferp folder) folder)
 			    (vm-get-file-buffer folder)
 			    (let ((inhibit-local-variables t)
+                                  (coding-system-for-read
+                                   (vm-binary-coding-system))
 				  (enable-local-eval nil)
 				  (enable-local-variables nil))
 			      (find-file-noselect folder))))