Function: nndiary-open-server

nndiary-open-server is a byte-compiled function defined in nndiary.el.gz.

Signature

(nndiary-open-server SERVER &optional DEFS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nndiary.el.gz
(deffoo nndiary-open-server (server &optional defs)
  (nnoo-change-server 'nndiary server defs)
  (dolist (header nndiary-headers)
    (setq header (intern (format "X-Diary-%s" (car header))))
    ;; Required for building NOV databases and some other stuff.
    (add-to-list 'gnus-extra-headers header)
    (add-to-list 'nnmail-extra-headers header))
  (when (not (file-exists-p nndiary-directory))
    (ignore-errors (make-directory nndiary-directory t)))
  (cond
   ((not (file-exists-p nndiary-directory))
    (nndiary-close-server)
    (nnheader-report 'nndiary "Couldn't create directory: %s"
		     nndiary-directory))
   ((not (file-directory-p (file-truename nndiary-directory)))
    (nndiary-close-server)
    (nnheader-report 'nndiary "Not a directory: %s" nndiary-directory))
   (t
    (nnheader-report 'nndiary "Opened server %s using directory %s"
		     server nndiary-directory)
    t)))