112 |
(require 'dired-aux) |
(require 'dired-aux) |
113 |
|
|
114 |
(defvar vm-folder-directory) |
(defvar vm-folder-directory) |
115 |
|
(eval-when-compile (require 'man)) |
116 |
|
|
117 |
;;; User-defined variables. |
;;; User-defined variables. |
118 |
|
|
1412 |
|
|
1413 |
;;; Run mail on mail folders. |
;;; Run mail on mail folders. |
1414 |
|
|
1415 |
;;; (and (not (fboundp 'vm-visit-folder)) |
;; Avoid compiler warning. |
1416 |
;;; (defun vm-visit-folder (file &optional arg) |
(eval-when-compile |
1417 |
;;; nil)) |
(when (not (fboundp 'vm-visit-folder)) |
1418 |
|
(defun vm-visit-folder (file &optional arg) |
1419 |
|
nil))) |
1420 |
|
|
1421 |
(defun dired-vm (&optional read-only) |
(defun dired-vm (&optional read-only) |
1422 |
"Run VM on this file. |
"Run VM on this file. |