[mew-dist 27908] Re: GMail の IMAP

[Kazu Yamamoto ( 山本和彦 )]

白井さん、

> えっと、mew-complete-insert-folder-function() はもうちょっと高機
> 能(*1)にした方が良いと思われるのでやってみました。ほとんど Emacs
> 標準の choose-completion-string() と同じ動きになっているかなぁ？

なんか無駄に一時バッファを使っていると思うのは気のせいでしょうか？
これじゃダメですか？

(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))))
	(delete-region (match-end 1) (point-max))
      (delete-region (point) (point-max)))
    (goto-char (point-max))
    (insert choice)
    (remove-text-properties start (point-max) '(mouse-face nil))
    (mew-complete-window-delete 'force)
    t))

--かず