;;; Commentary:
;;
+;;; Code:
+;;
(eval-when-compile (require 'cl))
(require 'elmo-util)
(require 'elmo-cache)
(require 'elmo)
-;;; Code:
-;;
-
(defconst elmo-net-folder-name-syntax '((?@ [server ".+"])
(?: [port "^[0-9]+$"])
(?! stream-type)))
(luna-define-method elmo-network-close-session ((session elmo-network-session))
(when (elmo-network-session-process-internal session)
-;;; (memq (process-status (elmo-network-session-process-internal session))
+;;; (memq (process-status (elmo-network-session-process-internal session))
;;; '(open run))
(kill-buffer (process-buffer
(elmo-network-session-process-internal session)))