;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; A sample file of .mew.el
;;;
;;; Modified for Vine Linux <KOBAYASHI R. Taizo>
;;;
;
; This is just a sample. You should customize as you like...
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 3.1  -  Messaging in the Emacs World
;;   メールリーダー Mew
;;   M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; メールサーバの設定
;;

;; POP サーバの設定

(setq mew-name "your name") ;; (user-full-name)
(setq mew-user "user name of e-mail address") ;; (user-login-name)
(setq mew-mail-domain "domain of e-mail address")
(setq mew-pop-user "your POP account")   ;; (user-login-name)
(setq mew-pop-server "your POP server")    ;; if not localhost
;; (setq mew-pop-ssh-server "your POP server")    ;; if not localhost
;; (setq mew-icon-directory "icon directory") ;; if using XEmacs/Emacs 21

;; POP の認証方式の設定
;; APOP は 'apop を、POP は 'pass (USER/PASS (生パスワード)) に設定
(setq mew-pop-auth 'pass)

;; POP サーバからメッセージを取得後、
;; POP サーバにあるメッセージを削除するなら t
;; 残すなら nil に設定
;; N日残すなら N に設定
(setq mew-pop-delete 7)

;; POP サーバからメッセージを取得するサイズの設定
(setq mew-pop-size (* 54 1024))  ;; 4K hdr + 50K bdy

;; SMTP サーバの設定
(setq mew-smtp-server "your SMTP server")  ;; if not localhost

;;; POP 以外でメールにアクセスするには以下を設定

;; POP の代わりにローカルの "mbox" か "maildir" を使う場合
;; もし /path/to/mbox が file ならば "mbox"、
;; directory ならば "maildir" です。
;(setq mew-mailbox-type 'mbox)
;(setq mew-mbox-command "incm")
;(setq mew-mbox-command-arg "-d /path/to/mbox")

;; IMAP の設定
;(setq mew-proto "%")
;; (setq mew-imap-user "your IMAP account")  ;; (user-login-name)
;(setq mew-imap-server "your IMAP server")    ;; if not localhost

;; NNTP の設定
;; (setq mew-nntp-user "your NNTP account")
;(setq mew-nntp-server "your NNTP server")

;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))

;; Optional setup (e.g. C-xm for sending a message):
;(autoload 'mew-user-agent-compose "mew" nil t)
;(if (boundp 'mail-user-agent)
;    (setq mail-user-agent 'mew-user-agent))
;(if (fboundp 'define-mail-user-agent)
;    (define-mail-user-agent
;      'mew-user-agent
;      'mew-user-agent-compose
;      'mew-draft-send-message
;      'mew-draft-kill
;      'mew-send-hook))

;; MIME解析するサイズの設定
(setq mew-file-max-size (* 2048 1024))  ;; 2M MIME analysis

;; 返信時の引用フォーマットの指定
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
;;(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;; 起動時にメールを取りにいかないようにする
(setq mew-auto-get nil)

;; From: に余計なもの (localhost 名等) が付いたりする場合は，
;; xxxx の部分にドメイン名を指定します
;(setq mew-mail-domain-list '("xxxx.xxxx.xxxx.xxxx"))

;; From ヘッダの "" で囲まれた文字も MIME デコードする
;(setq mew-decode-quoted t)

;; スレッド表示を行う
;(setq mew-prog-imls-arg-list '("--thread=yes"))

;; 自分に Bcc をつけない
;(setq mew-mail-address-list
;    '("あなたのメールアドレス" "他にもあれば"))

;; C-u で返信するときに Reply-To ヘッダがある場合
;; そのアドレスにだけ返信
;(setq mew-reply-sender-alist
;      '(("Reply-To:"
;         ("To:" "Reply-To:"))
;        (t
;         ("To:" "From:"))))

;; Reply-To ヘッダがある場合そのアドレスにだけ返信
;(setq mew-reply-all-alist
;      '((("Followup-To:" "poster")
;         ("To:" "From:"))
;        ("Followup-To:"
;         ("Newsgroups:" "Followup-To:"))
;        ("Newsgroups:"
;         ("Newsgroups:" "Newsgroups:"))
;        ("Reply-To:"
;         ("To:" "Reply-To:"))
;        (t
;         ("To:" "From:")
;         ("Cc:" "To:" "Cc:" "Apparently-To:"))))

;; ドラフトを用意する時に定型文を自動的に挿入する
;(add-hook 'mew-draft-mode-hook
;   (function
;      (lambda()
;         (let ((p (point)))
;         (goto-char (point-max))
;         (insert-file "~/Mail/teikei")
;         (goto-char p)))))

;; 引用(返信)時でも定型文を一番上に挿入する
;(add-hook 'mew-before-cite-hook
;   (lambda() (goto-char (point-max))))

;; 印刷コマンド設定
(setq mew-print-command-format "mpage -2 -P")
(defun mew-print-region (begin end)
     (interactive "r")
     (shell-command-on-region begin end mew-print-command-format))

(defun mew-print-buffer ()
    (interactive)
    (mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))

;;; URL をマウス中クリックでブラウザ起動する様にする
(autoload 'browse-url-at-mouse "browse-url"
      "Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
   (function
      (lambda()
         (local-set-key [mouse-2] 'browse-url-at-mouse)
)))

;;; ブラウザに Firefox を使用する

(setq mew-prog-text/html-ext "firefox")

;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
(setq browse-url-netscape-program "firefox")
(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:?=&@]+")

;;; ブラウザに w3m を使用する
;(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))

;(condition-case nil
;    (require 'mew-w3m)
;  (file-error nil))
;(setq w3m-type 'w3m-m17n)


;;; らくらく整理整頓
;;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、
;;; 簡単に振り分けができます

;(setq mew-refile-guess-alist
;  '(("Reply-To:"
;      ("vine-users@" . "+ml/vine-users")
;      ("foobar-ml@" . "+ml/FooBarML")
;    )
;    ("From:"
;      ("shaolin@rins" . "+from/shaolin")
;      ("hoge@foo.bar" . "+from/hoge")
;    )
;))

;;;
;;; End
;;;