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