;;;;; .mew.el for CentOS 6.5 (UTF-8 Code) by ice (10/06/16)
;;;;; .mew.el for CentOS 6.5 (UTF-8 Code) by ice (09/18/16)
;;;;; .mew.el for CentOS 6.5 (UTF-8 Code) by ice (03/27/14)

;;; メールアドレスの @ より前（ユーザ名）を指定する。
;;; (setq mew-user "hayashi")
(setq mew-user "hayashi.atsuhiro")

;;; メールアドレスの @ 以降を指定する。
(setq mew-mail-domain "nitech.ac.jp")
;;; (setq mew-mail-domain "artsci.kyushu-u.ac.jp")
;;; (setq mew-mail-domain "rche.kyushu-u.ac.jp")
;;; (setq mew-mail-domain "rd.dnc.ac.jp")

;;; stunnel
(setq mew-prog-ssl "/usr/local/bin/stunnel")
(setq mew-ssl-verify-level 0)
;; (setq mew-ssl-cert-directory )  ;;; Did not need by ice on 10/17/16

;;; POPを利用する場合。APOP の場合は設定する必要はない。
;;; (setq mew-pop-auth 'pass)
(setq mew-pop-auth 'pass)

;;; POPサーバのアカウントを指定する。
;;; (setq mew-pop-user "hayashi@artsci.kyushu-u.ac.jp")
(setq mew-pop-user "fml08307")

;;; 利用するPOPサーバを指定する。
(setq mew-pop-server "mail.mains.nitech.ac.jp")
(setq mew-pop-ssl t)
(setq mew-pop-ssl-port "995")
;;; (setq mew-pop-server "hosting3.cc.kyushu-u.ac.jp")
;;; (setq mew-pop-server "mserve.artsci.kyushu-u.ac.jp")
;;; (setq mew-pop-server "xserve.rche.kyushu-u.ac.jp")
;;; (setq mew-pop-server "antlers.rd.dnc.ac.jp")

;; POP サーバからメッセージを取得後、
;; POP サーバにあるメッセージを削除するなら t
;; 残すなら nil に設定
;; N日残すなら N に設定
;; (setq mew-pop-delete nil)
;; (setq mew-pop-delete 90)   ;; by ice (03/25/14)
;; (setq mew-pop-delete t)    ;; by ice (03/27/14)
;;;(setq mew-pop-delete 60)   ;; by ice (10/20/14)
;; (setq mew-pop-delete nil)  ;; by ice (10/21/14)
;; (setq mew-pop-delete t)       ;; by ice (10/22/14) 残すと再読みしたときに再度読み出されてしまうため。
(setq mew-pop-delete nil)       ;; by ice (10/12/16) 残しておきたいため

;;; 利用するSMTPサーバ（メールサーバ）を指定する。
(setq mew-smtp-auth t)
(setq mew-smtp-ssl t)
(setq mew-smtp-ssl-port "465")
(setq mew-smtp-user "fml08307")
(setq mew-smtp-server "mail.mains.nitech.ac.jp")
(setq mew-smtp-auth-list '("LOGIN" "CRAM-MD5" "PLAIN"))

; (setq mew-smtp-server "hosting3.cc.kyushu-u.ac.jp") ;; for mew-5.2 on 03/30/13
; (setq mew-smtp-port "submission")
; (setq mew-smtp-user "hayashi@artsci.kyushu-u.ac.jp")
; (setq mew-smtp-auth-list '("CRAM-MD5" "PLAIN" "LOGIN"))
;; (setq mew-use-smtp-auth nil)
;;; (setq mew-smtp-server "mserve.artsci.kyushu-u.ac.jp")
;;; (setq mew-smtp-server "xserve.rche.kyushu-u.ac.jp")
;;; (setq mew-smtp-server "antlers.rd.dnc.ac.jp")
;;; (setq mew-smtp-server "peter.rd.dnc.ac.jp")
;;; (setq mew-smtp-server "mopsy.rd.dnc.ac.jp")

;; POP サーバから取得するメッセージの大きさの上限。
;; 初期値は 55296byte, 0 とすると上限なし。 by ice (03/25/14)
(setq mew-pop-size 0)

(setq mew-header-max-length 200)

;;; POP / SMTP のパスワードを保存 by ice (01/20/14)
(setq mew-use-cached-passwd t);; nil
(setq mew-use-master-passwd t);; nil

;;; MIME ファイルを最後まで読み込む by ice (01/30/14)
(setq mew-pop-size 0)

;; from http://tats.iris.ne.jp/mew/mew-1.94-to-2.0-memo.txt
;;  Mew 1.94 -> Mew 2 移行メモ

;;
;; Config
;;
(setq mew-config-alist
      '(
	("default";; case
	 ("mail-domain" . "nitech.ac.jp")	; From: name <user@mail-domain>
;;;;;	 ("mail-domain" . "artsci.kyushu-u.ac.jp")	; From: name <user@mail-domain>
;;;	 ("mail-domain" . "rche.kyushu-u.ac.jp")	; From: name <user@mail-domain>
;;;	 ("mail-domain" . "rd.dnc.ac.jp")	; From: name <user@mail-domain>

	 ("user" . "hayashi.atsuhiro")		; (user-login-name)
	 ("name" . "Atsuhiro Hayashi")		; (user-full-name)
;;;	 ("smtp-server" . "xxx.xxx.xxx") ; "localhost"
;;;	 ("pop-server" . "xxx.xxx.xxx")	; "localhost"
;;;	 ("pop-user" . "xxx")		; (user-login-name)
	 ;;
;;;	 ("pop-auth" . apop)		; 'apop, 'pass, or t (SASL)
;;;	 ("pop-size" . 0)		; (* 54 1024)
;;;	 ("pop-delete" . t)		; t, nil, or N (Keep N days)
;;;	 ("mailbox-type" . pop)		; 'pop or 'mbox
;;;	 ("mbox-command" . "incm")	; See 00api and contrib/00readme
;;;	 ("mbox-command-arg" . "-d /var/mail/xxx") ; nil
	 ;;
;;;	 ("fcc" . "+backup")
;;;	 ("dcc" . "xxx@xxx.xxx")	; nil
;;; 	 ("cc" . "hayashi@rd.dnc.ac.jp, ice@mopsy.rd.dnc.ac.jp")		; nil
	 ("cc" . "hayashi.atsuhiro@nitech.ac.jp")		; nil
	 ("reply-to" . "hayashi.atsuhiro@nitech.ac.jp")
;;;;;	 ("cc" . "hayashi@artsci.kyushu-u.ac.jp")		; nil
;;;;;	 ("reply-to" . "hayashi@artsci.kyushu-u.ac.jp")
;;;	 ("cc" . "hayashi@rche.kyushu-u.ac.jp")		; nil
;;;	 ("reply-to" . "hayashi@rche.kyushu-u.ac.jp")
	 ("organization" . "Nagoya Institute of Technology")	; nil
;;;;;	 ("organization" . "Kyushu University")	; nil
;;;;;	 ("cc" . "hayashi@rd.dnc.ac.jp")		; nil
;;;;;	 ("reply-to" . "hayashi@rd.dnc.ac.jp")
;;;;;	 ("organization" . "NCUEE(Aliases DNC)")	; nil
;;;	 ("header-alist" . (("X-xxx1:" . "xxx1") ("X-xxx2:" . "xxx2"))) ; nil
;;;	 ("queue-folder" . "+queue")
;;;	 ("inbox-folder" . "+inbox")
;;;	 ("pop-port" . "110")		; "pop3"
;;;	 ("pop-ssh-server" . "xxx@xxx.xxx.xxx") ; nil
;;;	 ("pop-body-lines" . 0)		; 40
;;;	 ("smtp-port" . "25")		; "smtp"
;;;	 ("smtp-ssh-server" . "xxx@xxx.xxx.xxx") ; nil
;;;	 ("smtp-user" . nil)
;;;	 ("smtp-auth" . nil)
;;;	 ("smtp-auth-list" . ("CRAM-MD5" "PLAIN" "LOGIN"))
;;;	 ("smtp-mail-from" . "xxx@xxx.xxx") ; nil (From:)
;;;	 ("smtp-msgid-user" . "xxx")	; nil (mew-user)
;;;	 ("smtp-msgid-domain" . "xxx.xxx.xxx") ; nil (mew-mail-domain)
;;;	 ("smtp-helo-domain" . "localhost")
	 ("signature-file" . "~/.signature")
;;;	 ("content-type" . "Application/Octet-Stream") ; "Text/Plain"
;;;	 ("nntp-server" . "xxx.xxx.xxx") ; not supported yet
	 )
;;; 	("domain2";; case
;;;	 ("mail-domain" . "DOMAIN2.xxx")  ; From: name <user@mail-domain>
;;;	 ("user" . "USER2")
;;;	 ("name" . "Xxxx Xxxx")
;;;	 ("smtp-server" . "xxx.DOMAIN2.xxx")
;;;	 ("pop-server" . "xxx.DOMAIN2.xxx")
;;;	 ("pop-user" . "USER2")
;;;	 ;;("inbox-folder" . "+inbox2")
;;;	 )
	))

;;
;; Case guess
;;
;; Mew 1.94: mew-config-*
;; Mew 2: mew-case-*
;;
;;;(setq mew-case-guess-alist mew-config-guess-alist);; nil
;;;(setq mew-case-guess-when-prepared mew-config-insert-when-prepared);; t
;;;(setq mew-case-guess-when-composed mew-config-insert-when-composed);; nil
;;;(setq mew-case-guess-when-replied-alist mew-config-guess-alist);; nil
;;;(setq mew-case-guess-when-replied t)
;;;(setq mew-case-guess-addition nil)

;;
;; Thread
;;
;;;(setq mew-use-fancy-thread t);; nil
;;;(setq mew-fancy-thread-indent-strings
;;;      ["├" "└" "│" "　"]);; [" +" " +" " |" "  "]
;;;(setq mew-use-thread-separator nil)
;;;(setq mew-thread-separator "--")

;;
;; Scan-form
;;
;;;(setq mew-scan-form-mark-delete nil)
;;;(setq mew-scan-form-mark-review nil)
;;;(setq mew-scan-form-size-unit '("" "k"));; '("" "k" "M" "G" "T")
;;;(setq mew-scan-form-size-0k t);; nil
;;;(setq mew-scan-form-size-huge nil);; t
;;;(setq mew-scan-form-list-string-type 'regex)
;;;(setq mew-scan-form-list-list-type 'regex);; 'recursive
;;;(setq mew-scan-form-list
;;;      '(
;;;	(("[+/]inbox" "[+/]draft$");; See mew-scan-form-list-list-type
;;;	 (-4 type (5 date) " " (5 time) " "
;;;	     t (17 from) " " (-4 size) " " (0 subj)))
;;;	(t
;;;	 (-5 type (5 date) " "
;;;	     t (17 from) " " (-4 size) " " (0 subj)))
;;;	;;(t
;;;	;; (type (5 date) " " (14 from) " " t (0 subj)))
;;;	))

;;
;; Grep
;;
;; mg: multi-line grep (http://www.srekcah.org/~utashiro/perl/scripts/mg/)
;;
;;;(setq mew-prog-grep "mg");; `C-u ?'
;;;(setq mew-prog-grep-opts
;;;	 '("-z" "nkf -e -m" "-j" "euc" "-l" "-i" "-e"));; MIME decode with nkf
;;;;;(setq mew-prog-grep "grep");; `C-u ?'
;;;;;(setq mew-prog-grep-opts '("-l" "-e"));; '("-e" "-l") is bad
;;;(setq mew-prog-vgrep "grep");; Virtual mode
;;;(setq mew-prog-vgrep-opts '("-l" "-e"));; better than '("-e")

;;
;; Multipart/Alternative
;;
;;;(setq mew-use-alternative t)
;;;(setq mew-mime-multipart-alternative-list
;;;      '("Text/Html" "Text/Plain" "*."));; `(,mew-ct-txt ".*")
;;;(condition-case nil
;;;    (require 'mew-w3m)
;;;  (file-error nil))
;;;(setq w3m-type 'w3m-m17n)

;;
;; Password
;;
;; WARNING: Password is stored in Emacs with RAW format.
;;
;;;(setq mew-use-cached-passwd t);; nil
;;;(setq mew-passwd-timer-unit 10);; 10 (minutes)
;;;(setq mew-passwd-lifetime 30);; 2

;;
;; Biff
;;
;;;(setq mew-use-biff t);; nil
;;;(setq mew-use-biff-bell t);; nil
;;;(setq mew-pop-biff-interval 10);; 5 (minutes)

;;
;; Image
;;
;; Mew 1.94: mew-prog-image, mew-prog-jpeg, ...
;;
;;;(setq mew-prog-image/*-ext "display");; "xv"
;;;(setq mew-prog-image/*-ext-arg '("-geometry" "+0+0"))
(setq mew-prog-image/*-ext "gimp");; "xv"
(setq mew-prog-image/*-ext-arg '("-geometry" "+0+0"))

;;
;; Cite label
;;
;;;(setq mew-cite-fields '("Subject:" "Date:" "From:"))
;;;(setq mew-cite-format "In message \"%s\"\non %s, %s wrote:\n\n")
;;;(setq mew-cite-prefix-function nil)
;;;(setq mew-draft-cite-fill-mode nil);; 'wrap, 'truncate, or nil
;;;(setq mew-draft-cite-label-fill-column 74);; nil (use fill-column)
;;;(setq mew-draft-cite-ellipses " ..")
;;;(setq mew-cite-strings-function
;;;      '(lambda ()
;;;	 (let ((str (mew-cite-strings)))
;;;	   ;; Simplify `Date:'
;;;	   (when (string-match "^\\(on .*\\) +[0-9][0-9]:[0-9][0-9][^,]*" str)
;;;	     (setq str (replace-match (mew-match 1 str) nil t str)))
;;;	   ;; Simplify `From:'
;;;	   (when (string-match "\\(([^)]+) *\\)\\(<[^>]+> wrote:\n\n\\)$" str)
;;;	     (setq str (replace-match (mew-match 2 str) nil t str)))
;;;	   str))
;;;      );; (function mew-cite-strings)

;;
;; Color
;;
;; Mew 1.94: mew-highlight-header-color-subject, ...
;; Mew 2: See mew-theme.el
;;
;;;(setq mew-theme-file nil);; "mew-theme"
;;;(custom-set-faces
;;; '(mew-face-header-subject
;;;   ((((class color) (type tty)) (:bold t))
;;;    (((class color) (background light)) (:foreground "gray20" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray90" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-from
;;;   ((((class color) (type tty)) (:bold t))
;;;    (((class color) (background light)) (:foreground "gray20" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray90" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-to
;;;   ((((class color) (type tty)) (:bold t))
;;;    (((class color) (background light)) (:foreground "gray20" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray90" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-key
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-private
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-important
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-marginal
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-xmew
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil))))
;;; '(mew-face-header-xmew-bad
;;;   ((((class color) (type tty)) (nil))
;;;    (((class color) (background light)) (:foreground "gray60" :bold t))
;;;    (((class color) (background dark))  (:foreground "gray70" :bold t))
;;;    (t (nil)))))
;;
;;;(setq mew-use-highlight-mark nil)
;;;(setq mew-use-highlight-header t)
;;;(setq mew-use-highlight-body nil)
(setq mew-use-highlight-url nil)
;;;(setq mew-use-cursor-mark nil)
;;;(setq mew-use-highlight-cursor-line t)
;;;(setq mew-use-highlight-mouse-line nil)
;;;(setq mew-use-highlight-x-face nil)
;;;(setq mew-use-highlight-summary nil);; see [mew-dist 18231]

;;
;; Sort
;;
;;;(setq mew-sort-default-key "date")
;;;(setq mew-sort-default-key-alist
;;;      '(
;;;	;;("+inbox" . "x-ml-name")
;;;	;;("+inbox2" . "x-mailing-list")
;;;	;;("+xxx-ml" . "subject:mlnum");; "mlnum" is supported by Mew 2.2
;;;	))
;;;(setq mew-sort-key-alist
;;;  '(("date" . "date") ("subject") ("from") ("to") ("newsgroups")
;;;    ("posted" . "date") ("x-sequence" . "postnum") ("x-mail-count" . "num")
;;;    ("x-ml-count" . "num")
;;;    ;;
;;;    ;;("x-ml-name") ("x-mailing-list")
;;;    ))
;;;(setq mew-sort-modes '("date" "num" "postnum" "text" "ml" "mlnum"))

;;
;; Microsoft Office files
;; 
;; Unicode is necessary.  So, install Mule-UCS.
;; (ftp://ftp.m17n.org/pub/mule/Mule-UCS/Mule-UCS-0.84.tar.gz)
;;
;; wvHtml (http://www.wvware.com/)
;;;(setq mew-use-old-wvhtml t);; nil (wvware 0.7.0 or later)
;;
;; xlhtml/ppthtml (http://www.xlhtml.org/)
;;;(setq mew-prog-application/msexcel "xlHtml");; "xlhtml" (xlhtml 0.3)
;;;(setq mew-prog-application/mspowerpoint "pptHtml");; "ppthtml" (xlhtml 0.3)

;;
;; Misc
;;
;;;(setq mew-auto-flush-queue nil);; t
;;;(setq mew-regex-folder-candidate "^[^.]");; "[^.0-9]"
;;;(setq mew-charset-m17n "iso-2022-jp-2");; "utf-8" (Mule-UCS is necessary)
;;;(setq mew-use-8bit nil)
;;;(setq mew-summary-preserve-dir t);; nil
;;;(setq mew-draft-preserve-dir t);; nil
;;;(setq mew-attach-move-next-after-copy t);; nil
;;;(setq mew-touch-folder-check-enabled-p nil);; t
;;;(setq mew-summary-scan-width 300);; nil
;;;(setq mew-log-max-size 4096000);; 512000
;;;(setq mew-ask-mark-process t);; nil
;;;(setq mew-ask-fcc t);; nil
;;;(setq mew-decode-broken t)
;;;(setq mew-case-synchronize t)
;;;(setq mew-mail-path "~/Mail")
;;;(setq mew-news-path "~/News")
;;;(setq mew-conf-path mew-mail-path)
;;;(setq mew-addrbook-file "Addrbook")
;;;(setq mew-smtp-log-file "Smtplog")
;;;(setq mew-draft-folder "+draft")
;;;(setq mew-trash-folder "+trash")
;;;(setq mew-folder-mode 448);; decimal for octal 0700
;;;(setq mew-file-mode 384);; decimal for octal 0600
;;;(setq mew-use-full-window t);; nil
;;;(setq mew-syntax-treat-filename-function
;;;      '(lambda (file)
;;;	 (when file
;;;	   ;; Remove control characters
;;;	   (while (string-match
;;;		   "\\(^[\x00-\x20]+\\|[\x00-\x20]+$\\|[\x00-\x1f]+\\)" file)
;;;	     (setq file (replace-match "" nil t file))))
;;;	 (when file
;;;	   ;; Simplify SPCs
;;;	   (while (string-match "  +" file)
;;;	     (setq file (replace-match " " nil t file))))
;;;	 file))
;;;(add-hook 'mew-draft-mode-hook 'delete-other-windows);; `Draft' only
;;;(add-hook 'mew-draft-mode-hook
;;;	  '(lambda ()
;;;	     ;; Delete `Message'
;;;	     (if (get-buffer (mew-buffer-message))
;;;		 (delete-windows-on (mew-buffer-message)))
;;;	     ;; Resize `Draft'
;;;	     (let ((siz (- (/ (* (frame-height) 2) 3) (window-height))))
;;;	       (if (> siz 0)
;;;		   (enlarge-window siz)))))
;;;(setq mew-debug 'net);; 'decode, 'encode, 'net, 'pgp, 'thread, t, or nil