[Mew-dist 16133] Re: sample file of .mew.el
HOSONO Hidetomo
h at example.com
2001年 2月 1日 (木) 02:49:12 JST
ほそのです。
To: mew-dist at example.com
From: Tatsuya Kinoshita <tatsuyak at example.com>
Subject: [Mew-dist 16126] Re: sample file of .mew.el (was FAQ on setq and defvar)
Date: Wed, 31 Jan 2001 18:46:58 +0900
> mew.dot.emacsひとつだけでなく、たくさんの.mewサンプルが、
> www.mew.orgで見つかるといいな、という声が聞こえてきそうです。
>
> とりあえず、手元の.mewからも無難な設定で抜き出してみました。
>
> # scan-formに新たな項目を追加する例が欲しいな。
僭越ですが、こういう例もあるよ、ということで。
.mew.dというディレクトリを掘って、
そこにcaseを追加出来るようにしてあります。
;; 変なデータ入ってないよな…よし。
--HOSONO Hidetomo
-------------- next part --------------
;;; -*- Coding: iso-2022-int-1 -*-
;;; $Id$
;; Mewのデバッグ
(setq mew-debug nil)
;; case
;; オリジナル関数
(defun mew-load-all-regexp-in-dir (dirname regexp)
"Load all files of REGEXP in DIRNAME"
(setq el-files (directory-files dirname t regexp nil))
(while (car el-files)
(progn (load-file (car el-files)) (setq el-files (cdr el-files)))
))
(setq mew-config-alist nil)
(setq mew-config-guess-alist nil)
(setq mew-refile-guess-alist nil)
(setq mew-config-synchronize nil)
(mew-load-all-regexp-in-dir "~/.mew.d" ".*_case\.el$")
(mew-load-all-regexp-in-dir "~/.mew.d" ".*_rule\.el$")
(setq mew-config-default user-mail-address) ;; デフォルトのcase
;; 起動時の設定
(setq mew-auto-get nil)
(setq mew-window-use-full t)
(setq mew-file-max-size 10000000) ;; =10MB
(setq mew-charset-m17n "iso-2022-jp-2")
(setq mew-pop-size 0)
;; Summeryモードの設定
(setq mew-scan-form
'(type
(4 year)
"/"
(5 date)
" "
(20 from)
" "
(0 subj)
))
(setq mew-thread-column 42)
(setq mew-use-thread-separator t)
(setq mew-thread-separator " ----------------------------------------------------------------------")
(setq mew-use-fancy-thread t)
(setq mew-fancy-thread-indent-strings ["`--" "`--" "| " " "])
(setq mew-sort-default-key "date")
(setq mew-sort-default-key-alist
(mew-lisp-load "~/Mail/.mew-sort-default-key-alist"))
(setq mew-end-of-message-string nil)
(setq mew-end-of-part-string nil)
(setq mew-refile-guess-strip-domainpart nil)
(setq mew-refile-ctrl-multi t) ;; 複数のフォルダへのリファイルを許す。
(setq mew-refile-guess-from-me-is-special t);; 自分のメッセージを特別に扱う。
;; Messageモードの設定
(if window-system
(progn
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-x-function
'x-face-decode-message-header)
))
;; 外部ファイルビューワの設定
(if window-system
(progn
(setq mew-prog-bmp '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-gif '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-image '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-jpeg '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-pdf '("/usr/bin/xpdf" ("-geometry" "+0+0") t))
(setq mew-prog-postscript '("/usr/bin/ggv" ("--geometry" "+0+0") t))
(setq mew-prog-png '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-tiff '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-xbm '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-xpm '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-prog-xwd '("/usr/bin/ee" ("--geometry" "+0+0") t))
(setq mew-x-face-prog "/usr/bin/ee")
(setq mew-x-face-args nil)
))
;; Addrbookモードの設定
(setq mew-addrbook-strip-domainpart t)
(setq mew-use-imget-assoc t) ;; get先をモードラインに表示する。
(setq mew-use-cached-passwd t) ;; POPパスワードをキャッシュする。
;; MIMEデコードの設定
(setq mew-decode-quoted t)
;; キーバインド
(add-hook 'mew-summary-mode-hook
(function (lambda ()
(define-key mew-summary-mode-map
"\C-h" 'mew-summary-prev-page)
)))
(setq mew-summary-trace-directory nil)
;; メッセージ転送のための設定
(setq mew-field-delete-for-forwarding
'(
"Received:"
"Return-Path:"
))
;; メッセージ印刷のための設定
;; メッセージ作成のための設定
(setq mew-config-insert-when-prepared t)
(setq mew-config-insert-when-composed t)
(setq mew-ask-subject nil)
(setq mew-signature-as-lastpart nil)
(setq mew-signature-insert-last t)
(add-hook 'mew-draft-mode-hook
(function (lambda ()
(auto-fill-mode 1)
(make-local-variable 'make-backup-files)
(setq make-backup-files nil)
; (define-key mew-draft-mode-map "\C-c\C-i"
; 'insert-signature-eref) ;; is the function of c-sig.
; (define-key (current-local-map) "\C-c\C-x"
; 'select-xface)
)))
(setq mew-replyto-to-list '("Reply-To:")) ;; field which is used for reply.
(setq mew-cite-fields '("To: " "From:" "Subject:" "Date:"))
(setq mew-cite-format "To: %s\nFrom: %s\nSubject: %s\nDate: %s\n\n")
;; pgpの設定
(setq mew-pgp-keyserver-url-template
"http://pgp.nic.ad.jp:11371/pks/lookup?op=get&search=%s")
(setq mew-pgp-ver "2") ;; デフォルトのPGF(0:PGPv2, 1:PGPv5, 2:GnuPG)
(setq mew-use-pgp-cached-passphrase t)
(setq mew-protect-privacy-always nil)
(setq mew-protect-privacy-always-type 'pgp-signature)
(setq mew-protect-privacy-encrypted t)
(setq mew-protect-privacy-encrypted-type 'pgp-encryption)
-------------- next part --------------
;;; -*- Coding: iso-2022-int-1 ; Mode: emacs-lisp -*-
;;; $Id: h at example.com,v 1.2 2001/01/24 06:10:11 h Exp h $
(setq mew-config-alist
(append '(("h at example.com"
("user" . "h")
("name" . "HOSONO Hidetomo")
("mail-domain" . "kondara.org")
("smtp-msgid-domain" . "mail.kondara.org")
("smtp-msgid-user" . "h")
("cc" . nil)
("fcc" . "+fcc/h at example.com")
("dcc" . nil)
("reply-to" . nil)
("organization" . "Kondara Project")
("smtp-server" . "localhost")
("smtp-port" . "smtp")
("smtp-ssh-server" . "h at example.com")
("smtp-helo-domain" . "localhost.localdomain")
("smtp-user" . "h")
("smtp-auth" . nil)
("pop-server" . "localhost")
("pop-port" . "pop3")
("pop-ssh-server" . "h at example.com")
("pop-user" . "h")
("pop-auth" . pass)
("nntp-server" . "localhost")
("inbox-folder" . "+inbox")
("header-alist" .
(
("X-Cite-Me:" . "ほその")
("X-OpenPGP-Fingerprint:" .
"54CE 8818 1900 4751 5D9D 7085 5E07 609E ADE1 BD23")
("X-PGP-FingerPrint:" .
"F2 F0 96 35 9B 95 15 0C 75 44 86 21 6E 89 EC 53")
("X-PostPet-Reply-To:" .
"hidetomo at example.com")
("X-URI:" . "http://www.kondara.org/")
))
)) mew-config-alist)
)
-------------- next part --------------
;;; -*- Coding: iso-2022-int-1 ; Mode: emacs-lisp -*-
;;; $Id: hide at example.com,v 1.2 2001/01/24 06:10:25 h Exp h $
(setq mew-config-alist
(append '(("hide at example.com"
("user" . "hide")
("name" . "HOSONO Hidetomo")
("mail-domain" . "tomo.gr.jp")
("smtp-msgid-domain" . "tomo.tomo.gr.jp")
("smtp-msgid-user" . "hide")
("cc" . nil)
("fcc" . "+fcc/hide at example.com")
("dcc" . nil)
("reply-to" . nil)
("organization" . "Root Visit Club")
("smtp-server" . "localhost")
("smtp-port" . "smtp")
("smtp-ssh-server" . "h at example.com")
("smtp-helo-domain" . "localhost")
("smtp-user" . "h")
("smtp-auth" . nil)
("pop-server" . "localhost")
("pop-port" . "pop3")
("pop-ssh-server" . "h at example.com")
("pop-user" . "h")
("pop-auth" . pass)
("nntp-server" . "localhost")
("inbox-folder" . "+inbox")
("header-alist" .
(
("X-Cite-Me:" . "ほその")
("X-OpenPGP-Fingerprint:" .
"54CE 8818 1900 4751 5D9D 7085 5E07 609E ADE1 BD23")
("X-PGP-FingerPrint:" .
"F2 F0 96 35 9B 95 15 0C 75 44 86 21 6E 89 EC 53")
("X-PostPet-Reply-To:" .
"hidetomo at example.com")
("X-URI:" . "http://www.tomo.gr.jp/")
))
)) mew-config-alist)
)
-------------- next part --------------
;;; -*- Coding: iso-2022-int-1 ; Mode: emacs-lisp -*-
;;; $Id: hidetomo at example.com,v 1.2 2001/01/24 06:10:31 h Exp h $
(setq mew-config-alist
(append '(("hidetomo at example.com"
("user" . "hidetomo")
("name" . "HOSONO Hidetomo")
("mail-domain" . "clug.linux.or.jp")
("smtp-msgid-domain" . "clug.linux.or.jp")
("smtp-msgid-user" . "hidetomo")
("cc" . nil)
("fcc" . "+fcc/hidetomo at example.com")
("dcc" . nil)
("reply-to" . nil)
("organization" . "Chiba Linux Users Group")
("smtp-server" . "localhost")
("smtp-port" . "25")
("smtp-ssh-server" . "h at example.com")
("smtp-helo-domain" . "localhost")
("smtp-user" . "h")
("smtp-auth" . nil)
("pop-server" . "localhost")
("pop-port" . "110")
("pop-ssh-server" . "h at example.com")
("pop-user" . "hidetomo")
("pop-auth" . apop)
("nntp-server" . "localhost")
("inbox-folder" . "+inbox")
("header-alist" .
(
("X-Cite-Me:" . "ほその")
("X-OpenPGP-Fingerprint:" .
"54CE 8818 1900 4751 5D9D 7085 5E07 609E ADE1 BD23")
("X-PGP-FingerPrint:" .
"F2 F0 96 35 9B 95 15 0C 75 44 86 21 6E 89 EC 53")
("X-PostPet-Reply-To:" .
"hidetomo at example.com")
("X-URI:" . "http://clug.linux.or.jp/")
))
)) mew-config-alist)
)
Mew-dist メーリングリストの案内