🚀 go-pugleaf

blueman <NOSPAM@nospam.com> writes:
> Just installed the Fedora rpm (8.0.2.482-4) for Fedora Core 6.
>
> Every time I try to vm-mail or vm-reply-to to an email I get the following
> error:
>
> Debugger entered--Lisp error: (void-function locate-file)
>   locate-file("bzr.exe" ("/usr/kerberos/bin" "/home/kosowsky/bin"
>   "/usr/local/b$
>   vm-version()
>   vm-mail-internal(nil nil nil)
>   vm-mail()
> * call-interactively(vm-mail)
>
>
> I am using emacs 21.4.1.
> Is it possible that this is an xemacs function that is not found in
> gnu emacs?

It is there in Emacs 22 and XEmacs, but not in Emacs 21

This error should not happen unless you are running a development
version, i.e. if VM finds a .bzr directory in the directory ../
relative to the vm.el source file, but then it also should not
search for bzr ...

The following patch should fix it ...

Robert.


=== modified file 'lisp/vm-version.el'
--- lisp/vm-version.el	2007-07-18 00:35:58 +0000
+++ lisp/vm-version.el	2007-08-15 20:55:49 +0000
@@ -40,13 +40,15 @@
       (let* ((f (locate-library "vm"))
              (d (file-name-directory f))
              (b (get-buffer " *vm-version*"))
-	     (devo (file-exists-p (expand-file-name ".bzr" (concat d "../"))))
-	     (bzr (or (locate-file "bzr.exe" exec-path)
-		      (locate-file "bzr.bat" exec-path)
-		      (locate-file "bzr" exec-path))))
+	     (bzrdir (expand-file-name ".bzr" (concat d "../")))
+	     (bzr (and (file-exists-p bzrdir)
+		       (functionp 'locate-file)
+		       (or (locate-file "bzr.exe" exec-path)
+			   (locate-file "bzr.bat" exec-path)
+			   (locate-file "bzr" exec-path)))))
         (setq default-directory d)
         (erase-buffer)
-        (cond ((and devo bzr 
+        (cond ((and bzr 
 		    (condition-case nil
 			(= 0 (call-process bzr nil b))
 		      (error nil)))
@@ -55,7 +57,9 @@
 	       (call-process bzr nil b nil "--no-aliases" "--no-plugins" "nick") 
 	       (insert "-")
 	       (call-process bzr nil b nil "--no-aliases" "--no-plugins" "revno"))
-              ((and (not devo) (locate-library "vm-revno") (load-library "vm-revno"))
+              ((and (not bzr) 
+		    (locate-library "vm-revno") 
+		    (load-library "vm-revno"))
                (insert vm-revno))
               (t
                (insert "?bug?")