From: Hiroyuki KUROSAKI <noir@...>
Date: 2001-12-06T22:27:24+09:00
Subject: [ruby-list:32805] Re: Ruby for PalmOS に対する熱い想い

黒崎です。

From: rubikitch <rubikitch@ruby-lang.org>
Subject: [ruby-list:32780] Re: Ruby for PalmOS に対する熱い想い
Date: Wed, 5 Dec 2001 02:47:37 +0900

> > Mew のソースを読んでみると、mh2medoc.rb を呼び出すだけの Emacs Lisp マ
> > クロなら数十行ぐらいで書けそうです (表示中のバッファ名とマークされた番
> > 号のリストを取り出してコマンドラインに渡すだけで十分)。
> たしかにこれなら簡単ですね。
> よければそのソースを見せてほしいです。

topalm.rb を呼び出す Emacs Lisp プログラムを書き始めました。まだデバッ
グ中ですが、Mew の Summary バッファで呼び出される関数を抜き出すとこん
な感じです。

--
(defun topalm-conv-mew (arg)
  (let (folder msgs prcfile title beg end options basename)
    (or (require 'mew) (error "Mew not installed."))
    (setq options '("-M" "-m"))
    (setq folder (buffer-name (current-buffer)))
    (if arg
	(setq beg (region-beginning) end (region-end))
      (setq beg (point-min) end (point-max)))

;; review マーク (*) をつけたメッセージが対象

    (setq msgs (mew-summary-mark-collect mew-mark-review beg end))
    (if (null msgs) (error "No mark."))
    (setq options (append options (list (mapconcat 'topalm-donothing msgs ","))))
    (setq basename (topalm-safe-name
		    (topalm-remove-plus (buffer-name (current-buffer)))))
    (setq prcfile (concat
		   topalm-install-directory
		   basename
		   ".prc"))
    (setq title basename)
    (setq proc (topalm-start-conv folder prcfile title options))
    (set-process-sentinel proc 'topalm-conv-sentinel)
    (message "Start converting...")))
--
Hiroyuki KUROSAKI <noir@st.rim.or.jp>
URL:http://www.st.rim.or.jp/~noir/
PGP key fingerprint = 6F A5 A2 78 A6 D0 6E DF  F2 BE 47 35 03 05 9C 0F