use temporary file for CA cert

(twittering-cert-file): add
(twittering-ensure-ca-cert): generate temporary file for CA certificate

ChangeLog

@@ -3,6 +3,8 @@
 	* twittering-mode.el (twittering-url-reserved-p): bug fix: some
 	reserved characters considered unreserved. Thanks to IMAI
 	Toshiyuki
+	(twittering-cert-file): add
+	(twittering-ensure-ca-cert): generate temporary file for CA certificate
 
 2010-01-06  Satoshi Yatagawa  <yata_github@y.hauN.org>
 

twittering-mode.el

@@ -661,15 +661,15 @@ PARAMETERS: http request parameters (query string)
 	 noninteractive sentinel)))))
 
 ;;; FIXME: file name is hard-coded. More robust way is desired.
+(defvar twittering-cert-file nil)
 (defun twittering-ensure-ca-cert ()
   "Create a CA certificate file if it does not exist, and return
 its file name."
-  (let ((file-name (expand-file-name
-		    (format "twmode-twitter-cacert-%s.pem"
-			    (user-login-name))
-		    temporary-file-directory)))
-    (with-temp-file file-name
-      (insert "-----BEGIN CERTIFICATE-----
+  (if twittering-cert-file
+      twittering-cert-file
+    (let ((file-name (make-temp-file "twmode-cacert")))
+      (with-temp-file file-name
+	(insert "-----BEGIN CERTIFICATE-----
 MIICkDCCAfmgAwIBAgIBATANBgkqhkiG9w0BAQQFADBaMQswCQYDVQQGEwJVUzEc
 MBoGA1UEChMTRXF1aWZheCBTZWN1cmUgSW5jLjEtMCsGA1UEAxMkRXF1aWZheCBT
 ZWN1cmUgR2xvYmFsIGVCdXNpbmVzcyBDQS0xMB4XDTk5MDYyMTA0MDAwMFoXDTIw
@@ -685,7 +685,7 @@ A4GBADDiAVGqx+pf2rnQZQ8w1j7aDRRJbpGTJxQx78T3LUX47Me/okENI7SS+RkA
 Z70Br83gcfxaz2TE4JaY0KNA4gGK7ycH8WUBikQtBmV1UsCGECAhX2xrD2yuCRyv
 8qIYNMR1pHMc8Y3c7635s3a0kr/clRAevsvIO1qEYBlWlKlV
 -----END CERTIFICATE-----"))
-    file-name))
+      (setq twittering-cert-file file-name))))
 
 (defun twittering-start-http-ssl-session (curl-program method headers host port path parameters &optional noninteractive sentinel)
   ;; TODO: use curl