Wanderlust
>>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))
俺も不便だと思ってたので。
;;; 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))
|
|
|