]> gitweb @ CieloNegro.org - sugar.git/blob - dot-files/_mew
Auto commit by The Sugar System.
[sugar.git] / dot-files / _mew
1 ;; -*- emacs-lisp -*-
2
3 (autoload 'mew-send "mew" nil t)
4 (setq mew-name "PHO")
5 (setq mew-user "pho")
6 (setq mew-mail-domain "cielonegro.org")
7
8 (setq mew-pop-user "mail.cielonegro.org:pho")
9 (setq mew-pop-server "localhost")
10 (setq mew-pop-port "110")
11 (setq mew-pop-auth 'pass)
12
13 (setq mew-smtp-server "mail.cielonegro.org")
14 (setq mew-smtp-port "587")
15 (setq mew-smtp-auth-list '("PLAIN"))
16 (setq mew-smtp-user "pho")
17 (setq mew-smtp-auth-plain-authorize-id t)
18
19 (setq mew-use-biff t)
20 (setq mew-pop-biff-interval 15)
21 (setq mew-pop-size 0) ;; no restriction
22 (setq mew-prog-pgp "gpg")
23 (setq mew-prog-gpg "gpg")
24 (setq mew-pgp-pks-servers
25       '(("wwwkeys.de.pgp.net" t)
26         ("pgp.nic.ad.jp" nil)))
27
28 (setq mew-nntp-server "localhost")
29 (setq mew-nntp-port "1119")
30
31 (add-hook 'mew-summary-mode-hook
32           (lambda ()
33             (local-set-key "@" 'mew-summary-review)))
34
35 (if (boundp 'read-mail-command)
36   (setq read-mail-command 'mew))
37
38 (setq mew-use-cached-passwd t)
39
40
41 ;; popfile/auto mark
42 ;; mew-scan-fieldsに "X-Text-Classification:" が入っている必要有り。
43 (defun mew-action-popfile (val)
44   (let ((case-fold-search t))
45     (cond
46      ((string-match "spam" val) ?D)
47      )))
48
49 (setq mew-inbox-action-alist
50       '(("X-Text-Classification:" mew-action-popfile)))
51
52 (defun mew-summary-form-x-classification ()
53   (MEW-SPAM))
54
55 (defun mew-message-open-popfile-link ()
56   (interactive)
57   (let ((case-fold-search t))
58     (if (string-match "^X-POPFile-Link: \\(.+\\)$" (buffer-string))
59         (browse-url (match-string 1 (buffer-string)))
60       (message "No POPFile-Link found..."))))
61 (add-hook 'mew-message-mode-hook
62           (lambda ()
63             (local-set-key "\C-c\C-p" 'mew-message-open-popfile-link)
64             (local-set-key "\r" 'browse-url-at-point)))