-(defun nnmh-open-server (server &optional defs)
- (nnheader-init-server-buffer)
- (if (equal server nnmh-current-server)
- t
- (if nnmh-current-server
- (setq nnmh-server-alist
- (cons (list nnmh-current-server
- (nnheader-save-variables nnmh-server-variables))
- nnmh-server-alist)))
- (let ((state (assoc server nnmh-server-alist)))
- (if state
- (progn
- (nnheader-restore-variables (nth 1 state))
- (setq nnmh-server-alist (delq state nnmh-server-alist)))
- (nnheader-set-init-variables nnmh-server-variables defs)))
- (setq nnmh-current-server server)))
-
-(defun nnmh-close-server (&optional server)
- (setq nnmh-current-server nil)
- t)
-
-(defun nnmh-server-opened (&optional server)
- (and (equal server nnmh-current-server)
- nntp-server-buffer
- (buffer-name nntp-server-buffer)))
-
-(defun nnmh-status-message (&optional server)
- nnmh-status-string)
-
-(defun nnmh-request-article (id &optional newsgroup server buffer)
- (nnmh-possibly-change-directory newsgroup)
+(deffoo nnmh-open-server (server &optional defs)
+ (nnoo-change-server 'nnmh server defs)
+ (when (not (file-exists-p nnmh-directory))
+ (condition-case ()
+ (make-directory nnmh-directory t)
+ (error t)))
+ (cond
+ ((not (file-exists-p nnmh-directory))
+ (nnmh-close-server)
+ (nnheader-report 'nnmh "Couldn't create directory: %s" nnmh-directory))
+ ((not (file-directory-p (file-truename nnmh-directory)))
+ (nnmh-close-server)
+ (nnheader-report 'nnmh "Not a directory: %s" nnmh-directory))
+ (t
+ (nnheader-report 'nnmh "Opened server %s using directory %s"
+ server nnmh-directory)
+ t)))
+
+(deffoo nnmh-request-article (id &optional newsgroup server buffer)
+ (nnmh-possibly-change-directory newsgroup server)