mew on Meadow2
Mew on Win32
Mew Official
(1)インストールはバイナリ/インストールパッケージが.emacsの設定も自動でしてくれるし楽（Mew
on Win32参照）
(2).emacs
バイナリ/インストールパッケージで設定されたものに、「猫の絵を表示しない」「メッセージ振り分け」の処理を追加したもの
;;---------------------------------------------------------
;; Mew Easy Settings (generated automatically)
;;---------------------------------------------------------
;; configuration
(setq mew-config-alist
'(("default"
("name" . "xxxxx xxxx")
("user" . "xxx")
("mail-domain" . "xx.xxx.or.jp")
("smtp-server" . "smtp.xx.xxxx.or.jp")
("pop-server" . "mail.xx.xxxx.or.jp")
("pop-auth" . pass)
("pop-user" . "xxxxx"))
("microsoft"
("content-type" . "Application/Octet-Stream"))
))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
;;; Makefile の etcdir で指定したディレクトリ
(setq mew-demo-picture nil) ;;猫の絵を表示しない
;; 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):
(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-letter
'mew-draft-kill
'mew-send-hook))
;;
;(setq mew-cc nil)
;; backup message
(setq mew-fcc "+backup")
;; do not show demo
;(setq mew-demo nil)
;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list nil)
;; do not get mail when startup (offline mode)
;(setq mew-auto-get nil)
;; sample of guess
(setq mew-case-guess-alist
'(("X-Mailer:"
("Outlook" . "microsoft"))
))
;(setq mew-case-guess-when-prepared t)
;(setq mew-case-guess-when-replied t)
;(setq mew-case-guess-when-composed t)
;(setq mew-case-guess-addition t)
;; print message
;(setq mew-w32-prog-print "notepad.exe")
;(setq mew-w32-prog-print-arg "/p")
;(setq mew-w32-cs-print 'shift_jis-dos)
;(define-process-argument-editing "/notepad\.exe$"
; (lambda (x)
; (general-process-argument-editing-function x nil t)))
;; pick with japanese (Perl is required).
;(setq mew-prog-grep "mg")
;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-e" "-x" "&mime"))
;; mouse click and start web browser
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;; enable password caching
(setq mew-use-cached-passwd t)
;; fancy threading
;(setq mew-use-fancy-thread t)
;; show thread separator
;(setq mew-use-thread-separator t)
;; add review mark('*') automatically
;(setq mew-scan-form-mark-review t)
;; add delete mark('d') automatically
;(setq mew-scan-form-mark-delete t)
;; biff
;(setq mew-use-biff t)
;(setq mew-use-biff-bell t)
;;メッセージ振り分け
(setq mew-refile-guess-alist
'(("Reply-to:"
("Delphi@ml.users.gr.jp" . "+delphi")
("cbuilder@sfdata.ne.jp" . "+cbuilder")
)
)
)