[mew-dist 25758] mew-ldap.elについて

[NARA, Susumu]

Shun-ichi Goto 様

mew-ldap.el に以下のパッチをあてて頂きたくメールしました。

理由は、３つです。（３つ目が重要なんですが）

1. 属性が見付からなかった場合の文字列を変更したい
2. アドレス補完後にmew-draft-expandを実行させたい（M-TABを実行するのが
   面倒）
3. 属性名に一文字の場合に拾えない（例えば、"o" や "l", "c" など）

以上、ご検討下さい。

奈良

zsh% diff -uNr mew-ldap.el.orig mew-ldap.el
--- mew-ldap.el.orig    2004-12-16 22:47:42.766433731 +0900
+++ mew-ldap.el 2004-12-16 22:47:13.648178938 +0900
@@ -479,6 +479,8 @@
 and full-name (cn : canonical name).
 All results are merged (OR operation).")
 
+(defvar mew-ldap-unknown-attr-str "unknown")
+
 ;; cache
 (defvar mew-ldap-search-cache nil
   "Cache of search result (for internal use).
@@ -492,7 +494,9 @@
   (interactive "P")
   (let* ((mew-ldap-use (or force
                           mew-ldap-use)))
-    (mew-draft-header-comp)))
+    (mew-draft-header-comp)
+    (run-hooks 'mew-ldapheader-comp-hook)
+    ))
   
 
 ;; advices of mew's functions
@@ -701,7 +705,7 @@
   (mapconcat (lambda (type)
               (format "%s=%s" (upcase type)
                       (or (mew-ldap-get-value type attr-list)
-                          "unknown")))
+                          mew-ldap-unknown-attr-str)))
             mew-ldap-alternative-dn-type-list
             ","))
    
@@ -857,13 +861,13 @@
       (if (not mew-ldap-debug)
          (kill-buffer tmp)))
     (nreverse result)))
-
+ 
 
 (defun mew-ldap-get-entry-1 ( &optional allow-dn )
   "Get one attribute considering folding.
 XXX, Unfolding may not be correct..."
   (let ((case-fold-search t)
-       (regexp "^\\(\\([a-z][a-z]+\\)\\(;[-a-z]+\\)*::?\\) *\\(.*\\)$")
+       (regexp "^\\(\\([a-z]+\\)\\(;[-a-z]+\\)*::?\\) *\\(.*\\)$")
        tag value)
     ;; skip
     (while (and (not (eobp))