[mew-dist 18236] Re: sample of .mew.el (was: mew 2+0pre4)

[Tatsuya Kinoshita <tats@xxxxxxxxxxxxxxx>]

In message [debian-devel:14426], on Thu, 26 Jul 2001,
Tatsuya Kinoshita <tats@xxxxxxxxxxxxxxx> wrote:

> Mew 2.0は、Mew 1.94から大幅に変更されており、従来の設定がそのまま
> では使えないことが多々あります。

Mew 2.0で追加された主な変数をまとめて、1.94からの移行用~/.mew.elの
サンプルを作ってみました。

詳しくは、マニュアル(info)や、各変数の説明(describe-variable)等を
ご覧ください。

-- 
木下達也

;;; -*- Mode: Emacs-Lisp; Coding: iso-2022-jp -*-

;;; Sample of .mew.el for Mew 1.94 -> Mew 2.0

;; Author: Tatsuya Kinoshita <tats@xxxxxxxxxxx>
;; Created: Fri, 27 Jul 2001
;; 
;; 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" . "xxx.xxx.xxx")
	 ("pop-server" . "xxx.xxx.xxx")
	 ("pop-user" . "xxx")
         ("pop-auth" . apop)		; 'apop, 'pass, or t
	 ("pop-size" . 0)		; (* 54 1024)
	 ("pop-delete" . t)
	 ("mailbox-type" . pop)		; 'pop or 'mbox
;;;	 ("mbox-command" . "incm")	; nil
;;;	 ("mbox-command-arg" . "-d /xxx/path/to/mbox") ; nil
;;;	 ("dcc" . "xxx@xxxxxxxx")
;;;	 ("cc" . "xxx@xxxxxxxx")
;;;	 ("fcc" . "+backup")
;;;	 ("queue-folder" . "+queue")
;;;	 ("inbox-folder" . "+inbox")
;;;	 ("organization" . "Xxxx")	; nil
;;;	 ("header-alist" . (("X-xxx1:" . "xxx1") ("X-xxx2:" . "xxx2"))) ; nil
;;;	 ("pop-port" . "110")		; "pop3"
;;;	 ("pop-ssh-server" . "xxx.xxx.xxx") ; nil
;;;	 ("pop-body-lines" . 0)		; 40
;;;	 ("smtp-port" . "25")		; "smtp"
;;;	 ("smtp-ssh-server" . "xxx.xxx.xxx") ; nil
;;;	 ("smtp-user" . nil)
;;;	 ("smtp-auth" . nil)
;;;	 ("smtp-mail-from" . "xxx@xxxxxxxx")
;;;	 ("smtp-msgid-user" . "xxx")
;;;	 ("smtp-msgid-domain" . "xxx.xxx.xxx")
;;;	 ("smtp-helo-domain" . "localhost")
;;;	 ("nntp-server" . "xxx.xxx.xxx")
	 )
;;;	("xxx2"
;;;	 ("user" . "xxx")
;;;	 ("mail-domain" . "xxx2.xxx")
;;;	 )
	))

(setq mew-case-guess-alist mew-config-guess-alist)
(setq mew-case-guess-when-prepared mew-config-insert-when-prepared)
(setq mew-case-guess-when-composed mew-config-insert-when-composed)
;;;(setq mew-case-guess-when-replied-alist mew-config-guess-alist)
;;;(setq mew-case-guess-when-replied t)
;;;(setq mew-case-guess-addition nil)

;;;(setq mew-use-fancy-thread t) ;; nil
;;;(setq mew-fancy-thread-indent-strings
;;;      ["('" "(&" "("" "　"]) ;; [" +" " +" " |" "  "]
;;;(setq mew-use-thread-separator nil)
;;;(setq mew-thread-separator "--")

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

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

;;;(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
;;;(condition-case nil
;;;    (require 'mew-w3m)
;;;  (file-error nil))
;;;(setq w3m-type 'w3m-m17n)

;;;(setq mew-regex-folder-candidate "^[^.]") ; "[^.0-9]"
;;;(setq mew-charset-m17n "iso-2022-jp-2") ; "utf-8"
;;;(setq mew-use-8bit nil)
;;;(setq mew-touch-folder-check-enabled-p nil) ; t