[1126] | 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 | ;;; |
---|