Re: [質問] IMAP Unknown host imap.gmai.com

 

On Sat, 19 May 2018 16:50:18 +0900,
Kazuhiro Ito wrote:
> 
> 
> 
> > Wanderlust  imap.gmail.com Proxy
> > 
> > openssl  "imap.gmail.com" 
> > WanderlustUnknown host "imap.gmail.com" 
> (snip)
> > (setq elmo-imap4-default-server "imap.gmail.com")
> > (setq elmo-imap4-default-user   "[email protected]")
> > (setq elmo-imap4-default-stream-type 'ssl) ; default:nil ssl,starttls,
> > socks,diret in defined in elmo-network-stream-type-alist
> > (setq ssl-program-name "openssl") ; should be set when using elmo-imap4-
> > default-stream is ssl
> > (setq elmo-imap4-default-authenticate-type 'clear)
> > 
> > (setq ssl-program-name "openssl")
> > 
> > (cond ((equal elmo-imap4-default-stream-type 'ssl)
> >        (setq elmo-imap4-default-port 993)
> >        (cond ((equal ssl-program-name "openssl")
> > ;	      (setq ssl-program-arguments '("s_client" "-quiet" "-host" host "
> > -port" service)))
> >       (setq ssl-program-arguments '("s_client" "-proxy" proxy "-quiet" "
> > -host" host "-port" service)))
> > 	     ((equal ssl-program-name "gnutls-cli")
> > 	      ;(setq ssl-program-arguments '("-p" service host)))
> > 	      (setq ssl-program-arguments '("--insecure" "-p" service host))))))
> 
> Emacs 24  GnuTLS  SSL 
> 
> opnssl  elmo-network-stream-type-alist 
> 
>  GnuTLS  proxy 
> 
> (setq elmo-network-stream-type-alist
>       (("!" ssl ssl open-ssl-stream)
>        ("!!" starttls nil open-network-stream)
>        ("!socks" socks socks socks-open-network-stream)
>        ("!direct" direct nil open-network-stream)))

XEmacs 21.4 (patch 24)  ()

Debugger entered--Lisp error: (invalid-function ("!" ssl ssl open-ssl-stream)) 
  (("!" ssl ssl open-ssl-stream) ("!!" starttls nil open-network-stream) ("!socks" socks socks socks-open-networ$
  (setq elmo-network-stream-type-alist (("!" ssl ssl open-ssl-stream) ("!!" starttls nil open-network-stream) ("$
  load-internal("~/.wl" noerror nomessage nil undecided) 
  load("~/.wl" noerror nomessage) 
  wl-local-load-profile() 
  wl-load-profile() 
  wl(nil) 
  call-interactively(wl) 
  command-execute(wl t) 
  execute-extended-command(nil) 
  call-interactively(execute-extended-command) 

> 
> proxy  ssl-program-arguments 
> 
> (setq ssl-program-arguments
>       '("s_client" "-proxy" "proxy.company.co.jp:10080"
> 	"-quiet" "-host" host "-port" service))
> 
> -- 
>  (Kazuhiro Ito)
> 

---
KIRIYAMA Kazuhiko