;; -*- emacs-lisp -*-

(autoload 'mew-send "mew" nil t)
(setq mew-icon-directory "/usr/local/lib/emacs/etc/Mew")
(setq mew-name "PHO")
(setq mew-user "pho")
(setq mew-mail-domain "cielonegro.org")

(setq mew-pop-user "mail.cielonegro.org:pho")
(setq mew-pop-server "localhost")
(setq mew-pop-port "110")
(setq mew-pop-auth 'pass)

(setq mew-smtp-server "mail.cielonegro.org")
(setq mew-smtp-port "587")
(setq mew-smtp-auth-list '("PLAIN"))
(setq mew-smtp-user "pho")
(setq mew-smtp-auth-plain-authorize-id t)

(setq mew-use-biff t)
(setq mew-pop-biff-interval 15)
(setq mew-pop-size 0) ;; no restriction
(setq mew-prog-pgp "gpg")
(setq mew-prog-gpg "gpg")
(setq mew-pgp-pks-servers
      '(("wwwkeys.de.pgp.net" t)
	("pgp.nic.ad.jp" nil)))

(setq mew-nntp-server "localhost")
(setq mew-nntp-port "1119")

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (local-set-key "@" 'mew-summary-review)))

(if (boundp 'read-mail-command)
  (setq read-mail-command 'mew))

(setq mew-use-cached-passwd t)


;; popfile/auto mark
;; mew-scan-fieldsに "X-Text-Classification:" が入っている必要有り。
(defun mew-action-popfile (val)
  (let ((case-fold-search t))
    (cond
     ((string-match "spam" val) ?D)
     )))

(setq mew-inbox-action-alist
      '(("X-Text-Classification:" mew-action-popfile)))

(defun mew-summary-form-x-classification ()
  (MEW-SPAM))

(defun mew-message-open-popfile-link ()
  (interactive)
  (let ((case-fold-search t))
    (if (string-match "^X-POPFile-Link: \\(.+\\)$" (buffer-string))
        (browse-url (match-string 1 (buffer-string)))
      (message "No POPFile-Link found..."))))
(add-hook 'mew-message-mode-hook
	  (lambda ()
	    (local-set-key "\C-c\C-p" 'mew-message-open-popfile-link)
	    (local-set-key "\r" 'browse-url-at-point)))