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)))