レス数が950を超えています。1000を超えると表示できなくなるよ。

Wanderlust

715 ：名無しさん＠お腹いっぱい。 ：02/05/03 02:36

>>709
こんな感じ？
;; おいらには >>536 の方が便利だけど。ごめんね。

(catch 'break
(cond ((= p-min (point)) nil)
((= (1+ p-min) (point)) (backward-delete-char 1))
(t (throw 'break nil)))
(insert (nth my-wl-cycle-folder-point my-wl-cycle-folder-list))
(setq my-wl-cycle-folder-point
(mod (1+ my-wl-cycle-folder-point)
(length my-wl-cycle-folder-list))))))

read.cgi ver5.26+ (01/10/21-)