;;; -*-Emacs-Lisp-*-
;;; File: .emacs-mew
;;; Setup file for Mew-1.70, 1.9x.x
;;; Created by M.Kuwada (kuwada@ee.uec.ac.jp) on 08-Apr-02
;;; Last Modified by M.Kuwada on 2002.04.18
;;;
;; added by M.Kuwada on 2002.04.18
;; Subject の記述のないメールは送信しない
;; ただし、次の変数 mq-mail-subject-required の設定でこの機能は無視する
;; (setq mq-mail-subject-required nil)
(add-hook 'mew-init-hook
	  (lambda ()
	    (require 'mew-utils)))

;; ここのコメントを外すとMewのdemoが止まる
;(setq mew-demo nil)

(global-set-key "\C-xm" 'mew-send)
(global-set-key "\C-xr" 'mew)
(autoload 'mew "mew" nil t)
(autoload 'mew-read "mew" nil t)
(setq mew-auto-get nil)
(autoload 'mew-send "mew" nil t)
(setq mew-prog-imls-arg-list '("--thread=yes"))
(setq mew-use-fancy-thread t)
(defvar mew-cite-fields '("From:" "Subject:" "Date:"))
(defvar mew-cite-format "From: %s\nSubject: %s\nDate: %s\n\n")
(defvar mew-cite-prefix "> ")
(setq mew-cite-prefix-function (function mew-cite-prefix-username))
(setq mew-mail-domain-list '("edu.cc.uec.ac.jp"))
(setq mew-smtp-helo-domain "edu.cc.uec.ac.jp")
;(setq mew-use-highlight-cursor-line t)
;(setq mew-use-highlight-header t)
;(setq mew-use-highlight-url t)
(setq mew-decode-quoted t)
(autoload 'mime-mode "mime" "Minor mode for editing MIME message." t)
; GNUpg-1.0.6を利用する場合、 mew-prog-pgpを"gpg"と記入。
;(setq mew-prog-pgp "gpg")
;(setq mew-prog-gpg "/usr/local/bin/gpg")
; 使用するSMTPサーバを指定。
(setq mew-smtp-server "mx.edu.cc.uec.ac.jp")
; あなたのメールアドレスを記入します。下記2項目。
(setq mew-from (concat (user-login-name)"@edu.cc.uec.ac.jp"))
(setq mew-reply-to (concat (user-login-name) "@edu.cc.uec.ac.jp"))
; デフォルトで付加するCC:のアドレス。
(setq mew-cc (concat (user-login-name) "@edu.cc.uec.ac.jp"))
; 署名ファイルのパスを指定します。
(setq mew-signature-file (expand-file-name "~/.signature"))

;;;
;;; End
;;;