X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-net.el;h=7b3129e20d0f8ff8d8ea7f8c4378712a00b40bfa;hb=e64882498d21cef2b964ddc18d41421ab36bd19b;hp=5b946faee4be049e39353d17340d8d6682e0a47c;hpb=088fcf203dd50e445ce5dd8fd0e19eacb32bf238;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 5b946fa..7b3129e 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -30,6 +30,8 @@
 (require 'elmo-util)
 (require 'elmo-vars)
 
+;;; Code:
+;;
 (eval-and-compile
   (luna-define-class elmo-network-session () (name
 					      host
@@ -65,8 +67,8 @@
 
 (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))
-;	     '(open run))
+;;; (memq (process-status (elmo-network-session-process-internal session))
+;;;	  '(open run))
     (kill-buffer (process-buffer
 		  (elmo-network-session-process-internal session)))
     (delete-process (elmo-network-session-process-internal session))))
@@ -164,7 +166,7 @@ PORT is the port number of the service.
 USER is the user-id for the authenticate.
 AUTH is the authenticate method name (symbol).
 STREAM-TYPE is the stream type (See also `elmo-network-stream-type-alist').
-Returns a process object. if making session failed, returns nil."
+Returns a process object.  if making session failed, returns nil."
   (let ((session
 	 (luna-make-entity class
 			   :name name