*Backtrace*

_ pgpdump-0.10

send-prしてから、失敗に気づいて follow。 fail safe てことで do-install: を定義しておいてよかったよ。無駄に冗長にしてるわけじゃないのよ。

_ wispy

Keep it Simple Stupid! て感じで欲望を押えつつふにふにといじる。きちんと動いて maintainer がラクできればいいのさ。うーん、PerlUnitって肌にあわぬなぁ。RubyUnitに先に触れてたからだろうか。 それとも bolt on OOP (謎) のせいか。

_ [TNT] over ssh

こゆきさんとこ参考にしてふにふに。 elmo-lunafy 枝用デス。

(defun open-ssh-stream-internal (name buffer relay-host host service)
  (let ((service (if (stringp service)
		     service
		   (int-to-string service)))
	(process-connection-type nil))
    (start-process-shell-command
     name buffer "ssh" "-C" "-a" "-x" "-q" relay-host
     "nc" host service)))
(defun open-ssh-stream-snake (name buffer host service)
  (open-ssh-stream-internal name buffer "snake.example.org" host service))
(setq elmo-imap4-default-server "snake.example.org"
      elmo-imap4-default-authenticate-type 'clear
      elmo-imap4-default-stream-type '("!ssh" ssh nil open-ssh-stream-snake))
(setq elmo-nntp-default-server "news.example.org"
      elmo-nntp-default-stream-type '("!ssh" ssh nil open-ssh-stream-snake))

しっかし、ぜんぜん ML についていけてないですよ。 `W' まわりの guess function を lunit でチェックしてやろうかと妄想。 folder name 与えて address 返すだけだからな。