completion with migemo

白井です。

lsdb で補完するときに、相手が

From: 山田太郎 <abcd1234567 ＠ example.co.jp>

なメールアドレスな人で、かつ、漢字しか書いてくれない人向けなので
すが、こんなのはどうでしょうか。migemo を使っている人は

(setq lsdb-use-migemo t) 

しておくと、

To: yamada(補完)
で
To: 山田太郎 <abcd1234567 ＠ example.co.jp>
が出てきます。

# To: 山田(補完)のように漢字を書いて補完は、はちと面倒くさいし、
# 相手が、From をどう書いていたか？は覚えていられないので。

--- lsdb.el	21 Mar 2003 03:24:43 -0000	1.73
+++ lsdb.el	24 Mar 2003 09:55:02 -0000
@@ -251,6 +251,11 @@
   :type 'boolean
   :group 'lsdb)
 
+(defcustom lsdb-use-migemo nil
+  "If non-nil, use `migemo' when complete address."
+  :type 'boolean
+  :group 'lsdb)
+
 ;;;_. Faces
 (defface lsdb-header-face
   '((t (:underline t)))
@@ -805,7 +810,9 @@
   (add-hook 'pre-command-hook 'lsdb-complete-name-highlight-update nil t)
   (save-excursion
     (goto-char start)
-    (search-forward lsdb-last-completion end)
+    (if (and lsdb-use-migemo (fboundp 'migemo-get-pattern))
+	(re-search-forward lsdb-last-completion end)
+      (search-forward lsdb-last-completion end))
     (setq lsdb-last-highlight-overlay
 	  (make-overlay (match-beginning 0) (match-end 0)))
     (overlay-put lsdb-last-highlight-overlay 'face
@@ -840,8 +847,11 @@
     (unless (eq last-command this-command)
       (setq lsdb-last-candidates nil
 	    lsdb-last-candidates-pointer nil
-	    lsdb-last-completion (buffer-substring start (point))
-	    pattern (concat "\\<" (regexp-quote lsdb-last-completion)))
+	    lsdb-last-completion (buffer-substring start (point)))
+      (if (and lsdb-use-migemo (fboundp 'migemo-get-pattern))
+	  (setq lsdb-last-completion (migemo-get-pattern lsdb-last-completion)
+		pattern (concat "\\<\\(" lsdb-last-completion "\\)"))
+	(setq pattern (concat "\\<" (regexp-quote lsdb-last-completion))))
       (lsdb-maphash
        (lambda (key value)
 	 (setq lsdb-last-candidates