Meadow 1.14 (+ Mew 2.0 + t-gnus + X-Face) のインストールログ (=Emacs 20.7.2 on Windows) 1. Meadow 1.14 のインストール バイナリパッケージの入手。 ftp://ftp.m17n.org/pub/mule/Windows/ などから、 Meadow-1.14-i386-base.tar.gz Meadow-1.14-i386-els.tar.gz Meadow-1.14-i386-leim.tar.gz を取ってきて適当なところで解凍する。(解凍に必要な tar.exe と gzip.exe がない場合は、ftp://ftp.m17n.org/pub/mule/Windows/tools/ などから入手) 例えば取ってきたファイルを c:\tmp に置いて、c:\usr\local に展開する場合は、 C:\usr\local> tar zxvf c:\tmp\Meadow-1.14-i386-base.tar.gz C:\usr\local> tar zxvf c:\tmp\Meadow-1.14-i386-els.tar.gz C:\usr\local> tar zxvf c:\tmp\Meadow-1.14-i386-leim.tar.gz c:\usr\local\Meadow\1.14\bin\install.exe を実行し、ホームディレクトリ の設定をする。(例えば d:\home とか) 環境変数を設定する。設定するのは次の４つ。 set HOME=D:\home set PATH=C:\usr\local\Meadow\1.14\bin;%PATH% set TZ=JST-9 set TMP=C:\tmp (autoexec.bat 又はシステム環境変数に設定) 附属の dot.emacs.ja ファイルをホームディレクトリに .emacs としてコピー して適宜編集する。(編集後のサンプルは後述) 2. Mew 2.0 のインストール ftp://ftp.Mew.org/pub/Mew/Win32/release/MEW20W0.zip などから Windows 用パッケージを入手して解凍。 mew.exe を実行してインストール。最後に .emacs に設定を加えるか聞いて 来るので適当に E-mail アドレスなどの情報を入力。 3. apel + flim + semi + t-gnus のインストール gnus をインストールするために emacs lisp のライブラリ apel, flim, semi をインストールする。例えば、 http://www.netlaputa.ne.jp/~kose/Emacs/Meadow/index.html などから次のパッケージを入手する。 apel-10.3-for-Meadow1.14-1.tar.gz flim-1.14.3-for-Meadow1.14-1.tar.gz semi-1.14.3-for-Meadow1.14-2.tar.gz 次に Meadow をインストールしたディレクトリで解凍する。 c:\usr\local> tar zxvf c:\tmp\apel-10.3-for-Meadow1.14-1.tar.gz c:\usr\local> tar zxvf c:\tmp\flim-1.14.3-for-Meadow1.14-1.tar.gz c:\usr\local> tar zxvf c:\tmp\semi-1.14.3-for-Meadow1.14-2.tar.gz 同じところから t-gnus のパッケージを入手、インストール。 c:\usr\local> tar zxvf c:\tmp\t-gnus-6_15_4-06-quimby-for-Meadow1.14-1.tar.gz .emacs に設定を追加。(後述) 4. X-Face のインストール メールや News の記事についてくる X-Face を Meadow でインライン表示する。 まず、ビットマップデータを圧縮展開する compface/uncompface をインストール する。 ftp://ftp.mew.org/pub/Mew/Win32/tool/CMPF14W0.ZIP 解凍してパスの通った場所に置く。 次にビットマップイメージをインライン表示するための bitmap-mule をインス トールする。例えば、 ftp://ftp.jpl.org/pub/elisp/bitmap/ などから、 bitmap-mule-8.4.tar.gz を入手。今回は unix 上で展開して *.el ファイルを Windows の c:\usr\local\ Meadow\site-lisp\bitmap-mule に転送し、Meadow で byte-compile-file した。 bitmap の fontset を追加するために、.emacs のコメントに従って、 intlfonts-1.2.tar.gz を入手し適当なところに展開(今回は c:\usr\local\fonts)。 .emacs のフォント関係のところを編集して bdf-fontset を使えるようにする。 (後述の .emacs 参照) 最後に X-Face パッケージをインストール。 ftp://www.jpl.org/pub/elisp/x-face-1.3.6.13.tar.gz を unix で展開して Windows の c:\usr\local\Meadow\site-lisp\x-face に転送 して byte-compile-file デフォルトの fontset のままでは x-face が表示されないので、必要なときは mule メニューの Set Font/Fontset から Fontset メニューをたどり bdf-fontset にすればよい。 5. .emacs のサンプル .emacs のサンプルの必要なところを次に示す。 ●日本語環境とIMEの設定(デフォルト)------------------------------------ ;;; 日本語環境設定 (set-language-environment "Japanese") ;;; IMEの設定 (mw32-ime-initialize) (setq default-input-method "MW32-IME") (setq-default mw32-ime-mode-line-state-indicator "[--]") (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]")) (add-hook 'mw32-ime-on-hook (function (lambda () (set-cursor-height 2)))) (add-hook 'mw32-ime-off-hook (function (lambda () (set-cursor-height 4)))) ;;; マウスカーソルを消す設定 (setq w32-hide-mouse-on-key t) (setq w32-hide-mouse-timeout 5000) ;;; font-lockの設定 (if window-system (progn (setq font-lock-support-mode 'lazy-lock-mode) (global-font-lock-mode t))) ●bdfフォントを使えるようにする。--------------------------------------- ;; ;;; TrueType フォント設定 ;; (create-fontset-from-request "private-fontset" ;; '((width . 8) ;; (height . 16) ;; (fixed . t) ;; (italic . nil)) ;; '((family . "ＭＳ ゴシック") ;; (family . "Courier New"))) ;; ;; (change-fontset-from-request "private-fontset" ;; '((width . 8) ;; (height . 16) ;; (fixed . t) ;; (weight . 700) ;; (italic . nil)) ;; '((family . "ＭＳ ゴシック") ;; (family . "Courier New")) ;; 1) (create-fontset-from-request "ttfontset" '((width . 8) (height . 16) (fixed . t) (italic . nil)) '((family . "Courier") (family . "ＭＳ ゴシック"))) ;; ;;; BDF フォント設定 ;; ;; intlfonts-1.2.tar.gz が必要です ;; ;; http://www.ring.gr.jp/archives/GNU/intlfonts/intlfonts-1.2.tar.gz ;; ;; http://ring.asahi-net.or.jp/archives/GNU/intlfonts/intlfonts-1.2.tar.gz ;; ;; ftp://ftp.m17n.org/pub/mule/intlfonts-1.2.tar.gz ;; ;; ftp://ftp.gnu.org/pub/gnu/intlfonts/intlfonts-1.2.tar.gz ;; ;; などから入手してください ;; ;; c:/MEADOW/intlfonts-1.2 と展開した場合の設定例となっています。 ;; (defvar bdf-font-directory "c:/MEADOW/intlfonts-1.2") (defvar bdf-font-directory "c:/usr/local/fonts/intlfonts-1.2/") (defvar bdf-font-name-prefix "bdffont16-") ;; (require 'bitmap) (defvar bdf-font-file-alist '((ascii "European/lt1-16-etl.bdf" 0) (latin-iso8859-1 "European/lt1-16-etl.bdf" 1) ; ISO8859-1 (latin-iso8859-2 "European/lt2-16-etl.bdf" 1) ; ISO8859-2 (latin-iso8859-3 "European/lt3-16-etl.bdf" 1) ; ISO8859-3 (latin-iso8859-4 "European/lt4-16-etl.bdf" 1) ; ISO8859-4 (cyrillic-iso8859-5 "European/cyr16-etl.bdf" 1) ; ISO8859-5 (arabic-iso8859-6 "Misc/arab16-0-etl.bdf" 0) ; ISO8859-6 ??? (greek-iso8859-7 "European/grk16-etl.bdf" 1) ; ISO8859-7 (hebrew-iso8859-8 "Misc/heb16-etl.bdf" 1) ; ISO8859-8 (latin-iso8859-9 "European/lt5-16-etl.bdf" 1) ; ISO8859-9 (thai-tis620 "Asian/thai16.bdf" 1) ; TIS620 (katakana-jisx0201 "japanese.X/8x16rk.bdf" 1) ; JISX0201 (latin-jisx0201 "japanese.X/8x16rk.bdf" 0) ; JISX0201 (japanese-jisx0212 "japanese/jksp16.bdf" 0) ; JISX0212 (japanese-jisx0208-1978 "japanese/j78-16.bdf" 0); JISX0208.1978 (japanese-jisx0208 "japanese.X/jiskan16.bdf" 0) ; JISX0208.1983 ;; (japanese-jisx0213-1 "Japanese.X/jiskan16-2000-1.bdf" 0) ; JISX0213-2000(Plane 1) * Mule-UCS が必要です ;; (japanese-jisx0213-2 "Japanese.X/jiskan16-2000-2.bdf" 0) ; JISX0213-2000(Plane 2) * Mule-UCS が必要です (korean-ksc5601 "Korean.X/hanglm16.bdf" 0) ; KSC5601 mincho ;;; (korean-ksc5601 "Korean.X/hanglg16.bdf" 0) ; KSC5601 gothic (chinese-gb2312 "Chinese.X/gb16fs.bdf" 0 ) ; GB2312 ??? (chinese-cns11643-1 "Chinese/cns1-16.bdf" 0) ; CNS11643.1992-1 (chinese-cns11643-2 "Chinese/cns2-16.bdf" 0) ; CNS11643.1992-2 (chinese-cns11643-3 "Chinese/cns3-16.bdf" 0) ; CNS11643.1992-3 (chinese-cns11643-4 "Chinese/cns4-16.bdf" 0) ; CNS11643.1992-4 (chinese-cns11643-5 "Chinese/cns5-16.bdf" 0) ; CNS11643.1992-5 (chinese-cns11643-6 "Chinese/cns6-16.bdf" 0) ; CNS11643.1992-6 (chinese-cns11643-7 "Chinese/cns7-16.bdf" 0) ; CNS11643.1992-7 (chinese-big5-1 "Chinese/taipei16.bdf" encode-big5-font) ; Big5 (chinese-big5-2 "Chinese/taipei16.bdf" encode-big5-font) ; Big5 (chinese-sisheng "Chinese/sish16-etl.bdf" 0) ; sisheng_cwnn ??? (vietnamese-viscii-lower "Asian/visc16-etl.bdf" encode-viscii-font) ; VISCII1.1 (vietnamese-viscii-upper "Asian/visc16-etl.bdf" encode-viscii-font) ; VISCII1.1 (arabic-digit "Misc/arab16-0-etl.bdf" 0) ; MuleArabic-0 (arabic-1-column "Misc/arab16-1-etl.bdf" 0) ; MuleArabic-1 (arabic-2-column "Misc/arab16-2-etl.bdf" 0) ; MuleArabic-2 (ipa "Misc/ipa16-etl.bdf" 1) ; MuleIPA (bitmap "Misc/bmp16-etl.bdf" 0) ; ETL-bitmap (ethiopic "Ethiopic/ethio16f-uni.bdf" encode-ethio-font) ; Ethiopic-Unicode (ascii-right-to-left "European/lt1-16-etl.bdf" 0) ; ISO8859-1 ;; ??? (indian-is13194 "Asian/isci16-mule.bdf" 0) ; IS13194-Devanagari (indian-2-column "Asian/ind16-mule.bdf" 0) ; MuleIndian-2 (indian-1-column "Asian/ind1c16-mule.bdf" 0) ; MuleIndian-1 (lao "Asian/lao16-mule.bdf" 1) ; MuleLao-1 (tibetan "Asian/tib16-mule.bdf" 0) ; MuleTibetan-0 (tibetan-1-column "Asian/tib1c16-mule.bdf" 0) ; MuleTibetan-1 )) ;; (defun w32-configure-bdf-font (fontset) (new-fontset fontset (mapcar (lambda (x) (let* ((charset (car x)) (filename (nth 1 x)) (encoding (nth 2 x)) (fontname (concat bdf-font-name-prefix (symbol-name charset)))) (w32-auto-regist-bdf-font fontname (expand-file-name filename bdf-font-directory) encoding) (cons charset fontname))) bdf-font-file-alist))) ;; (w32-configure-bdf-font "bdf-fontset") ;; ;; ;; bold, italic, bold itaric を追加。 ;; ;; Bold ;; (w32-change-font-logfont "bdffont16-ascii" 1 ;; (list 'bdf-font (expand-file-name "European/lt1-16b-etl.bdf" bdf-font-directory ))) ;; ;; italic ;; (w32-change-font-logfont "bdffont16-ascii" 2 ;; (list 'bdf-font (expand-file-name "European/lt1-16i-etl.bdf" bdf-font-directory ))) ;; ;; Bold itaric ;; (w32-change-font-logfont "bdffont16-ascii" 3 ;; (list 'bdf-font (expand-file-name "European/lt1-16bi-etl.bdf" bdf-font-directory ))) ●初期のウインドウの位置や大きさの設定。------------------------------ ;; 初期フレームの設定 (setq default-frame-alist (append (list '(foreground-color . "black") '(background-color . "LemonChiffon") '(background-color . "gray") '(border-color . "black") '(mouse-color . "white") '(cursor-color . "black") ;; '(ime-font . "Nihongo-12") ; TrueType のみ ;; '(font . "bdf-fontset") ; BDF ;; '(font . "private-fontset"); TrueType '(width . 72) '(height . 25) ;; '(width . 82) ;; '(height . 30) '(top . 50) '(left . 50)) default-frame-alist)) ● Mew の設定。----------------------------------------------------- ;;; Mew Easy Settings (generated automatically) ;; configuration (setq mew-config-alist '(("default" ("name" . "Namae Myouji") ("user" . "username") ("mail-domain" . "hogehoge.ac.jp") ("smtp-server" . "mail.hogehoge.ac.jp") ("pop-server" . "pop.hogehoge.ac.jp") ("pop-auth" . pass) ("pop-user" . "username")) ("microsoft" ("content-type" . "Application/Octet-Stream")) )) (autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t) (autoload 'mew-user-agent-compose "mew" nil t) ;; Optional setup (Read Mail menu for Emacs 21): (if (boundp 'read-mail-command) (setq read-mail-command 'mew)) ;; Optional setup (e.g. C-xm for sending a message): (if (boundp 'mail-user-agent) (setq mail-user-agent 'mew-user-agent)) (if (fboundp 'define-mail-user-agent) (define-mail-user-agent 'mew-user-agent 'mew-user-agent-compose 'mew-draft-send-letter 'mew-draft-kill 'mew-send-hook)) ;; ;(setq mew-cc nil) ;; backup message ;(setq mew-fcc "+backup") ;; do not show demo ;(setq mew-demo nil) ;; modify Cc: ;(setq mew-replyto-to-list '("Reply-To:")) ;(setq mew-replyto-cc-list nil) ;; do not get mail when startup (offline mode) ;(setq mew-auto-get nil) ;; sample of guess ;(setq mew-case-guess-alist ; '(("X-Mailer:" ; ("Outlook" . "microsoft")) ; )) ;(setq mew-case-guess-when-prepared t) ;(setq mew-case-guess-when-replied t) ;(setq mew-case-guess-when-composed t) ;(setq mew-case-guess-addition t) ;; print message ;(setq mew-w32-prog-print "notepad.exe") ;(setq mew-w32-prog-print-arg "/p") ;(setq mew-w32-cs-print 'shift_jis-dos) ;(define-process-argument-editing "/notepad\.exe$" ; (lambda (x) ; (general-process-argument-editing-function x nil t))) ;; pick with japanese (Perl is required). ;(setq mew-prog-grep "mg") ;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-e" "-x" "&mime")) ;; mouse click and start web browser ;(require 'mew-browse) ;(define-key global-map [S-mouse-2] 'browse-url-at-mouse) ;; enable password caching ;(setq mew-use-cached-passwd t) ;; fancy threading ;(setq mew-use-fancy-thread t) ;; show thread separator ;(setq mew-use-thread-separator t) ;; add review mark('*') automatically ;(setq mew-scan-form-mark-review t) ;; add delete mark('d') automatically ;(setq mew-scan-form-mark-delete t) ;; biff ;(setq mew-use-biff t) ;(setq mew-use-biff-bell t) ● gnus の設定。----------------------------------------------------- ;; ;; gnus setup ;; ;(load "mime-setup") ; (setq user-mail-address "username@hogehoge.ac.jp") (setq user-full-name "Namae Myouji") ; (setq gnus-local-organization "HogeHoge University") (autoload 'gnus "gnus" nil t) (setq message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Lines (optional . X-Mailer))) (setq message-syntax-checks '((long-lines . disabled) (control-chars . disabled) (multiple-headers . disabled) (sender . disabled) )) (setq message-required-news-headers '(From Newsgroups Subject Lines (optional . Organization) (optional . X-Newsreader)(optional . X-Face) (optional . User-Agent))) (setq gnus-select-method '(nntp "news.hogehoge.ac.jp" )) (setq gnus-local-timezone t) (setq gnus-local-timezone +0900) (setq gnus-novice-user t) ;; header list (setq gnus-visible-headers (list "From:" "Subject:" "Newsgroups:" "Lines:" "Date:" "Message-ID:" "Organization:" "X-Newsreader:" "X-Face:" )) ● x-face の設定。---------------------------------------------------- ;; ;; x-face setting ;; (autoload 'x-face-encode "x-face" "Generate X-Face string(s) from xbm file." t) (autoload 'x-face-insert "x-face" "Insert X-Face fields." t) (autoload 'x-face-save "x-face" "Save X-Face fields to files." t) (autoload 'x-face-view "x-face" "View X-Face fields." t) (autoload 'x-face-ascii-view "x-face" "View X-Face fields as ascii pictures." t) (if (and window-system (fboundp 'w32-auto-regist-bdf-font)) (progn ;; Mew 用の設定 (setq mew-use-highlight-x-face t mew-use-highlight-x-face-function (function (lambda (beg end) (x-face-mule:x-face-decode-message-header beg end)))) ;; SEMI-MUA 用の設定 (add-hook 'mime-view-content-header-filter-hook 'x-face-mule:gnus-art-mime-highlight-headers t) ;; あと いろいろ (setq x-face-mule:uncompface-program "uncompface.exe" x-face-mule:highlight-x-face-position 'from x-face-mule:highlight-x-face-style 'xmas) (require 'x-face-mule))) ;; (require 'bitmap)))