;;; .mew.el --- a sample of the init file for Mew  -*-coding: iso-2022-7bit; mode: emacs-lisp;-*-

;; Author: Tatsuya Kinoshita <tats@iris.ne.jp>
;; Created: Apr  9, 2002
;; Revised: Mar 25, 2003

;; Unlimited permission is granted to use, copy, distribute, and/or modify
;; this file.  There is NO WARRANTY.

;; This file is for Mew 2.3 and 3.2.

;;; Code:

;;
;; Config
;;
(setq mew-config-alist
      '(
	("default" ;; case
;;;	 ("mail-domain" . "EXAMPLE.net") ;; From: name <user@mail-domain>
;;;	 ("user" . "foo") ;; (user-login-name)
;;;	 ("name" . "Foo Bar") ;; (user-full-name)
;;;	 ("smtp-server" . "bar.EXAMPLE.net") ;; "localhost"
;;;	 ("mailbox-type" . pop) ;; 'pop, 'mbox, or 'imap
;;;	 ("pop-server" . "bar.EXAMPLE.net") ;; "localhost"
;;;	 ("pop-user" . "foo") ;; (user-login-name)
;;;	 ("pop-auth" . apop) ;; 'apop, 'pass, or t (SASL)
;;;	 ("pop-size" . 55296) ;; limit size of a message.  0 means unlimited.
;;;	 ("pop-delete" . t) ;; t, nil, or N (keep N days)
	 ;;
;;;	 ("fcc" . "+backup")
;;;	 ("dcc" . "foo@EXAMPLE.net") ;; nil
;;;	 ("cc" . "foo@EXAMPLE.net") ;; nil
;;;	 ("reply-to" . nil)
;;;	 ("organization" . "FooBar") ;; nil
;;;	 ("header-alist" . (("X-Baz1:" . "baz1") ("X-Baz2:" . "baz2"))) ;; nil
;;;	 ("queue-folder" . "+queue")
;;;	 ("inbox-folder" . "+inbox")
;;;	 ("signature-file" . "~/.signature")
;;;	 ("pop-ssh-server" . "foo@bar.EXAMPLE.org") ;; nil
;;;	 ("pop-port" . "110") ;; "pop3"
;;;	 ("pop-body-lines" . 0) ;; 40
;;;	 ("smtp-ssh-server" . "foo@bar.EXAMPLE.org") ;; nil
;;;	 ("pop-ssl" . nil)
;;;	 ("pop-ssl-port" . "pop3s")
;;;	 ("smtp-port" . "25") ;; "smtp"
;;;	 ("smtp-user" . nil)
;;;	 ;;("smtp-auth" . nil) ;; This variable is obsoleted by Mew 3.0.55
;;;	 ("smtp-auth-list" . ("CRAM-MD5" "PLAIN" "LOGIN"))
;;;	 ("smtp-mail-from" . "foo@EXAMPLE.net") ;; nil (From:)
;;;	 ("smtp-msgid-user" . "foo") ;; nil (mew-user)
;;;	 ("smtp-msgid-domain" . "bar.EXAMPLE.net") ;; nil (mew-mail-domain)
;;;	 ("smtp-helo-domain" . "localhost")
;;;	 ("content-type" . "Application/Octet-Stream") ;; "Text/Plain"
	 ;;
;;;	 ;; On Mew 3, mew-proto decides the default folder.
;;;	 ("proto" . "+") ;; "+"/"%"/"$"/"-" (local/IMAP/POP/NNTP)
;;;	 ;; NNTP is supported by Mew 3.  `2Z': mew-status-update for NNTP
;;;	 ("nntp-server" . "bar.EXAMPLE.net")
;;;	 ("nntp-newsgroup" . "-fj.mail.reader.mew")
;;;	 ("nntp-size" . 0) ;; (* 54 1024)
;;;	 ("nntp-port" . "119") ;; "nntp"
;;;	 ("nntp-ssh-server" . "foo@bar.EXAMPLE.org") ;; nil
;;;	 ("nntp-user" . nil)
;;;	 ("nntp-header-only" . nil)
;;;	 ("postq-folder" . "+postq")
;;;	 ("nntp-msgid-user" . "foo")
;;;	 ("nntp-msgid-domain" . "bar.EXAMPLE.net")
;;;	 ;; IMAP is supported by Mew 3.  `3Z': mew-status-update for IMAP
;;;	 ("imap-server" . "bar.EXAMPLE.net")
;;;	 ("imap-user" . "foo") ;; (user-login-name)
;;;	 ("imap-auth" . t) ;; t means SASL.  nil means plain password.
;;;	 ("imap-auth-list" . ("CRAM-MD5" "LOGIN"))
;;;	 ("imap-ssh-server" . "foo@bar.EXAMPLE.org") ;; nil
;;;	 ("imap-port" . "143") ;; "imap"
;;;	 ("imap-size" . 0) ;; (* 54 1024)
;;;	 ("imap-delete" . t)
;;;	 ("imap-header-only" . nil)
;;;	 ("imap-friend-folder" . "%inbox.from")
;;;	 ("imap-queue-folder" . "%queue")
;;;	 ("imap-trash-folder" . "%trash") ;; nil
	 )
;;; 	("example-org" ;; case
;;;	 ("mail-domain" . "EXAMPLE.org")  ; From: name <user@mail-domain>
;;;	 ("user" . "foo")
;;;	 ("name" . "Foo Bar")
;;;	 ("smtp-server" . "bar.EXAMPLE.org")
;;;	 ("mailbox-type" . mbox) ;; 'pop, 'mbox, or 'imap
;;;	 ("mbox-command" . "incm")
;;;	 ("mbox-command-arg" . "-a")
;;;	 ;;("inbox-folder" . "+inbox2")
;;;	 ;;("signature-file" . "~/.signature.org")
;;;	 ("smtp-ssh-server" . nil)
;;;	 ("nntp-server" . "bar.EXAMPLE.org")
;;;	 ("nntp-ssh-server" . nil)
;;;	 ("imap-server" . "bar.EXAMPLE.org")
;;;	 ("imap-user" . "foo")
;;;	 ("imap-ssh-server" . nil)
;;;	 )
	))

;;
;; Case guess
;;
;; Mew 1.94: mew-config-*
;;;(setq mew-config-insert-when-prepared t)
;;;(setq mew-config-insert-when-composed nil)
;;;(setq mew-config-guess-alist
;;;      '(
;;;	("\\(From\\|To\\|Cc\\):"
;;;	 ("\\<foo@EXAMPLE\\.org\\>" . "example-org")
;;;	 )
;;;	("\\(To\\|Cc\\):"
;;;	 ("\\<mew-dist@mew\\.org\\>" . "default")
;;;	 )
;;;	))
;; Mew 2 or later: mew-case-*
;;;(setq mew-case-guess-alist mew-config-guess-alist) ;; nil
;;;(setq mew-case-guess-when-prepared mew-config-insert-when-prepared) ;; t
;;;(setq mew-case-guess-when-composed mew-config-insert-when-composed) ;; nil
;;;(setq mew-case-guess-when-replied-alist mew-config-guess-alist) ;; nil
;;;(setq mew-case-guess-when-replied t)
;;;(setq mew-case-guess-addition nil)

;;
;; Refile
;;
;;;(setq mew-refile-guess-alist
;;;      '(
;;;	("List-Unsubscribe:"
;;;	 ("<mailto:debian-\\([^<>, \t\n]+\\)-ctl@debian\\.or\\.jp\\>" . "+G/debian-jp-\\1")
;;;	 ("<mailto:\\([^<>, \t\n]+\\)-ctl@" . "+G/\\1")
;;;	 ("<mailto:\\([^<>, \t\n]+\\)-request@" . "+G/\\1")
;;;	 ("<mailto:\\([^<>, \t\n]+\\)-unsubscribe@" . "+G/\\1")
;;;	 ("=unsubscribe%20\\([^<>, \t\n]+\\)>" . "+G/\\1")
;;;	 )
;;;	("Mailing-List:"
;;;	 ("^contact \\([^<>, \t\n]+\\)-help@" . "+G/\\1")
;;;	 )
;;;	("X-ML-Info:"
;;;	 ("to the address \\([^<>, \t\n]+\\)-ctl@" . "+G/\\1")
;;;	 ("<mailto:\\([^<>, \t\n]+\\)-admin@" . "+G/\\1")
;;;	 )
;;;	("X-ML-Name:"
;;;	 ("^\\([^<>, \t\n]+\\)" . "+G/\\1")
;;;	 )
;;;	("X-Sequence:"
;;;	 ("^\\([^<>, \t\n]+\\) [0-9]+$" . "+G/\\1")
;;;	 )
;;;	("Newsgroups:"
;;;	 ("^fj\\.\\([^<>, \t\n]+\\)" . "+G/fj.\\1")
;;;	 ("^gnu\\.\\([^<>, \t\n]+\\)" . "+G/gnu.\\1")
;;;	 ;;("^\\([^<>, \t\n]+\\)" . "+G/\\1")
;;;	 )
;;;	))
;;;(setq mew-refile-guess-control
;;;      '(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) ;; t
;;;(setq mew-refile-auto-refile-skip-any-mark nil)
;;;(setq mew-refile-guess-strip-domainpart nil) ;; t
;;;(setq mew-refile-guess-from-me-is-special nil)
;;;(setq mew-folders-default-folder "+from")
;;;(setq mew-friend-folder mew-folders-default-folder)
;;;(setq mew-imap-friend-folder "%inbox.from")

;;
;; Reply
;;
;; for Mew 3.1.50 or previous versions:
;;;(setq mew-noreplyto-to-list '("Mail-Followup-To:" "Mail-Reply-To:" "From:"))
;;;(setq mew-noreplyto-cc-list '("Cc:" "Original-Cc:" "X-Cc:"
;;;			      "To:" "Original-To:" "X-To:" "Apparently-To:"))
;;;(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"
;;;			    "Mail-Reply-To:" "From:"))
;;;(setq mew-replyto-cc-list '("Cc:" "Original-Cc:" "X-Cc:"
;;;			    "To:" "Original-To:" "X-To:" "Apparently-To:"))
;;;(setq mew-fromme-to-list '("Mail-Followup-To:" "Mail-Reply-To:" "Reply-To:"
;;;			   "To:" "Original-To:" "X-To:" "Apparently-To:"))
;;;(setq mew-fromme-cc-list '("Cc:" "Original-Cc:" "X-Cc:"))
;;
;; for Mew 3.1.51 or later versions:
;;;(setq mew-reply-all-alist
;;;  `(("Mail-Followup-To:"
;;;     ("To:" "Mail-Followup-To:"))
;;;    (("Followup-To:" "poster")
;;;     ("To:" "From:"))
;;;    ("List-Unsubscribe:"
;;;     ("To:" "Reply-To:" "To:" "Original-To:" "X-To:" "Apparently-To:"
;;;	 "Cc:" "Original-Cc:" "X-Cc:"))
;;;    ("Mailing-List:"
;;;     ("To:" "Reply-To:" "To:" "Original-To:" "X-To:" "Apparently-To:"
;;;	 "Cc:" "Original-Cc:" "X-Cc:"))
;;;    ("Followup-To:"
;;;     ("Newsgroups:" "Followup-To:"))
;;;    ("Newsgroups:"
;;;     ("Newsgroups:" "Newsgroups:"))
;;;    ("Reply-To:"
;;;     ("To:" "Reply-To:")
;;;     ("Cc:"
;;;	 "Cc:" "Original-Cc:" "X-Cc:"
;;;	 "To:" "Original-To:" "X-To:" "Apparently-To:"))
;;;    (t
;;;     ("To:" "Mail-Reply-To:" "From:" "Reply-To:")
;;;     ("Cc:"
;;;	 "Cc:" "Original-Cc:" "X-Cc:"
;;;	 "To:" "Original-To:" "X-To:" "Apparently-To:"))))
;;;(setq mew-reply-sender-alist
;;;  '((t
;;;     ("To:" "Mail-Reply-To:" "From:" "Reply-To:")
;;;     ("Cc:" "Cc:" "Original-Cc:" "X-Cc:"))))
;;;(setq mew-reply-fromme-alist
;;;  '((t
;;;     ("To:" 
;;;      "Mail-Followup-To:" "Mail-Reply-To:" "Reply-To:"
;;;      "To:" "Original-To:" "X-To:" "Apparently-To:")
;;;     ("Cc:" "Cc:" "Original-Cc:" "X-Cc:")
;;;     ("Newsgroups:" "Followup-To:" "Newsgroups:"))))
;;
;; In Draft mode, you can complete these fields:
;;;(add-to-list 'mew-fields "In-Reply-To:")
;;;(add-to-list 'mew-fields "References:")
;;;(add-to-list 'mew-fields "Mail-Reply-To:")
;;;(add-to-list 'mew-fields "Mail-Followup-To:")
;;;(add-to-list 'mew-fields "X-Debbugs-CC:")

;;
;; Cite label
;;
;;;(setq mew-cite-fields '("Date:" "Subject:" "From:"))
;;;(setq mew-cite-format "On %s\nin %s\n%s wrote:\n\n")
;;;(setq mew-cite-prefix-function nil)
;;;;;;(setq mew-draft-cite-fill-mode nil) ;; 'wrap, 'truncate, or nil
;;;;;;(setq mew-draft-cite-label-fill-column 74) ;; nil (use fill-column)
;;;;;;(setq mew-draft-cite-ellipses " ..")
;;;(setq my-time-mon-alist
;;;      '(("Jan" 1 "January" "Jan.") ("Feb" 2 "February" "Feb.")
;;;	("Mar" 3 "March" "Mar.") ("Apr" 4 "April" "Apr.")
;;;	("May" 5 "May" "May") ("Jun" 6 "June" "June")
;;;	("Jul" 7 "July" "July") ("Aug" 8 "August" "Aug.")
;;;	("Sep" 9 "September" "Sep.") ("Oct" 10 "October" "Oct.")
;;;	("Nov" 11 "November" "Nov.") ("Dec" 12 "December" "Dec.")))
;;;(defun my-time-mon-to-int (str)
;;;  (or (nth 1 (assoc (capitalize str) my-time-mon-alist)) 0))
;;;(defun my-time-mon-to-month (str)
;;;  (or (nth 2 (assoc (capitalize str) my-time-mon-alist)) str))
;;;(if (fboundp 'match-string-no-properties)
;;;    (defalias 'my-match-string 'match-string-no-properties)
;;;  (defalias 'my-match-string 'match-string))
;;;(defun my-mew-cite-strings ()
;;;  (let ((iso-ymd nil) ;; set iso-ymd to t if you want YYYY-MM-DD
;;;	(str (mew-cite-strings))
;;;	year)
;;;    ;; Simplify `Date:'
;;;    (when (string-match "^\\(On .*\\) +[0-9][0-9]:[0-9][0-9].*" str)
;;;      (setq str (replace-match (my-match-string 1 str) nil t str)))
;;;    (when (string-match "^\\(On \\) *[A-Z][a-z][a-z], *" str)
;;;      (setq str (replace-match (my-match-string 1 str) nil t str)))
;;;    (when (string-match
;;;	   "^On +\\([0-9]+\\) +\\([A-Z][a-z][a-z]\\) +\\([0-9]+\\)"
;;;	   str)
;;;      (setq year (string-to-int (my-match-string 3 str)))
;;;      (if (< year 50)
;;;	  (setq year (+ year 2000))
;;;	(if (< year 1000)
;;;	    (setq year (+ year 1900))))
;;;      (if iso-ymd
;;;	  (setq str (replace-match
;;;		     (format
;;;		      "On %04d-%02d-%02d" year
;;;		      (my-time-mon-to-int (my-match-string 2 str))
;;;		      (string-to-int (my-match-string 1 str)))
;;;		     nil t str))
;;;	(setq str (replace-match
;;;		   (concat
;;;		    "On "
;;;		    (my-time-mon-to-month (my-match-string 2 str)) " "
;;;		    (int-to-string (string-to-int (my-match-string 1 str))) ", "
;;;		    year)
;;;		   nil t str))))
;;;    ;; Simplify `Subject:'
;;;    (if (string-match "\nin \\([[(][a-zA-Z0-9._-]+[ :,][0-9]+[])]\\).*" str)
;;;	(setq str (replace-match (concat ", " (my-match-string 1 str) ",")
;;;				 nil t str))
;;;      (if (string-match "\nin .*\n" str)
;;;	  (setq str (replace-match ", " nil t str))))
;;;    ;; Simplify `From:'
;;;    (when (string-match "\\(([^)\n]+) *\\)\\(<[^>\n]+> wrote:\n\n\\)" str)
;;;      (setq str (replace-match (my-match-string 2 str) nil t str)))
;;;    str))
;;;(setq mew-cite-strings-function 'my-mew-cite-strings) ;; 'mew-cite-strings
;;
;;;;;;(define-key mew-draft-body-map "\C-cy" 'my-mew-draft-cite-without-prefix)
;;;(defun my-mew-draft-cite-without-prefix (&optional arg force)
;;;  "Copy and paste a part of message from Message mode without citation prefix."
;;;  (interactive "P")
;;;  (let ((mew-cite-prefix "")
;;;	(mew-cite-strings-function 'mew-cite-strings)
;;;	mew-cite-hook mew-cite-prefix-function mew-draft-cite-fill-mode
;;;	mew-cite-fields mew-cite-format)
;;;    (unless arg
;;;      (setq mew-cite-fields '("Message-Id:" "Date:" "From:" "Subject:" "To:"))
;;;      (setq mew-cite-format "Message-ID: %s\nDate: %s\nFrom: %s\nSubject: %s\nTo: %s\n\n"))
;;;    (save-excursion
;;;      (insert "\n-------- \n")
;;;      (mew-draft-cite arg force))))

;;
;; Signature
;;
;; Appending signature automatically:
;;;(add-hook 'mew-before-cite-hook 'mew-header-goto-body)
;;;(add-hook 'mew-draft-mode-newdraft-hook 'my-mew-draft-append-signature)
;;;(defun my-mew-draft-append-signature ()
;;;  (let ((mew-signature-insert-last t))
;;;    (mew-draft-insert-signature)))
;;
;;;(define-key mew-draft-body-map "\C-ci" 'my-mew-insert-signature-with-case)
;;;(defun my-mew-insert-signature-with-case (&optional case)
;;;  (interactive "P")
;;;  (let ((mew-tinfo (copy-sequence mew-tinfo)))
;;;    (mew-tinfo-set-case
;;;     (or case 
;;;	 (mew-input-case (mew-tinfo-get-case) "Signature")))
;;;    (mew-draft-insert-signature)))

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

;;
;; Scan-form
;;
;;;(setq mew-scan-max-field-length 10) ;; 5
;;;(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
;;;      '(
;;;	(("[+%$/]inbox$" "[+%/]backup$") ;; see mew-scan-form-list-list-type
;;;	 (-5 type (5 date) " " (5 time) " "
;;;	     (17 from) " " t (-4 size) " " (0 subj)))
;;;	(("^\\+queue" "^\\+postq")
;;;	 (-4 type (5 date) " "
;;;	     (17 from) " " t (-4 size) " " (0 subj)))
;;;	("^\\+draft$" ;; see mew-scan-form-list-string-type
;;;	 (-4 type (5 date) " "
;;;	     (17 from) " " t " " (0 subj)))
;;;	(t
;;;	 (-5 type (5 date) " "
;;;	     (17 my-just-from) " " t (-4 size) " " (0 subj)))
;;;	;;(t
;;;	;; (type (5 date) " " (14 from) " " t (0 subj)))
;;;	))
;;;(defun mew-scan-form-my-just-from ()
;;;  (mew-replace-white-space (MEW-FROM)))

;;
;; Range
;;
;;;(setq mew-range-list-string-type 'regex)
;;;(setq mew-range-list-list-type 'recursive)
;;;(setq mew-range-list
;;;      '(
;;;	("[+%/]queue" "all")
;;;	("[+/]postq" "all")
;;;	("[+/]draft" "all")
;;;	(t "update")
;;;	))

;;
;; Grep
;;
;;;(setq mew-prog-grep "grep") ;; `C-u ?'
;;;(setq mew-prog-grep-opts '("-i" "-l" "-e")) ;; '("-l" "-e")
;;;(setq mew-prog-vgrep "grep") ;; Virtual mode
;;;(setq mew-prog-vgrep-opts '("-i" "-l" "-e")) ;; '("-l" "-e")
;;
;;;(define-key mew-summary-mode-map "\C-c?" 'my-mew-summary-search-mark-ja)
;;;(defun my-mew-summary-search-mark-ja ()
;;;  ;; mg: multi-line grep (http://www.srekcah.org/~utashiro/perl/scripts/mg/)
;;;  (interactive)
;;;  (let ((mew-prog-grep "mg")
;;;	(mew-prog-grep-opts '("-z" "nkf -e -m" "-j" "euc" "-l" "-i" "-e")))
;;;    (mew-summary-search-mark 'arg)))
;;;(defun my-mew-summary-search-mark-ja ()
;;;  ;; mewpick: http://reed1200.tripod.co.jp/emacs/mew.html#summary_grep
;;;  (interactive)
;;;  (let ((mew-prog-grep "mewpick")
;;;	(mew-prog-grep-opts nil))
;;;    (mew-summary-search-mark 'arg)))

;;
;; Multipart/Alternative
;;
;;;(setq mew-use-alternative t)
;;;(setq mew-mime-multipart-alternative-list
;;;      '("Text/Html" "Text/Plain" "*.")) ;; `(,mew-ct-txt ".*")
;;
;;;(condition-case nil
;;;    (require 'mew-w3m)
;;;  (file-error nil))
;;;(setq mew-w3m-auto-insert-image nil)
;;;;;(setq mew-use-w3m-minor-mode t) ;; nil
;;;;;(add-hook 'mew-message-hook 'mew-w3m-minor-mode-setter)

;;
;; Password
;;
;; WARNING: Password is stored in Emacs with RAW format.
;;
;;;(setq mew-use-cached-passwd t) ;; nil
;;;(setq mew-passwd-timer-unit 10) ;; 10 (minutes)
;;;(setq mew-passwd-lifetime 30) ;; 2

;;
;; Biff
;;
;;;(setq mew-use-biff t) ;; nil
;;;(setq mew-use-biff-bell t) ;; nil
;;;(setq mew-pop-biff-interval 10) ;; 5 (minutes)
;;;(setq mew-biff-interval mew-pop-biff-interval) ;; for Mew 3

;;
;; Color
;;
;; Mew 1.94: mew-highlight-header-color-subject, ...
;; Mew 2: See mew-theme.el
;;
;; If you want to customize coloring, copy mew-theme.el from Mew's
;; sources to ~/.mew-theme.el, and edit it.
;;;(setq mew-theme-file "~/.mew-theme") ;; "mew-theme"
;;
;;;(setq mew-use-highlight-mark nil)
;;;(setq mew-use-highlight-header t)
;;;(setq mew-use-highlight-body t)
;;;(setq mew-highlight-body-max-size 10000)
;;;(setq mew-use-highlight-url nil)
;;;(setq mew-use-cursor-mark nil)
;;;(setq mew-use-highlight-cursor-line t)
;;;(setq mew-use-highlight-mouse-line nil)
;;;;;;(setq mew-use-highlight-x-face nil)
;;;(setq mew-highlight-body-regex-cite
;;;  "^\\(\\([ \t]*\\([>:|〉＞》≫：｜]\\)\\)+\\).*")

;;
;; Sort
;;
;;;(setq mew-sort-default-key "date")
;;;(setq mew-sort-default-key-alist
;;;      '(
;;;	;;("+inbox" . "x-ml-name")
;;;	;;("+inbox2" . "x-mailing-list")
;;;	;;("+foobar-ml" . "subject:mlnum")
;;;	))
;;;(setq mew-sort-key-alist
;;;  '(("date" . "date") ("subject") ("from") ("to") ("newsgroups")
;;;    ("posted" . "date") ("x-sequence" . "postnum") ("x-mail-count" . "num")
;;;    ("x-ml-count" . "num")
;;;    ;;
;;;    ;;("x-ml-name") ("x-mailing-list")
;;;    ))
;;;(setq mew-sort-modes '("date" "num" "postnum" "text" "ml" "mlnum"))

;;
;; PGP
;;
;; GnuPG
;;;(setq mew-prog-gpg "gpg")
;;;(setq mew-prog-pgp mew-prog-gpg)
;; PGP version 6
;;;(setq mew-prog-pgp6 "pgp6") ;; "pgp" is used by default.
;;;(setq mew-prog-pgp mew-prog-pgp6)
;; PGP version 5
;;;(setq mew-prog-pgp5 "pgp5") ;; "pgp" is used by default.
;;;(setq mew-prog-pgp mew-prog-pgp5)
;; PGP version 2
;;;(setq mew-prog-pgp2 "pgp2") ;; "pgp" is used by default.
;;;(setq mew-prog-pgp mew-prog-pgp2)

;;
;; Image
;;
;; Mew 1.94: mew-prog-image, mew-prog-jpeg, ...
;;
;;;(setq mew-prog-image '(mew-mime-image/* mew-mime-image/*-ext))
;;;(setq mew-prog-image/*-ext     "display")
;;;(setq mew-prog-image/*-ext-arg '("-geometry" "+0+0"))

;;
;; Programs
;;
;;;(setq mew-prog-pdf '("xpdf" ("-geometry" "+0+0") t))
;;;(setq mew-x-face-prog "display")
;;;(setq mew-x-face-args '("-geometry" "+0+0"))
;;;(setq mew-prog-video '("xine" ("--auto-play") t))
;;;;;(setq mew-prog-text/html nil) ;; 'mew-mime-text/html-w3m
;;;(setq mew-prog-text/html-ext "mozilla")
;;;(setq mew-prog-text/html-ext-arg '("-remote" "openFile(%s)"))
;;;;;(setq mew-prog-text/xml nil) ;; 'mew-mime-text/html-w3m
;;;(setq mew-prog-text/xml-ext "mozilla")
;;;(setq mew-prog-text/xml-ext-arg '("-remote" "openFile(%s)"))
;;;;;(setq mew-prog-application/xml nil)
;;;(setq mew-prog-application/xml-ext "mozilla")
;;;(setq mew-prog-application/xml-ext-arg '("-remote" "openFile(%s)"))
;;;(setq mew-ext-url-alist
;;;  '(("^application/" "Fetch by w3" mew-ext-url-fetch-by-w3 nil)
;;;    (t		     "Browse by mozilla" "mozilla" ("-install"))))

;;
;; Misc
;;
;;;(setq mew-auto-get nil) ;; t
;;;(setq mew-auto-flush-queue nil) ;; t
;;;(setq mew-demo nil) ;; t
;;;(setq mew-demo-picture nil)
;;;(setq mew-break-pages nil) ;; t
;;;(setq mew-summary-show-direction 'down) ;; 'next
;;;(setq mew-summary-mark-direction 'down) ;; 'next
;;;(setq mew-regex-folder-candidate "^[^.]") ;; "^[^.0-9]\\|^[0-9].*[^0-9]"
;;;(setq mew-use-8bit t) ;; nil
;;;(setq mew-charset-m17n "utf-8")
;;;(setq mew-ask-charset '("us-ascii" "iso-2022-jp")) ;; nil
;;;(setq mew-summary-preserve-dir t) ;; nil
;;;(setq mew-draft-preserve-dir t) ;; nil
;;;(setq mew-attach-move-next-after-copy t) ;; nil
;;;(setq mew-touch-folder-check-enabled-p nil) ;; t
;;;(setq mew-summary-scan-width 300) ;; nil
;;;(setq mew-ask-mark-process t) ;; nil
;;;(setq mew-ask-fcc t) ;; nil
;;;(setq mew-decode-broken t)
;;;(setq mew-case-synchronize t)
;;;(setq mew-use-net-status t)
;;;(setq mew-net-status-percent-size 51200)
;;;(setq mew-local-status-unit 10)
;;;(setq mew-local-status-threshold 100)
;;;;;(setq mew-ssh-keep-connection nil) ;; t
;;;;;(setq mew-ask-virtual-folder-name t) ;; nil
;;;(setq mew-mail-path "~/Mail")
;;;(setq mew-conf-path mew-mail-path)
;;;(setq mew-addrbook-file "Addrbook")
;;;(setq mew-smtp-log-file "Smtplog")
;;;(setq mew-draft-folder "+draft")
;;;(setq mew-trash-folder "+trash")
;;;(setq mew-mdrop-folder "+mdrop") ;; Obsoleted by Mew 3
;;;;;(setq mew-basic-folders '("+inbox" "+draft" "+trash" "+queue" "+postq"))
;;;(setq mew-folder-mode 448) ;; decimal for octal 0700
;;;(setq mew-file-mode 384) ;; decimal for octal 0600.  Obsoleted by Mew 3.0.57
;;;(setq mew-file-mode-mask 432) ;; decimal for octal 0660
;;;(setq mew-lisp-max-length 5000) ;; 2000
;;;(setq mew-use-full-window t) ;; nil
;;;;;(add-hook 'mew-draft-mode-hook 'delete-other-windows) ;; `Draft' only
;;;(add-hook 'mew-draft-mode-hook
;;;	  (function
;;;	   (lambda ()
;;;	     ;; delete `Message' window
;;;	     (if (get-buffer (mew-buffer-message))
;;;		 (delete-windows-on (mew-buffer-message)))
;;;	     ;; resize `Draft' window
;;;	     (let ((siz (- (/ (* (frame-height) 2) 3) (window-height))))
;;;	       (if (> siz 0)
;;;		   (enlarge-window siz))))))
;;;;;(setq mew-debug 'net) ;; 'decode, 'encode, 'net, 'pgp, 'thread, t, or nil

;;; .mew.el ends here