;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
;; last modified: Sun Sep 25 23:02:41 JST 2005
;;
;; .mew.el	for Mew 4.2 based on mew.dot.mew
;;
;; ユーザ名: uranov, ドメイン名: domainX.jp 等を適当に読み替えてください.

;;===================
;; personal settings
;;===================
(setq mew-name "URANOV")
(setq mew-user "uranov")
(setq mew-mail-domain "domainX.jp")
;; for SMTP
(setq mew-smtp-server "smtp.domainX.jp")
;; for POP
(setq mew-pop-user "uranov")
(setq mew-pop-server "pop.domainX.jp")
;; to use local mailbox "mbox" or "maildir" instead of POP
;(setq mew-mailbox-type 'mbox)
;(setq mew-mbox-command "incm")
;(setq mew-mbox-command-arg "-d /path/to/mbox")
;; for IMAP
;(setq mew-proto "%")
;(setq mew-imap-user "your IMAP account")
;(setq mew-imap-server "your IMAP server")
;; for NNTP
;(setq mew-nntp-user "your NNTP account")
;(setq mew-nntp-server "your NNTP server")
;; select personal settings
(setq mew-config-alist
    '(("default"
       ("name"        . "URANOV")
       ("user"        . "uranov")
       ("mail-domain" . "domainX.jp")
       ("smtp-server" . "smtp.domainX.jp")
;;       ("pop-server"  . "pop.domainX.jp")
;;       ("pop-user"    . "uranov")
       ("pop-server"  . "127.0.0.1")
       ("pop-user"    . "pop.domainX.jp:uranov")
       ("pop-auth"    . pass)
       ("pop-delete"  . t))
      ("domainY"
       ("name"        . "URANOV")
       ("user"        . "uranov")
       ("mail-domain" . "domainY.jp")
       ("smtp-server" . "smtp.domainY.jp")
       ("pop-server"  . "pop.domainY.jp")
       ("pop-auth"    . pass)
       ("pop-delete"  . nil)
       ("pop-user"    . "uranov")
       ("inbox-folder" . "+domainY")
       ("signature-file" . "~/.signature-domainY"))
      ))
;;================
;; basic settings
;;================
;; enable password caching
(setq mew-use-cached-passwd t)
;; ask subject if empty
(setq mew-ask-subject t)
;(setq mew-cc  nil)
;; backup message
;(setq mew-dcc "uranov@domainX.jp")
;; do not get mail when startup (offline mode)
;(setq mew-auto-get nil)
;; citation
;(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
;(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;(setq mew-addrbook-for-cite-label 'nickname)
;(setq mew-addrbook-for-cite-prefix 'nickname)
;; pick macro
;(mew-pick-define-macro "tocc=#" "to=#|cc=#")
;(mew-pick-define-macro "mew" "tocc=mew")))
;;==================
;; External Viewers
;;==================
;; Using "Mozilla"
;(setq mew-prog-text/html-ext "mozilla")
;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
;(setq browse-url-netscape-program "mozilla")
;(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")
;; Using "w3m" with "emacs-w3m"
;(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
;(condition-case nil
;    (require 'mew-w3m)
;  (file-error nil))
;; Using "wvHtml"
;(setq mew-use-old-wvhtml t)
;; Using "xlhtml" and "ppthtml"
;(setq mew-prog-application/msexcel "xlHtml")
;(setq mew-prog-application/mspowerpoint "pptHtml")
;; Using OpenOffice (openoffice)
;(setq mew-prog-msword '("openoffice" nil t))
;(setq mew-prog-msexcel '("openoffice" nil t))
;(setq mew-prog-mspowerpoint '("openoffice" nil t))
;; Using StarSuite (soffice)
;(setq mew-prog-msword '("soffice" nil t))
;(setq mew-prog-msexcel '("soffice" nil t))
;(setq mew-prog-mspowerpoint '("soffice" nil t))
;;--------
;; window
;;--------
;; Avoid exhaustion of colors.
;(setq mew-demo-picture nil)
;; X-Face:
;(setq mew-x-face-filter `((,mew-prog-uncompface "-X")))
;; Replying messages and character set
;(setq mew-charset-input-method-alist
;      '(("iso-8859-1"  . "latin-1-postfix")
;	("iso-8859-2"  . "latin-2-postfix")
;	("iso-8859-15" . "latin-9-postfix")))

;;---------
;; POPFile
;;---------
(defun mew-spam-popfile (val)
  (let ((case-fold-search t))
    (if (string-match "^spam" val) "+spam")))
(setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-spam: "X-Text-Classification:")
(setq mew-scan-fields (append mew-scan-fields (list mew-spam:)))
(setq mew-inbox-action-alist
      '(("X-Text-Classification:" mew-spam-popfile)))

;; EOF