[mew-dist 27910] Re: GMail の IMAP

[Kazu Yamamoto ( 山本和彦 )]

> だけど、今考え直したら marker 使えば全然大丈夫ですね。かずさんの
> をちょっとだけ変更してみました。

Mew は、できるだけ marker を使わないというポリシーでございます。

こういうことでしょうか？

(defun mew-complete-insert-folder-function (choice buffer mini-p base-size)
  (let ((start (mew-minibuf-point-min))
	(proto (substring choice 0 1))
	(pos (point)))
    (while (not (or (= start (point))
		    (not (char-before))
		    (char-equal (char-before) ?,)))
      (forward-char -1))
    (if (and (member proto mew-folder-prefixes)
	     (looking-at (concat "\\("
				 (regexp-opt mew-config-cases t)
				 ":\\)"
				 (regexp-quote proto))))
	(progn
	  (delete-region (match-end 1) pos)
	  (goto-char (match-end 1)))
      (delete-region (point) pos))
    (insert choice)
    (remove-text-properties start (point-max) '(mouse-face nil))
    (mew-complete-window-delete 'force)
    t))

--かず