Re: [質問] IMAP Unknown host imap.gmai.com
<[email protected]> Fri, 31 May 2019 11:14:45 +0900
| Newsgroups | gmane.mail.wanderlust.general.japanese |
|---|---|
| Message-ID | <[email protected]> |
?
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
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
----- 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
> > ;;;
>
>