Re: [質問] IMAP Unknown host imap.gmai.com
KIRIYAMA Kazuhiko <[email protected]> Fri, 31 May 2019 19:21:58 +0900
| Newsgroups | gmane.mail.wanderlust.general.japanese |
|---|---|
| Message-ID | <[email protected]> |
On Fri, 31 May 2019 11:14:45 +0900, <[email protected]> wrote: > > > > ? > > > proxygmail > > > $ uname -a > MINGW64_NT-6.1 JPC20316739 3.0.6(0.338/5/3) 2019-04-15 06:44 x86_64 Msys > > $ openssl version > OpenSSL 1.1.1b 26 Feb 2019 > > $ connect-proxy > connect --- simple relaying command via proxy. > Version 1.104 > usage: C:\msys64\mingw64\bin\connect-proxy.exe [-dnhst45] [-p local-port] > [-H proxy-server[:port]] [-S [user@]socks-server[:port]] > [-T proxy-server[:port]] > [-c telnet-proxy-command] > host port > > *scratch* > emacs-version > "26.2" > wl-version > "2.15.9" > ssl-program-arguments > ("s_client" "-quiet" "-connect" (format "%s:%s" host service) "-proxy" ( > format "%s:%s" wl-proxy-server wl-proxy-port)) > ssl-program-name > "openssl" > wl-proxy-server > "proxy.company.co.jp" > wl-proxy-port > "10080" > > openssl s_client --connect imap.gmail.com:993 -proxy proxy.comapny.co. > jp:10080 > $ CONNECTED(000000EC) > --- > Certificate chain > 0 s:C = US, ST = California, L = Mountain View, O = Google LLC, CN = > imap.gmail.com > i:C = US, O = Google Trust Services, CN = Google Internet Authority > G3 > 1 s:C = US, O = Google Trust Services, CN = Google Internet Authority > G3 > i:OU = GlobalSign Root CA - R2, O = GlobalSign, CN = GlobalSign > --- > Server certificate > -----BEGIN CERTIFICATE----- > [snip] > -----END CERTIFICATE----- > subject=C = US, ST = California, L = Mountain View, O = Google LLC, CN = > imap.gmail.com > > issuer=C = US, O = Google Trust Services, CN = Google Internet Authority > G3 > > --- > No client certificate CA names sent > Peer signing digest: SHA256 > Peer signature type: RSA-PSS > Server Temp Key: X25519, 253 bits > --- > SSL handshake has read 2820 bytes and written 443 bytes > Verification: OK > --- > New, TLSv1.3, Cipher is TLS_AES_256_GCM_SHA384 > Server public key is 2048 bit > Secure Renegotiation IS NOT supported > Compression: NONE > Expansion: NONE > No ALPN negotiated > Early data was not sent > Verify return code: 0 (ok) > --- > * OK Gimap ready for requests from 2001:cf8:0:6c::203 b1mb21205904ioh % openssl s_client --connect imap.gmail.com:993 CONNECTED(00000005) depth=2 OU = GlobalSign Root CA - R2, O = GlobalSign, CN = GlobalSign verify return:1 depth=1 C = US, O = Google Trust Services, CN = Google Internet Authority G3 verify return:1 depth=0 C = US, ST = California, L = Mountain View, O = Google LLC, CN = imap.gmail.com verify return:1 --- Certificate chain 0 s:C = US, ST = California, L = Mountain View, O = Google LLC, CN = imap.gmail.com i:C = US, O = Google Trust Services, CN = Google Internet Authority G3 1 s:C = US, O = Google Trust Services, CN = Google Internet Authority G3 i:OU = GlobalSign Root CA - R2, O = GlobalSign, CN = GlobalSign --- : (snip) : Start Time: 1559297510 Timeout : 7200 (sec) Verify return code: 0 (ok) Extended master secret: no Max Early Data: 0 --- read R BLOCK * OK Gimap ready for requests from xxx.xxx.xx.xx a12mb687080677pjs QUIT DONE % ... > > > msys2 mingw64 > emacs Windows Gnu ftp site > > > "-crlf" cygwin > openssl proxy ver1.1 cygwin > > > > ;;; In case of openssl ver 1.1 above my own compiled on cygwin > environment, need to "-crlf" > ;;; It's the best to use Windows openssl until openssl ver1.1 above on > cygin is released > > .wl.el > https://github.com/yamatakau08/.emacs.d/blob/9a452791a0b6d01d813e11d0ae9718a360e29b9a/.wl.el#L78 > > > > > ( FreeBSD 9.* ) gmail ~/.wl ;-p > > ----- Original Message ----- > > > > > > dot.wl > > > > ;(setq ssl-program-arguments > > ; '("s_client" > > ; "-connect" > > ; (format "%s:%s" host service) > > ; "-crlf" > > ; )) > > > > ~/.wl > > > > > > On Fri, 31 May 2019 09:58:49 +0900, > > KIRIYAMA Kazuhiko wrote: > > > > > > [1 <text/plain; ISO-2022-JP (7bit)>] > > > > > > > > > On Sun, 10 Jun 2018 15:03:38 +0900, > > > Kazuhiro Ito wrote: > > > > > > > > > > > > > > > > > > openssl s_client -connect imap.gmail.com:993 -proxy proxy. > company.co. > > > > > jp:10080 -crlf > > > > > > > > > > > > (-crlf ) openssl > > > > > > > > > > > > a01 capability > > > > > > > > > > > > xxxxx@smtp:~[159]% openssl version > > > OpenSSL 1.1.1-freebsd 11 Sep 2018 > > > xxxxx@smtp:~[160]% uname -a > > > FreeBSD smtp 13.0-CURRENT FreeBSD 13.0-CURRENT #0 r339677M: Fri Oct > 26 14:56:49 JST 2018 root@msrvkx:/usr/obj/usr/src/amd64.amd64/sys/ > XIJ amd64 > > > xxxxx@smtp:~[161]% > > > > > > () > > > > > > xxxxx@smtp:~[154]% openssl s_client -connect imap.gmail.com:993 > > > CONNECTED(00000005) > > > depth=2 OU = GlobalSign Root CA - R2, O = GlobalSign, CN = > GlobalSign > > > verify return:1 > > > depth=1 C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > verify return:1 > > > depth=0 C = US, ST = California, L = Mountain View, O = Google LLC, > CN = imap.gmail.com > > > verify return:1 > > > --- > > > Certificate chain > > > 0 s:C = US, ST = California, L = Mountain View, O = Google LLC, CN > = imap.gmail.com > > > i:C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > 1 s:C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > i:OU = GlobalSign Root CA - R2, O = GlobalSign, CN = GlobalSign > > > --- > > > : > > > (snip) > > > : > > > --- > > > read R BLOCK > > > * OK Gimap ready for requests from xxx.xxx.xx.xx w10mb971508948ivl > > > a01 capability > > > DONE C-d > > > xxxxx@smtp:~[155]% openssl s_client -connect imap.gmail.com:993 - > crlf > > > CONNECTED(00000005) > > > depth=2 OU = GlobalSign Root CA - R2, O = GlobalSign, CN = > GlobalSign > > > verify return:1 > > > depth=1 C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > verify return:1 > > > depth=0 C = US, ST = California, L = Mountain View, O = Google LLC, > CN = imap.gmail.com > > > verify return:1 > > > --- > > > Certificate chain > > > 0 s:C = US, ST = California, L = Mountain View, O = Google LLC, CN > = imap.gmail.com > > > i:C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > 1 s:C = US, O = Google Trust Services, CN = Google Internet > Authority G3 > > > i:OU = GlobalSign Root CA - R2, O = GlobalSign, CN = GlobalSign > > > --- > > > : > > > (snip) > > > : > > > --- > > > read R BLOCK > > > * OK Gimap ready for requests from xxx.xxx.xx.xx r7mb205354317iva > > > a01 capability > > > * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST > CHILDREN X-GM-EXT-1 XYZZY SASL-IR AUTH=XOAUTH2 AUTH=PLAIN AUTH=PLAIN- > CLIENTTOKEN AUTH=OAUTHBEARER AUTH=XOAUTH > > > a01 OK Thats all she wrote! r7mb205354317iva > > > DONE C-d > > > xxxxx@smtp:~[156]% > > > > > > %inbox gmail > > > > > > > > > > > > > > > imap > > > > > > > > > > $ openssl s_client -connect imap.gmail.com:993 -proxy proxy. > company.co. > > > > > jp:10080 -crlf > > > > (snip) > > > > > * OK Gimap ready for requests from 2001:cf8:0:6c::198 l7- > > > > > v6mb407176104ivc > > > > > a01 capability > > > > > * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST > CHILDREN X > > > > > -GM-EXT-1 XYZZY SASL-IR AUTH=XOAUTH2 AUTH=PLAIN AUTH=PLAIN- > CLIENTTOKEN > > > > > AUTH=OAUTHBEARER AUTH=XOAUTH > > > > > a01 OK Thats all she wrote! l7-v6mb407176104ivc > > > > > > > > > > a01 capability > > > > > > > > Emacs openssl > > > > > > > > > > > > > > > > > > > > > 1. Cygwin Emacs openssl > > > > > > > > > > ( C-g Wanderlust > > > > > M-t M-t ) > > > > > > > > 2. openssl "-crlf" > > > > > > > > > > > > (setq ssl-program-arguments > > > > '("s_client" > > > > "-connect" > > > > (format "%s:%s" host service) > > > > "-proxy" > > > > "proxy.company.co.jp:10080" > > > > "-crlf" > > > > > > > > > > > > (setq ssl-program-arguments > > > '("s_client" > > > "-connect" > > > (format "%s:%s" host service) > > > "-crlf" > > > )) > > > > > > .wl > > > > > > Debugger entered--Lisp error: (wrong-type-argument characterp nil) > > > signal(wrong-type-argument (characterp nil)) > > > byte-code("..." [obj demo-buf buffer-live-p kill-buffer signal] 3) > > > wl(nil) > > > call-interactively(wl) > > > command-execute(wl t) > > > execute-extended-command(nil) > > > call-interactively(execute-extended-command) > > > > > > ~/.wl > > > > > > > > > > > -- > > > > (Kazuhiro Ito) > > > > > > > > > > [2 dot.wl <text/plain; ISO-2022-JP (7bit)>] > > > ;;; -*- emacs-lisp -*- > > > ;;; ~/.wl (setting file for Wanderlust) > > > ;;; Last-Modified: 1999-05-12 > > > ;;; > > > > > > ;; ~/.emacs > > > ;; > > > ;(require 'mime-setup) > > > ;(autoload 'wl "wl" "Wanderlust" t) > > > ;; > > > > > > ;;; [[ ]] > > > > > > ;; From > > > ;(setq wl-from "Xxxxx Xxxxx <[email protected]>") > > > ;; Organization > > > ;(setq wl-organization "") > > > > > > ;;; [[ ]] > > > > > > ;; > > > (setq elmo-msgdb-directory "~/.elmo") > > > > > > ;; MH (localdir) > > > (setq elmo-localdir-folder-path "~/Mail") > > > ;; IMAP4 > > > ;(setq elmo-default-imap4-server "foo.org") > > > ;; > > > ;(setq elmo-default-nntp-server "foo.org") > > > ;(setq elmo-nntp-default-server "foo.org") > > > ;; > > > ;(setq wl-nntp-posting-server elmo-nntp-default-server) > > > ;; (SMTP) > > > ;; OpenSSL > > > (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))) > > > ;; SSL/TLS > > > (setq ssl-certificate-directory "/home/xxxxx/.w3/certs") > > > ;; IMAP, gmail: > > > (setq elmo-imap4-default-server "imap.gmail.com" > > > elmo-imap4-default-user "[email protected]" > > > elmo-imap4-default-authenticate-type 'clear > > > elmo-imap4-default-port '993 > > > elmo-imap4-default-stream-type 'ssl > > > > > > ;;for non ascii-characters in folder-names > > > elmo-imap4-use-modified-utf7 t) > > > > > > ;; SMTP > > > (setq wl-smtp-connection-type 'starttls > > > wl-smtp-posting-port 587 > > > wl-smtp-authenticate-type "plain" > > > wl-smtp-posting-user "xxxxx.xxxxx" > > > wl-smtp-posting-server "smtp.gmail.com" > > > wl-local-domain "gmail.com" > > > wl-message-id-domain "smtp.gmail.com") > > > > > > (setq wl-from "Xxxxx Xxxxx <[email protected]>" > > > ;;all system folders (draft, trash, spam, etc) are placed in > the > > > ;;[Gmail]-folder, except inbox. "%" means it's an IMAP-folder > > > wl-default-folder "%inbox" > > > wl-draft-folder "%[Gmail]/Drafts" > > > wl-trash-folder "%[Gmail]/Trash" > > > wl-fcc "%[Gmail]/Sent" > > > > > > ;; mark sent messages as read (sent messages get sent back to > you and > > > ;; placed in the folder specified by wl-fcc) > > > wl-fcc-force-as-read t > > > > > > ;;for when auto-compleating foldernames > > > wl-default-spec "%") > > > > > > ;(setq wl-smtp-posting-server "localhost") > > > ;(setq wl-smtp-posting-server "mail.pis") > > > (setq wl-local-domain "gmail.com") > > > (setq wl-message-id-domain "gmail.com") > > > (setq wl-envelope-from "[email protected]") > > > > > > ;; OpenSSL CRLF issue > > > ;(setq ssl-program-arguments > > > ; '("s_client" > > > ; "-connect" > > > ; (format "%s:%s" host service) > > > ; "-crlf" > > > ; )) > > > > > > ;; (XEmacs ) > > > ;; (XEmacs package > ) > > > ;(setq wl-icon-dir "~/work/wl/etc") > > > > > > > > > ;(setq wl-default-folder "+inbox") ;; wl-summary-goto-folder > > > > ;; > > > ;(setq wl-default-spec "+") ;; > > > ;; > > > > > > ;(setq wl-fcc "+outbox") ;; Folder Carbon Copy > > > > > > (setq wl-interactive-exit t) ;; > > > (setq wl-interactive-send t) ;; > > > > > > (setq wl-auto-select-first t) ;; > > > > (setq wl-auto-select-next t) ;; > > > > ;; > > > (setq wl-auto-select-next 'skip-no-unread) > > > ;; > > > ;; SPC > > > (setq wl-summary-move-order 'unread) ;; > > > (setq wl-thread-insert-opened t) ;; threadopen > > > > > > (setq wl-stay-folder-window t) ;; > > > > ;; > > > > > > ;; > > > ;; (localdir, localnews, maildir ) > > > (setq elmo-archive-use-cache nil) > > > (setq elmo-nntp-use-cache t) > > > (setq elmo-imap4-use-cache t) > > > (setq elmo-pop3-use-cache t) > > > > > > ;; IMAP (unplugged) > > > ;(setq elmo-enable-disconnected-operation t) > > > > > > ;; unplugged (`wl-queue-folder') > > > (setq wl-draft-enable-queuing t) > > > ;; unplugged plugged > > > > ;; "+queue" > > > (setq wl-auto-flush-queue t) > > > > > > > > > ;; highlight () > > > > > > ;; > > > ;(setq wl-highlight-group-folder-by-numbers nil) > > > ; > > > ;(setq wl-highlight-message-header-alist > > > ; '(("Subject[ \t]*:" . wl-highlight-message-subject-header- > contents) > > > ; ("From[ \t]*:" . wl-highlight-message-from-header-contents) > > > ; ("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message- > important-header-contents) > > > ; ("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" . > > > ; wl-highlight-message-unimportant-header-contents) > > > ; )) > > > ;;; > > > ;(setq wl-highlight-citation-face-list > > > ; '(wl-highlight-message-cited-text-1)) > > > ; > > > ;(defun my-wl-set-face (face spec) > > > ; (make-face face) > > > ; (cond ((fboundp 'face-spec-set) > > > ; (face-spec-set face spec)) > > > ; (t > > > ; (wl-declare-face face spec)))) > > > ; > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-body-too > > > ; '((t (:foreground "white")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-message-subject-header-contents > > > ; '((t (:foreground "SkyBlue1" :bold t)))) > > > ;(my-wl-set-face 'wl-highlight-message-from-header-contents > > > ; '((t (:foreground "PaleVioletRed1" :bold t)))) > > > ;(my-wl-set-face 'wl-highlight-message-important-header-contents > > > ; '((t (:foreground "PaleVioletRed" :bold t)))) > > > ;(my-wl-set-face 'wl-highlight-message-unimportant-header-contents > > > ; '((t (:foreground "DeepSkyBlue3" :bold t)))) > > > ;(my-wl-set-face 'wl-highlight-message-headers > > > ; '((t (:foreground "MediumOrchid1" :bold t)))) > > > ;(my-wl-set-face 'wl-highlight-message-header-contents > > > ; '((t (:foreground "LightSalmon" :bold nil)))) > > > ;(my-wl-set-face 'wl-highlight-message-signature > > > ; '((t (:foreground "LavenderBlush2")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-message-citation-header > > > ; '((t (:foreground "PaleGreen1")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-1 > > > ; '((t (:foreground "DarkSeaGreen")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-2 > > > ; '((t (:foreground "SandyBrown")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-3 > > > ; '((t (:foreground "orchid3")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-4 > > > ; '((t (:foreground "purple1")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-5 > > > ; '((t (:foreground "MediumPurple1")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-6 > > > ; '((t (:foreground "PaleVioletRed")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-7 > > > ; '((t (:foreground "LightPink")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-8 > > > ; '((t (:foreground "salmon")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-9 > > > ; '((t (:foreground "SandyBrown")))) > > > ;(my-wl-set-face 'wl-highlight-message-cited-text-10 > > > ; '((t (:foreground "wheat")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-summary-important-face > > > ; '((t (:foreground "purple")))) > > > ;(my-wl-set-face 'wl-highlight-summary-new-face > > > ; '((t (:foreground "tomato")))) > > > ;(my-wl-set-face 'wl-highlight-summary-unread-face > > > ; '((t (:foreground "RoyalBlue")))) > > > ;(my-wl-set-face 'wl-highlight-summary-deleted-face > > > ; '((t (:foreground "gray")))) > > > ;(my-wl-set-face 'wl-highlight-summary-refiled-face > > > ; '((t (:foreground "blue")))) > > > ;(my-wl-set-face 'wl-highlight-summary-temp-face > > > ; '((t (:foreground "salmon")))) > > > ;(my-wl-set-face 'wl-highlight-summary-displaying-face > > > ; '((t (:bold t :underline t :foreground "PaleGreen")))) > > > ;;; () > > > ;(my-wl-set-face 'wl-highlight-summary-thread-top-face > > > ; '((t (:foreground "MediumSeaGreen")))) > > > ;(my-wl-set-face 'wl-highlight-summary-normal-face > > > ; '((t (:foreground "PaleGreen")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-folder-unknown-face > > > ; '((t (:foreground "RoyalBlue")))) > > > ;(my-wl-set-face 'wl-highlight-folder-killed-face > > > ; '((t (:foreground "grey50")))) > > > ;(my-wl-set-face 'wl-highlight-folder-unread-face > > > ; '((t (:foreground "PaleGreen")))) > > > ;(my-wl-set-face 'wl-highlight-folder-zero-face > > > ; '((t (:foreground "DarkSeaGreen")))) > > > ;(my-wl-set-face 'wl-highlight-folder-few-face > > > ; '((t (:foreground "SpringGreen")))) > > > ;(my-wl-set-face 'wl-highlight-folder-many-face > > > ; '((t (:foreground "HotPink1")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-folder-opened-face > > > ; '((t (:foreground "forest green")))) > > > ;(my-wl-set-face 'wl-highlight-folder-closed-face > > > ; '((t (:foreground "DarkOliveGreen4")))) > > > ;;; > > > ;(my-wl-set-face 'wl-highlight-demo-face > > > ; '((t (:foreground "blue2")))) > > > ; > > > ; > > > ;;; [[ ]] > > > > > > ;; jka-compr ~/elmo/SPEC/ > > > ;(setq elmo-msgdb-overview-filename "overview.gz") > > > ;(setq elmo-msgdb-number-filename "number.gz") > > > ;(setq wl-summary-cache-file ".wl-summary-cache.gz") > > > ;(setq wl-thread-top-file ".wl-thread-top.gz") > > > > > > > > > ;; check > > > (add-hook 'wl-folder-check-entity-hook > > > '(lambda () > > > (wl-folder-open-unread-folder entity) > > > )) > > > > > > ;; > > > ;; (To,Newsgroups) > > > > > > ;; > > > (setq my-wl-user-mail-address-list > > > (list (wl-address-header-extract-address wl-from) > > > ;;"[email protected]" ... > > > )) > > > ;; > > > (setq my-wl-summary-showto-folder-regexp "\\(^\\+outbox\\|^%#mh/ > outbox\\)") > > > ;; Newsgroupsoverview(local > ) > > > ;; > > > (setq elmo-msgdb-extra-fields '("newsgroups" > > > "x-ml-name" > > > "x-mail-count" "x-ml-count" > > > "x-sequence" > > > "mailing-list")) > > > > > > ;;; ML Subject > > > ;;; ML ML > > > ;(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml) > > > (setq wl-summary-subject-function 'my-wl-summary-subject-func-ml) > > > (defun my-wl-summary-subject-func-ml (subject-string) > > > (let ((folder wl-summary-buffer-folder-name) > > > (subj subject-string) (sequence) (ml-name) (ml-count)) > > > (setq sequence (elmo-msgdb-overview-entity-get-extra-field > > > entity "x-sequence") > > > ml-name (or (elmo-msgdb-overview-entity-get-extra-field > > > entity "x-ml-name") > > > (and sequence > > > (car (split-string sequence " ")))) > > > ml-count (or (elmo-msgdb-overview-entity-get-extra-field > > > entity "x-mail-count") > > > (elmo-msgdb-overview-entity-get-extra-field > > > entity "x-ml-count") > > > (and sequence > > > (cadr (split-string sequence " "))))) > > > (if (string-match > > > "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" > > > subject-string) > > > (progn > > > (setq subj (substring subject-string (match-end 0))) > > > (if (not ml-name) (setq ml-name (match-string 1 subject-string))) > > > (if (not ml-count) (setq ml-count (match-string 2 subject-string)) > ))) > > > (if (and ml-name ml-count) > > > (if (string= folder wl-default-folder) > > > (format "(%s %05d) %s" > > > (car (split-string ml-name " ")) > > > (string-to-int ml-count) > > > subj) > > > (format "#%05d %s" > > > (string-to-int ml-count) subj)) > > > subj))) > > > > > > ;; imput > > > ;; (utils/im-wl.el > > > ;; ~/.im/Config (Smtpservers) > > > ;; wl-draft-enable-queuing ) > > > ;(autoload 'wl-draft-send-with-imput-async "im-wl") > > > ;(setq wl-draft-send-func 'wl-draft-send-with-imput-async) > > > > > > ;; > > > (setq wl-template-alist > > > '(("default" > > > ("User-Agent" . nil) > > > ("MIME-Version" . "1.0") > > > ("Return-Path" . nil) > > > (body . "XXXX\n")) > > > ("report" > > > ("To" . "[email protected]") > > > ("Subject" . "") > > > (top . "\n") ;; > > > ;; (file-bottom . "~/work/report.txt") ;; > > > ) > > > )) > > > ;; ()From Organization > > > > (setq wl-draft-prepared-config-alist > > > '((reply > > > (template . "default")) > > > ("^.*" > > > (template . "default")) > > > )) > > > ;; From Organization > > > > (setq wl-draft-config-alist > > > '(("^To:.* \\(admin\\|project\\|support\\|info\\|users\\)@ > xxxxxxx\\.jp" > > > (template . "default") > > > ("Organization" . "XXXX")) > > > ("^To:.* [^ ]+@kx\\.openedu\\.org" > > > (template . "default")) > > > )) > > > ;; User-Agent > > > (add-hook 'wl-draft-send-hook > > > '(lambda () > > > (make-local-variable 'mime-edit-insert-user-agent- > field) > > > (setq mime-edit-insert-user-agent-field nil))) > > > > > > ;; Mail-Followup-To Mail-Reply-To > > > ;(setq wl-insert-mail-followup-to t) > > > ;(setq wl-insert-mail-reply-to t) > > > (setq wl-insert-mail-reply-to nil) > > > (setq wl-insert-message-id nil) > > > > > > ;; > > > > > > ;; alist > > > ;; ('' . > > > ;; ('To' 'Cc' 'Newsgroups')) > > > > > > ;; "a" (without-argument) Reply-To From > > > > ;; X-ML-Name Reply-To > > > > ;; Reply-To > > > ; (setq wl-draft-reply-without-argument-list > > > ; '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) > > > ; ("X-ML-Name" . (("To" "Cc") nil nil)) > > > ; ("Followup-To" . (nil nil ("Followup-To"))) > > > ; ("Newsgroups" . (nil nil ("Newsgroups"))) > > > ; ("Reply-To" . (("Reply-To") nil nil)) > > > ; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) > > > ; ("From" . (("From") nil nil)))) > > > ; > > > ;; "C-u a" (with-argument) > > > ; (setq wl-draft-reply-with-argument-list > > > ; '(("Followup-To" . (("From") nil ("Followup-To"))) > > > ; ("Newsgroups" . (("From") nil ("Newsgroups"))) > > > ; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) > > > ; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) > > > > > > > > > ;; X-Face ( x-face (and x-face-mule)) > > > ; > > > ;(when (and window-system > > > ; (module-installed-p 'x-face)) > > > ; (cond (wl-on-xemacs ;; for XEmacs > > > ; (autoload 'x-face-xmas-mew-display-x-face "x-face" nil t) > > > ; (setq wl-highlight-x-face-func > > > ; 'x-face-xmas-mew-display-x-face)) > > > ; ((module-installed-p 'x-face-mule) ;; for Mule (GNU Emacs) > > > ; ;; x-face-mule 0.20 > > > ; (setq wl-highlight-x-face-func > > > ; (function > > > ; (lambda (beg end) > > > ; (x-face-mule-x-face-decode-message-header beg end)))) > > > ; (setq x-face-mule-highlight-x-face-style 'xmas) > > > ; (require 'x-face-mule) > > > ; ))) > > > ; > > > ;; X-Face > > > ;(setq wl-auto-insert-x-face nil) > > > ;(setq x-face-image-file-directory "~/.xfaces") > > > ;(setq x-face-default-xbm-file "cface.xbm") > > > ;(add-hook 'wl-mail-setup-hook > > > ; (function (lambda () (x-face-insert)))) > > > > > > ;; > > > (setq elmo-msgdb-extra-fields > > > '("Mailing-list")) > > > > > > ;; > > > (setq wl-refile-rule-alist > > > '( > > > ("Subject" > > > ("^ *\\[GitHub\\]" . "+maintain/ > github") > > > ("info - xxxxxxx\\.jp admins:" . "+xxxxxxx/ML/ > info")) > > > ("From" > > > ("Google for Work Support .*@google\\.com" . "+maintain/ > google")) > > > ("To" > > > ("xxxxx\\.xxxxx@gmail\\.com" . "+private/me") > > > ("admin@xxxxxxxx\\.jp" . "+tgj/admin") > > > ("xxxxx@xxxxxxxx\\.jp" . "+tgj/xxxxx") > > > ("xxxxx@xxxxxxx\\.jp" . "+xxxxxxx/xxxxx") > ) > > > ("Mailing-list" > > > ("admin@xxxxxxx\\.jp" . "+xxxxxxx/ML/ > admin") > > > ("project@xxxxxxx\\.jp" . "+xxxxxxx/ML/ > project") > > > ("support@xxxxxxx\\.jp" . "+xxxxxxx/ML/ > support") > > > ("users@xxxxxxx\\.jp" . "+xxxxxxx/ML/ > users") > > > ("info@xxxxxxx\\.jp" . "+xxxxxxx/ML/ > info")) > > > ("Cc" > > > ("xxxxx.xxxxx@gmail\\.com" . "+private/me") > > > ("xxxxx@xxxxxxxx\\.jp" . "+tgj/xxxxx") > > > ("xxxxx@xxxxxxx\\.jp" . "+xxxxxxx/xxxxx") > > > ("admin@xxxxxxxx\\.jp" . "+tgj/admin") > > > ("admin@xxxxxxx\\.jp" . "+xxxxxxx/admin") > ))) > > > > > > ;; > > > ;; "N" "U" "!" > > > > ;; nil > > > (setq wl-summary-auto-refile-skip-marks nil) > > > > > > ;; Cc > > > (setq wl-subscribed-mailing-list > > > '("[email protected]" > > > "[email protected]")) > > > > > > ;; > > > (setq wl-alias-file "~/.im/Addrbook") > > > > > > ;; > > > (setq wl-auto-uncheck-folder-list > > > '("^+trash" > > > "^+draft" > > > "^+spam" > > > "^+twitter" > > > "^+virus" > > > "^+.*/daily")) > > > > > > ;; c-sig() > > > (autoload 'add-signature "c-sig" "c-sig" t) > > > (autoload 'delete-signature "c-sig" "c-sig" t) > > > (autoload 'insert-signature-eref "c-sig" "c-sig" t) > > > (autoload 'insert-signature-automatically "c-sig" "c-sig" t) > > > (autoload 'insert-signature-randomly "c-sig" "c-sig" t) > > > (setq sig-insert-end t) > > > (setq sig-save-to-sig-name-alist nil) > > > (setq message-signature-file nil) > > > > > > (add-hook 'wl-draft-mode-hook ;; > > > '(lambda () > > > (define-key (current-local-map) "\C-c\C-w" > > > 'insert-signature-automatically))) > > > > > > ;; > > > (setq wl-mime-charset 'iso-2022-jp) > > > > > > ;; IMAP4 > > > ;(setq elmo-default-imap4-authenticate-type 'cram-md5) ; Cram-MD5 > > > ;(setq elmo-default-imap4-authenticate-type 'clear) ; > > > > > > > ;; POP before SMTP > > > ;(setq wl-draft-send-mail-func 'wl-draft-send-mail-with-pop-before- > smtp) > > > ;(setq wl-pop-before-smtp-authenticate-type 'apop) > > > ;(setq wl-pop-before-smtp-server "foo.org") > > > ;(setq wl-pop-before-smtp-server "foo.org") > > > ;(setq wl-pop-before-smtp-user "xxxxx") > > > > > > ;; with SSL > > > ;(setq elmo-default-imap4-stream-type t) > > > > > > ;; UTF-8 + base64 > > > (require 'un-define) > > > (eval-after-load > > > "mime-edit" > > > '(let ((text (assoc "text" mime-content-types))) > > > (set-alist 'text "plain" > > > '(("charset" "" "ISO-2022-JP" "US-ASCII" > > > "ISO-8859-1" "ISO-8859-8" "UTF-8"))) > > > (set-alist 'mime-content-types "text" (cdr text)))) > > > ;(require 'jisx0213) > > > > > > ;; X-* > > > > > > ;(setq wl-generate-mailer-string-function nil) > > > ;(setq wl-generate-user-agent-string-1 nil) > > > ;(setq wl-draft-additional-header-alist > > > ; (list > > > ; (cons 'User-Agent (lambda () (product-string-1 wl-from))) > > > ; (cons 'X-Mailer (lambda () (product-string-1 wl-from))))) > > > > > > ;;; > > > ;;; end of file > > > ;;; > > > > > > > --- KIRIYAMA Kazuhiko