X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=blobdiff_plain;f=utils%2Fssl.el;h=1bf399a9a7b58300f7eab1283796530a5630e7f9;hp=0b74cd0bd3125a9ab9a2fe377a077d4b0f8abd06;hb=f7b18d435a8b6be5a3ca1a958109e05fc421dddd;hpb=c9194c3adf083dc87dfb8a3800492e6c06670be1

diff --git a/utils/ssl.el b/utils/ssl.el
index 0b74cd0..1bf399a 100644
--- a/utils/ssl.el
+++ b/utils/ssl.el
@@ -39,7 +39,7 @@
     (defmacro defgroup (&rest args)
       nil)
     (defmacro defcustom (var value doc &rest args) 
-      (` (defvar (, var) (, value) (, doc))))))
+      `(devar ,var ,value ,doc))))
 
 (defgroup ssl nil
   "Support for `Secure Sockets Layer' encryption."
@@ -192,9 +192,8 @@ specifying a port number to connect to."
   (let* ((process-connection-type nil)
 	 (port service)
 	 (proc (eval
-		(`
-		 (start-process name buffer ssl-program-name
-				(,@ ssl-program-arguments))))))
+		`(start-process name buffer ssl-program-name
+				,@ssl-program-arguments))))
     (process-kill-without-query proc)
     proc))