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

;;;							-*- 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)     ;; thread作成時は常にopenにする

(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\\)")
;; Newsgroupsフィールドをoverview情報に入れる設定(ただし，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
;;;