1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
2 | ;;; |
---|
3 | ;;; A sample file of .mew.el |
---|
4 | ;;; |
---|
5 | ;;; Modified for Vine Linux <KOBAYASHI R. Taizo> |
---|
6 | ;;; |
---|
7 | ; |
---|
8 | ; This is just a sample. You should customize as you like... |
---|
9 | ; |
---|
10 | |
---|
11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
12 | ;; Mew 3.1 - Messaging in the Emacs World |
---|
13 | ;; メールリーダー Mew |
---|
14 | ;; M-x mew で起動します |
---|
15 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
16 | |
---|
17 | ;; |
---|
18 | ;; メールサーバの設定 |
---|
19 | ;; |
---|
20 | |
---|
21 | ;; POP サーバの設定 |
---|
22 | |
---|
23 | (setq mew-name "your name") ;; (user-full-name) |
---|
24 | (setq mew-user "user name of e-mail address") ;; (user-login-name) |
---|
25 | (setq mew-mail-domain "domain of e-mail address") |
---|
26 | (setq mew-pop-user "your POP account") ;; (user-login-name) |
---|
27 | (setq mew-pop-server "your POP server") ;; if not localhost |
---|
28 | ;; (setq mew-pop-ssh-server "your POP server") ;; if not localhost |
---|
29 | ;; (setq mew-icon-directory "icon directory") ;; if using XEmacs/Emacs 21 |
---|
30 | |
---|
31 | ;; POP の認証方式の設定 |
---|
32 | ;; APOP は 'apop を、POP は 'pass (USER/PASS (生パスワード)) に設定 |
---|
33 | (setq mew-pop-auth 'pass) |
---|
34 | |
---|
35 | ;; POP サーバからメッセージを取得後、 |
---|
36 | ;; POP サーバにあるメッセージを削除するなら t |
---|
37 | ;; 残すなら nil に設定 |
---|
38 | ;; N日残すなら N に設定 |
---|
39 | (setq mew-pop-delete 7) |
---|
40 | |
---|
41 | ;; POP サーバからメッセージを取得するサイズの設定 |
---|
42 | (setq mew-pop-size (* 54 1024)) ;; 4K hdr + 50K bdy |
---|
43 | |
---|
44 | ;; SMTP サーバの設定 |
---|
45 | (setq mew-smtp-server "your SMTP server") ;; if not localhost |
---|
46 | |
---|
47 | ;;; POP 以外でメールにアクセスするには以下を設定 |
---|
48 | |
---|
49 | ;; POP の代わりにローカルの "mbox" か "maildir" を使う場合 |
---|
50 | ;; もし /path/to/mbox が file ならば "mbox"、 |
---|
51 | ;; directory ならば "maildir" です。 |
---|
52 | ;(setq mew-mailbox-type 'mbox) |
---|
53 | ;(setq mew-mbox-command "incm") |
---|
54 | ;(setq mew-mbox-command-arg "-d /path/to/mbox") |
---|
55 | |
---|
56 | ;; IMAP の設定 |
---|
57 | ;(setq mew-proto "%") |
---|
58 | ;; (setq mew-imap-user "your IMAP account") ;; (user-login-name) |
---|
59 | ;(setq mew-imap-server "your IMAP server") ;; if not localhost |
---|
60 | |
---|
61 | ;; NNTP の設定 |
---|
62 | ;; (setq mew-nntp-user "your NNTP account") |
---|
63 | ;(setq mew-nntp-server "your NNTP server") |
---|
64 | |
---|
65 | ;; Optional setup (Read Mail menu for Emacs 21): |
---|
66 | (if (boundp 'read-mail-command) |
---|
67 | (setq read-mail-command 'mew)) |
---|
68 | |
---|
69 | ;; Optional setup (e.g. C-xm for sending a message): |
---|
70 | ;(autoload 'mew-user-agent-compose "mew" nil t) |
---|
71 | ;(if (boundp 'mail-user-agent) |
---|
72 | ; (setq mail-user-agent 'mew-user-agent)) |
---|
73 | ;(if (fboundp 'define-mail-user-agent) |
---|
74 | ; (define-mail-user-agent |
---|
75 | ; 'mew-user-agent |
---|
76 | ; 'mew-user-agent-compose |
---|
77 | ; 'mew-draft-send-message |
---|
78 | ; 'mew-draft-kill |
---|
79 | ; 'mew-send-hook)) |
---|
80 | |
---|
81 | ;; MIME解析するサイズの設定 |
---|
82 | (setq mew-file-max-size (* 2048 1024)) ;; 2M MIME analysis |
---|
83 | |
---|
84 | ;; 返信時の引用フォーマットの指定 |
---|
85 | (setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:")) |
---|
86 | (setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n") |
---|
87 | ;;(setq mew-cite-prefix-function 'mew-cite-prefix-username) |
---|
88 | |
---|
89 | ;; 起動時にメールを取りにいかないようにする |
---|
90 | (setq mew-auto-get nil) |
---|
91 | |
---|
92 | ;; From: に余計なもの (localhost 名等) が付いたりする場合は, |
---|
93 | ;; xxxx の部分にドメイン名を指定します |
---|
94 | ;(setq mew-mail-domain-list '("xxxx.xxxx.xxxx.xxxx")) |
---|
95 | |
---|
96 | ;; From ヘッダの "" で囲まれた文字も MIME デコードする |
---|
97 | ;(setq mew-decode-quoted t) |
---|
98 | |
---|
99 | ;; スレッド表示を行う |
---|
100 | ;(setq mew-prog-imls-arg-list '("--thread=yes")) |
---|
101 | |
---|
102 | ;; 自分に Bcc をつけない |
---|
103 | ;(setq mew-mail-address-list |
---|
104 | ; '("あなたのメールアドレス" "他にもあれば")) |
---|
105 | |
---|
106 | ;; C-u で返信するときに Reply-To ヘッダがある場合 |
---|
107 | ;; そのアドレスにだけ返信 |
---|
108 | ;(setq mew-reply-sender-alist |
---|
109 | ; '(("Reply-To:" |
---|
110 | ; ("To:" "Reply-To:")) |
---|
111 | ; (t |
---|
112 | ; ("To:" "From:")))) |
---|
113 | |
---|
114 | ;; Reply-To ヘッダがある場合そのアドレスにだけ返信 |
---|
115 | ;(setq mew-reply-all-alist |
---|
116 | ; '((("Followup-To:" "poster") |
---|
117 | ; ("To:" "From:")) |
---|
118 | ; ("Followup-To:" |
---|
119 | ; ("Newsgroups:" "Followup-To:")) |
---|
120 | ; ("Newsgroups:" |
---|
121 | ; ("Newsgroups:" "Newsgroups:")) |
---|
122 | ; ("Reply-To:" |
---|
123 | ; ("To:" "Reply-To:")) |
---|
124 | ; (t |
---|
125 | ; ("To:" "From:") |
---|
126 | ; ("Cc:" "To:" "Cc:" "Apparently-To:")))) |
---|
127 | |
---|
128 | ;; ドラフトを用意する時に定型文を自動的に挿入する |
---|
129 | ;(add-hook 'mew-draft-mode-hook |
---|
130 | ; (function |
---|
131 | ; (lambda() |
---|
132 | ; (let ((p (point))) |
---|
133 | ; (goto-char (point-max)) |
---|
134 | ; (insert-file "~/Mail/teikei") |
---|
135 | ; (goto-char p))))) |
---|
136 | |
---|
137 | ;; 引用(返信)時でも定型文を一番上に挿入する |
---|
138 | ;(add-hook 'mew-before-cite-hook |
---|
139 | ; (lambda() (goto-char (point-max)))) |
---|
140 | |
---|
141 | ;; 印刷コマンド設定 |
---|
142 | (setq mew-print-command-format "mpage -2 -P") |
---|
143 | (defun mew-print-region (begin end) |
---|
144 | (interactive "r") |
---|
145 | (shell-command-on-region begin end mew-print-command-format)) |
---|
146 | |
---|
147 | (defun mew-print-buffer () |
---|
148 | (interactive) |
---|
149 | (mew-print-region (point-min) (point-max))) |
---|
150 | (setq mew-print-function (function mew-print-buffer)) |
---|
151 | |
---|
152 | ;;; URL をマウス中クリックでブラウザ起動する様にする |
---|
153 | (autoload 'browse-url-at-mouse "browse-url" |
---|
154 | "Ask a WWW browser to load a URL clicked with the mouse." t) |
---|
155 | (add-hook 'mew-message-mode-hook |
---|
156 | (function |
---|
157 | (lambda() |
---|
158 | (local-set-key [mouse-2] 'browse-url-at-mouse) |
---|
159 | ))) |
---|
160 | |
---|
161 | ;;; ブラウザに Firefox を使用する |
---|
162 | |
---|
163 | (setq mew-prog-text/html-ext "firefox") |
---|
164 | |
---|
165 | ;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse) |
---|
166 | (setq browse-url-netscape-program "firefox") |
---|
167 | (setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:?=&@]+") |
---|
168 | |
---|
169 | ;;; ブラウザに w3m を使用する |
---|
170 | ;(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*.")) |
---|
171 | |
---|
172 | ;(condition-case nil |
---|
173 | ; (require 'mew-w3m) |
---|
174 | ; (file-error nil)) |
---|
175 | ;(setq w3m-type 'w3m-m17n) |
---|
176 | |
---|
177 | |
---|
178 | ;;; らくらく整理整頓 |
---|
179 | ;;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、 |
---|
180 | ;;; 簡単に振り分けができます |
---|
181 | |
---|
182 | ;(setq mew-refile-guess-alist |
---|
183 | ; '(("Reply-To:" |
---|
184 | ; ("vine-users@" . "+ml/vine-users") |
---|
185 | ; ("foobar-ml@" . "+ml/FooBarML") |
---|
186 | ; ) |
---|
187 | ; ("From:" |
---|
188 | ; ("shaolin@rins" . "+from/shaolin") |
---|
189 | ; ("hoge@foo.bar" . "+from/hoge") |
---|
190 | ; ) |
---|
191 | ;)) |
---|
192 | |
---|
193 | ;;; |
---|
194 | ;;; End |
---|
195 | ;;; |
---|