source: projects/vskel/branches/vskel-20110223/.mew.el @ 1126

Revision 1126, 6.1 KB checked in by daisuke, 12 years ago (diff)

import vskel-4.1.0 from internal cvs repository

Line 
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;;;
Note: See TracBrowser for help on using the repository browser.