# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1132002266 0
# Node ID ccb8ee5226d68bef862ff754313e732053e6af21
# Parent  87c432b77d3e0e0796178f12b6cadaefaa48fd35
If `vm-visit-folder' doesn't exist, define it as a dummy function in
`eval-when-compile' to avoid compiler warning.
Require `man' at compile time.

diff -r 87c432b77d3e -r ccb8ee5226d6 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Nov 14 20:21:40 2005 +0000
+++ b/lisp/ChangeLog	Mon Nov 14 21:04:26 2005 +0000
@@ -1,3 +1,9 @@
+2005-11-14  Romain Francoise  <romain@orebokech.com>
+
+	* dired-x.el: If `vm-visit-folder' doesn't exist, define it as a
+	dummy function in `eval-when-compile' to avoid compiler warning.
+	Require `man' at compile time.
+
 2005-11-14  Jay Belanger  <belanger@truman.edu>
 
 	* calc-alg.el (calcFunc-write-out-power): Rename it to
diff -r 87c432b77d3e -r ccb8ee5226d6 lisp/dired-x.el
--- a/lisp/dired-x.el	Mon Nov 14 20:21:40 2005 +0000
+++ b/lisp/dired-x.el	Mon Nov 14 21:04:26 2005 +0000
@@ -112,6 +112,7 @@
 (require 'dired-aux)
 
 (defvar vm-folder-directory)
+(eval-when-compile (require 'man))
 
 ;;; User-defined variables.
 
@@ -1411,9 +1412,11 @@
 
 ;;; Run mail on mail folders.
 
-;;; (and (not (fboundp 'vm-visit-folder))
-;;;      (defun vm-visit-folder (file &optional arg)
-;;;        nil))
+;; Avoid compiler warning.
+(eval-when-compile
+  (when (not (fboundp 'vm-visit-folder))
+    (defun vm-visit-folder (file &optional arg)
+      nil)))
 
 (defun dired-vm (&optional read-only)
   "Run VM on this file.