Re: lemacs-19.10 efs howto?

Mark Borges (mdb@noaacdc.Colorado.EDU)
Fri, 17 Jun 1994 13:39:39 +0700 

>> sandy (SR) wrote on Fri, 17 Jun 1994 19:52:49 +0200:
>>>>>> On Fri, 17 Jun 94 13:38 EDT",
SR>       neal@ctd.comsat.com (Neal Becker) said:
>> Any tips on installing efs-1.9 with lemacs-19.10?
SR> Yes.  A big one.  lemacs 19.10 has 5 bugs in its
SR> file-name-handler-alist code.  There is a file of patches included
SR> in the efs tar file.  You need to apply them, or efs won't even
SR> compile.

Does anyone use Kyle Jones' VM-5.72 under lemacs-19.10 with efs-1.9
installed?

I applied the patches Sandy suggested above, including the vm-folder.el
patch:
	vm-spool-move-mail should supply a correct OPERATION arg to
	find-file-name-handler.

However, now whenever I get new mail, VM thinks the INBOX on disk is newer
than the INBOX buffer. Needless to say, subsequent changes to the INBOX
buffer are extremely painful, as one is continually prompted if you really
want to edit the buffer.

Obviously, something is wrong with the find-file-name-handler in
lemacs-19.10 (it doesn't happen in FSF emacs-19.25), but I'm unsure at what
level (C/lisp) a fix is possible.

Mark

Here's the VM patch I applied:

vm-spool-move-mail should supply a correct OPERATION arg to
find-file-name-handler.

*** vm-folder.el~	Fri Jun 17 13:48:55 1994
- --- vm-folder.el	Fri Jun 17 13:49:00 1994
***************
*** 2213,2221 ****
  (defun vm-spool-move-mail (source destination)
    (let ((handler (and (fboundp 'find-file-name-handler)
  		      (condition-case ()
! 			  (find-file-name-handler source nil)
  			(wrong-number-of-arguments
! 			  (find-file-name-handler source)))))
  	status error-buffer)
      (if handler
  	(funcall handler 'vm-spool-move-mail source destination)
- --- 2213,2221 ----
  (defun vm-spool-move-mail (source destination)
    (let ((handler (and (fboundp 'find-file-name-handler)
  		      (condition-case ()
! 			  (find-file-name-handler source 'vm-spool-move-mail)
  			(wrong-number-of-arguments
! 			 (find-file-name-handler source)))))
  	status error-buffer)
      (if handler
  	(funcall handler 'vm-spool-move-mail source destination)