[Mew-dist 16126] Re: sample file of .mew.el (was FAQ on setq and defvar)

[Tatsuya Kinoshita]

In message "[Mew-dist 16120] Re: FAQ on setq and defvar"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> 今の時代、www.mew.org で発見できればよいような気がします。

mew.dot.emacsひとつだけでなく、たくさんの.mewサンプルが、
www.mew.orgで見つかるといいな、という声が聞こえてきそうです。

とりあえず、手元の.mewからも無難な設定で抜き出してみました。

# scan-formに新たな項目を追加する例が欲しいな。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------
;; -*- Mode: Emacs-Lisp; Coding: iso-2022-jp -*-
;; 
;; sample file of .mew
;; 
;; This file is written by Tatsuya Kinoshita.
;;
;; Permission is granted to use, copy, distribute, and/or modify it 
;; without restriction.  There is NO WARRANTY.
;;

(setq mew-config-alist
      '(
	("default"
	 ("name" . "Xxxx Xxxx")
	 ("user" . "xxx")
	 ("mail-domain" . "xxx.xxx")
	 ("smtp-server" . "smtp.xxx.xxx")
;	 ("smtp-mail-from" . "xxx at example.com")
	 ("pop-server" . "pop.xxx.xxx")
;	 ("pop-auth" . pass) ;; apop
	 ("pop-user" . "xxx")
;	 ("mailbox-type" . mbox) ;; pop
;	 ("mbox-command" . "mewinc")
;	 ("mbox-command-arg" . "")
	 ("pop-delete" . t)
;	 ("pop-size" . 100000) ;; (* 54 1024)
;	 ("smtp-msgid-user" . "xxx")
;	 ("smtp-msgid-domain" . "xxx.xxx")
;	 ("user-sender" . t) ;; nil
;	 ("pop-body-lines" . 0) ;; 40
;	 ("inbox-folder" . "+inbox")
;	 ("cc" . "")
;	 ("dcc" . "")
	 ("fcc" . "+backup")
;	 ("reply-to" . "")
;	 ("organization" . "")
;	 ("header-alist" . nil)
;	 ("smtp-helo-domain" . "localhost")
;	 ("smtp-port" . "25")
;	 ("smtp-ssh-server" . nil)
;	 ("smtp-user" . nil)
;	 ("smtp-auth" . nil)
;	 ("pop-port" . "110")
;	 ("pop-ssh-server" . nil)
;	 ("nntp-server" . "news.xxx.xxx")
	 )
;	("from-xxx2"
;	 ("from" . "xxx at example.com")
;	 )
	))

;(setq mew-config-insert-when-prepared t) ;; nil
;(setq mew-config-insert-when-composed nil)
;(setq mew-config-guess-alist
;      '(
;	("\\(To\\|Cc\\):"
;	 ("XXX" . "from-xxx2")
;	 )
;	))

(setq mew-replyto-to-list
      '("Resent-From:" "Mail-Followup-To:" "Mail-Reply-To" "Reply-To:"))
(setq mew-replyto-cc-list '("To:" "Cc:" "Apparently-To:"))
(setq mew-noreplyto-to-list
      '("Resent-From:" "Mail-Followup-To:" "Mail-Reply-To" "From:"))
(setq mew-noreplyto-cc-list '("To:" "Cc:" "Apparently-To:"))
(setq mew-fromme-to-list '("To:" "Apparently-To:"))
(setq mew-fromme-cc-list '("Cc:"))

(setq mew-auto-get nil)
(setq mew-auto-flush-queue nil)

(setq mew-use-cached-passwd t) ;; nil
;(setq mew-passwd-timer-unit 10)
;(setq mew-passwd-lifetime 2)

;(setq mew-pop-biff-interval 10) ;; 5
;(setq mew-use-biff t) ;; nil
;(setq mew-use-biff-bell t) ;; nil

(setq mew-use-highlight-cursor-line t)
(setq mew-use-highlight-mouse-line nil)
(setq mew-use-highlight-mark nil)
(setq mew-use-highlight-header t)
(setq mew-use-highlight-body nil)
(setq mew-use-highlight-url nil)
(setq mew-use-highlight-x-face nil)
(setq mew-highlight-header-color-subject   "gray20") ;; "firebrick"
(setq mew-highlight-header-color-from      "gray20") ;; "Purple"
(setq mew-highlight-header-color-to        "gray20") ;; "DarkOrange2"
(setq mew-highlight-header-color-key       "gray65") ;; "ForestGreen"
(setq mew-highlight-header-color-private   "gray65")
(setq mew-highlight-header-color-important "gray65") ;; "Blue"
(setq mew-highlight-header-color-marginal  "gray65") ;; "gray50"
(setq mew-highlight-header-color-xmew      "gray65") ;; "chocolate"
(setq mew-highlight-header-color-xmew-bad  "gray65") ;; "red"

(setq mew-cite-fields '("Subject:" "From:"))
(setq mew-cite-format "In message \"%s\"\n%s wrote:\n\n")
(setq mew-cite-prefix-function nil)

(setq mew-draft-cite-fill-mode 'wrap)
(setq mew-draft-cite-label-fill-column 75)

;(setq mew-draft-cite-fill-mode 'truncate)
;(setq mew-draft-cite-ellipses " ...") ;; " .."

;(setq mew-refile-guess-alist
;      '(
;	("\\(To\\|Cc\\):"
;	 ("XXX" . "+xxx")
;	 )
;	("X-ML-Name:"
;	 ("Mew-dist" . "+mew-dist")
;	 ("Mew-int" . "+mew-int")
;	 )
;	))
;(setq mew-refile-guess-control
;  '(mew-refile-guess-by-alist
;;    mew-refile-guess-by-alist
;;    mew-refile-ctrl-throw
;;    mew-refile-guess-by-newsgroups
;;    mew-refile-guess-by-folder
;;    mew-refile-ctrl-throw
;;    mew-refile-ctrl-auto-boundary
;;    mew-refile-guess-by-thread
;;    mew-refile-ctrl-throw
;;    mew-refile-guess-by-from-folder
;;    mew-refile-ctrl-throw
;;    mew-refile-guess-by-from
;;    mew-refile-ctrl-throw
;;    mew-refile-guess-by-default
;    ))
;(setq mew-refile-ctrl-multi nil)
;(setq mew-refile-auto-refile-skip-any-mark nil)

;(setq mew-prog-grep "mg") ;; "grep"
;(setq mew-prog-grep-opts '("-z" "nkf -e -m" "-j" "euc" "-l" "-e")) ;; "-e"

;(setq mew-prog-pgp "gpg")

;(setq mew-demo nil) ;; t
;(setq mew-signature-file "~/.signature")
;(setq mew-file-max-size 50000) ;; 100000
;(setq mew-header-reasonable-size 5000)
;(setq mew-regex-folder-candidate "^[^.]") ;; "[^.0-9]"
;(setq mew-log-max-size 512000)
;(setq mew-charset-m17n "iso-2022-jp-2") ;; "utf-8"
;(setq mew-ask-flush-queue t) ;; nil
;(setq mew-config-synchronize nil) ;; t
;(setq mew-decode-broken nil) ;; t
;(setq mew-prog-ssh-arg '("sleep 10")) ;; nil
;(add-hook 'mew-draft-mode-hook '(lambda () (auto-fill-mode 1)))
;(setq mew-demo-sit-for 10) ;; 0

;(if (mew-coding-system-p 'utf-8)
;    (mew-replace-with
;     mew-cs-database '("utf-8" nil utf-8 nil utf-8 nil) "utf-8"))

(setq mew-use-fancy-thread t) ;; nil
(setq mew-fancy-thread-indent-strings
      ["├" "└" "│" "　"]) ;; [" +" " +" " |" "  "]
(setq mew-use-thread-separator t) ;; nil
(setq mew-thread-separator "--")

;(setq mew-use-fancy-thread nil)
;(setq mew-use-thread-separator nil)
;(setq mew-thread-indent-string ".") ;; "  "

(setq mew-scan-form-mark-delete nil)
(setq mew-scan-form-mark-review nil)
(setq mew-scan-form-size-unit '("" "k")) ;; '("" "k" "M" "G" "T")
(setq mew-scan-form-size-0k t) ;; nil
(setq mew-scan-form-size-huge nil) ;; t
(setq mew-scan-form-list-string-type 'regex)
(setq mew-scan-form-list-list-type 'regex) ;; 'recursive

(setq mew-scan-form-list
      '(
;	(t (type (5 date) " " (14 from) " " (0 subj)) 28)
	(("[+/]inbox" "[+/]draft" "[+/]queue")
	 (-4 type (5 date) " " (17 from) " " (-4 size) " " (0 subj)) 12)
	(t
	 (-4 type (5 date) " " (17 from) " " (0 subj)) 12)
	))