(load-library "up-rules")
(defvar mhg-use-vm t)

(load-library "mhg")
(load-library "gnus-mail-vm")
(require 'vm)
(require 'mhspool)

(defun mhspool-request-list ()
  "List active newsgoups."
  (save-excursion
    (call-process "active" nil nil nil gnus-nntp-server)
    (set-buffer nntp-server-buffer)
    (erase-buffer)
    (insert-file-contents 
     (expand-file-name (concat "~/.active-" gnus-nntp-server)))
    (buffer-size)))

