[xyzzy:02378] Re: my-den8-move-message

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

こんにちは、山本です。


At Thu, 15 Apr 1999 20:12:10 +0900, Tetsuya wrote:

> じゃ、こんな感じ?

den8view.l は難しすぎてあまり見ていなかったんですが、案外簡単に
出来るんですね。うーん、凄い。

そうすると、移動はこんな感じですね。
（このままは動かないと思いますが）

(defun 移動 ()
  (interactive)
  (when den8-mail-number
    (save-excursion
      (let ((default (dolist (def 振り分け定義 (car def))
		      (goto-char (point-min))
		      (when (scan-buffer (car def)
					 :regexp t
					 :limit den8-point-min)
			(return))))
	    folder)
	(setq folder (completing-read (format nil "Folder(~A): " default)
				      *den8-folder-list*
				      :case-fold t))
	(DDE-MOVE (if (equal folder "")
		      (or default den8-folder-name)
		    folder))))))



> かわいそ(^^;＞電八

縁の下の力持ちです。＞電八

-- 
山本真二   sinj@xxxxxxxxxxxx