3 (autoload 'mew-send "mew" nil t)
6 (setq mew-mail-domain "cielonegro.org")
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)
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)
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)))
28 (setq mew-nntp-server "localhost")
29 (setq mew-nntp-port "1119")
31 (add-hook 'mew-summary-mode-hook
33 (local-set-key "@" 'mew-summary-review)))
35 (if (boundp 'read-mail-command)
36 (setq read-mail-command 'mew))
38 (setq mew-use-cached-passwd t)
42 ;; mew-scan-fieldsに "X-Text-Classification:" が入っている必要有り。
43 (defun mew-action-popfile (val)
44 (let ((case-fold-search t))
46 ((string-match "spam" val) ?D)
49 (setq mew-inbox-action-alist
50 '(("X-Text-Classification:" mew-action-popfile)))
52 (defun mew-summary-form-x-classification ()
55 (defun mew-message-open-popfile-link ()
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
63 (local-set-key "\C-c\C-p" 'mew-message-open-popfile-link)
64 (local-set-key "\r" 'browse-url-at-point)))