*Article*
★
今日の散財
★
NT Emacs
Meadow-2 で mule-unicode-XXXX を Windows フォントを使って表示できないものかと
考えていたんだけど、ふと NT Emacs-21.3 を試してみたら何もしなくとも
Windows フォントで表示してくれた。
ちょっとまじめに使ってみようかと思い立ち、まず APEL をインストール
しようとしたら abort…。出鼻をくじかれてしまった。
*
NT Emacs-21.3.50 with MSVC
CVS の先端をコンパイルしてみる。MSVC であっさり完了。
無事起動もしたけど xbm と pbm しか表示できない模様。
png などに対応させるには cygwin が必要っぽい?
*
NT Emacs-21.3.50 with MSVC その2
ってことで、cygwin の libpng などを入れてみるが、configure で
いくつか検出できず。png.h がショートカットになっているのがまずいのかと
コピーしてみたけどダメ。libjpeg などは検出できるんだが…。
*
NT Emacs-21.3.50 with cygwin
MingW でコンパイルに挑むも全然通らず。そういえば mule-ja ML に patch が
流れていたっけ。まあ、また縁があればということで…。
★
Meadow-2.00-20040506
★
今日の散財
PC 用に買った
スピーカが届く。
低音が出すぎ?
★
wl-spam
ふと、wl-spam を使ってみる。
maildrop で SpamAssassin を使っていて、閾値を高めにしているために
INBOX には BAYSE のスコアが高いメッセージも残っているという状態。
そういったメッセージはリファイル時に学習の必要は無いので、リファイル時の
学習はしないように。
(setq elmo-spam-scheme 'sa)
(require 'wl-spam)
(setcar (nthcdr 4 (assoc "o" wl-summary-mark-action-list))
#'wl-summary-exec-action-refile)
(setq wl-spam-folder "%INBOX.spam")
★
message-insert-message
mime-edit-insert-message 相当の機能が Gnus の message (mml?) には
無いようなので、以下の設定を入れてみる。
(unless (memq 'turn-on-mime-edit message-setup-hook)
(define-key message-mode-map "\C-c\C-x\C-y"
(lambda ()
(interactive)
(message-forward-make-body gnus-original-article-buffer))))
★
highlight bayes score
ふと、こんな設定をしてみたり。
(let ((scores '(0 1 10 20 30 40 44 50 56 60 70 80 90 99)))
(while scores
(set-face-attribute
(make-face (intern (format "wl-highlight-sa-BAYES_%02d" (car scores))))
nil
:inherit 'wl-highlight-message-unimportant-header-contents
:background (format "gray%d" (- 100 (car scores))))
(setq scores (cdr scores))))
(defun wl-highlight-sa-bayes ()
(goto-char (point-min))
(when (re-search-forward "^X-Spam-Status: .*\\(BAYES_[0-9][0-9]\\)"
nil t)
(put-text-property (match-beginning 1) (match-end 1)
'face
(intern (concat "wl-highlight-sa-"
(match-string 1))))))
(add-hook 'wl-highlight-headers-hook 'wl-highlight-sa-bayes)
普段は tty で使っているから、2値化されてしまうけど。
★
Amazon アソシエイト
ふと申し込んでみたので、適当に手元にあった本や CD へのリンクを貼ってみる。
本は ISBN で良いとして、CD や DVD は ASIN を検索しないとならんので面倒だなあ。
せっかくだから、カートに保存してある商品へのリンクなども貼ってみよう。
★
/usr/local/bin/
事故で /usr/local/bin/ が消えてしまった(;_;)
とりあえず、以下を再インストールしてメール環境だけ復活。
- emacs-21.3
- w3m-0.5.1
- maildrop-1.6.3
- SpamAssassin-2.63
SpamAssassin の DB が読めなくなってしまったので、
手元の一ヶ月分の SPAM 5000通を再学習中。
(
mew-dist より)
すばらしすぎ。早速(arch をインストールして)、ソースを落としてインストール。
emacs-w3m の画像表示も、tty ではできないけど、emacsclient で開いた frame では
できたりと問題無い。ここで生活することにしよう:-)
*
問題点・疑問点
とりあえず気付いた点など。
- tty で起動して frame を開くとツールバーが表示されていない。 M-x toolbar-mode すればおけー。
- Wanderlust を tty で起動すると、X の方には icon が表示されない。 逆に X で起動すると tty の方に "imap.xpm" などの文字列が表示されてしまう。
-
tty で起動して Frame を開いた場合に、Frame の方で elscreen がエラーとなる。(elscreen を更新したところ改善された。)
- tty ではメニューを表示せず、X では表示するにはどうすれば?
*
window-system-default-frame-alist
window-system-default-frame-alist ってのを発見。
とりあえず、以下のように設定してみるも、make-frame でエラー。
(setq window-system-default-frame-alist
'((x (menu-bar-lines . 1) (tool-bar-lines . 1)
(background-color . "light cyan"))
(nil (menu-bar-lines . 0) (tool-bar-lines . 0))))
どうも make-frame に bug があるようなので、後で報告するとしよう。
*
Wanderlust
暫定対策。
しかし、これだと tty で見た時にフォルダの前にスペースが入ってしまうんだなあ。
★
GNU arch on Solaris
★
今日の Emacs multi-tty
window-system-default-frame-alist は patch-180 で修正してもらった。
*
background-color
window-system-default-frame-alist で X の background-color だけ変えるつもりが、
X の Frame を開くと tty の background-color も変わってしまった。
どうも ccc の modify-frame-parameters への advice がよろしくなさそうだったので、
deactivate しておこう。
(eval-after-load "ccc"
'(ad-deactivate #'modify-frame-parameters))
しかし、時々 tty の background-color が変わってしまうなあ。
*
Cygwin + X
せっかくだから Cygwin と X をインストール。
これで PuTTY で Linux Box に入って、DISPLAY=WindowsBox:0 emacsclient で
Frame を開くとしよう。
*
elscreen
elscreen-1.2.4 にしたら問題無く動作した。単に古かっただけかな。
★
maildrop for QuickML
ある QuickML な MailingList と FML な MailingList で同じ X-ML-Name と
なってしまった。~/.mailfilter を変更して QuickML な方は %INBOX.QuickML.ml-name
に落とすことにしよう。
if (/^X-ML-Name:[ \t]*![^ \t\.]+/:h || /^List-Id:[ \t]*![^ \t\.]+/:h)
{
ML=$MATCH2
if (/^X-QuickML: true/:h)
{
ML="QuickML.$ML/"
}
else
{
ML="ml.$ML/"
}
if (`/bin/sh -c 'test -d "$MAILDIR.$ML" && echo 1'`)
{
to "$MAILDIR.$ML"
}
}
★
今日の Emacs multi-tty
tty で起動して frame を開いた時にツールバーを表示するために、
以下の設定を入れておく。
(add-hook 'after-make-frame-functions
#'(lambda (frame)
(when (frame-parameter frame 'window-system)
(select-frame frame)
(tool-bar-mode 1))))
以上、11 日分です。