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

Wanderlust

536 ：名無しさん＠お腹いっぱい。 ：02/02/19 19:30

>>533
俺も不便だと思ってたので。

;;; g を押したとき頭の + とかはジャマ。
(setq my-wl-read-folder-map (copy-keymap minibuffer-local-completion-map))
(dolist (pair elmo-folder-type-alist)
(define-key my-wl-read-folder-map (char-to-string (car pair)) 'my-wl-read-folder-insert-prefix))

(defun my-wl-read-folder-insert-prefix ()
(interactive)
(when (= (point) (1+ (point-min)))
(let ((old-prefix (char-before)))
(unless (or (eq old-prefix ?*)
(eq old-prefix ?/)
(eq old-prefix ?|))
(delete-backward-char 1))))
(insert last-input-event))

(defadvice wl-summary-read-folder (around
wl-summary-read-folder-with-keymap
activate)
(let ((minibuffer-local-completion-map my-wl-read-folder-map))
ad-do-it))

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