bug#11580: 23.3; EUDC can't handle empty last names in BBDB

[Sergio Durigan Junior <sergiodj@riseup.net>]

I use EUDC to integrate my local BBDB records with my company's LDAP.
Unfortunately, I am having an annoying problem when I try to complete
the name of local BBDB records which don't have their last names (i.e.,
empty strings as last names).  EUDC is giving me the following error
message:

    Debugger entered--Lisp error: (error "Unexpected attribute value")
      signal(error ("Unexpected attribute value"))
      byte-code("\b	\232\203\f.\n\v\232\204.\305	\v\306#\210\304\f@\fA\"\207" [eudc-server eudc-former-server eudc-protocol eudc-former-protocol signal eudc-set-server t] 4)
      eudc-expand-inline()
      message-expand-name()
      message-tab()
      call-interactively(message-tab nil nil)


This is what I have in my .gnus file:

    (require 'eudc)

    (setq eudc-default-return-attributes nil
          eudc-strict-return-matches nil)

    (setq ldap-ldapsearch-args (quote ("-tt" "-LLL" "-x")))

    (eudc-protocol-set 'eudc-inline-expansion-format '("%s <%s>" CommonName mail)
                       'ldap)
    (eudc-protocol-set 'eudc-inline-query-format '((cn) (cn cn) (cn cn cn)) 'ldap)

    (eudc-protocol-set 'eudc-inline-expansion-format '("%s %s <%s>" firstname name net)
                       'bbdb)
    (eudc-protocol-set 'eudc-inline-query-format '((firstname)
                                                   (lastname)
                                                   (firstname lastname)
                                                   (net))
                       'bbdb)

    (eudc-set-server "localhost" 'bbdb t)
    (setq eudc-server-hotlist '(("localhost" . bbdb)
                                ("ldap.myserver.com" . ldap)))
    (setq eudc-inline-expansion-servers 'hotlist)

    (defun enz-eudc-expand-inline()
      (interactive)
      (if (eq eudc-protocol 'ldap)
          (progn (move-end-of-line 1)
                 (insert "*")
                 (unless (condition-case nil
                             (eudc-expand-inline)
                           (error nil))
                   (backward-delete-char-untabify 1)))
        (eudc-expand-inline)))

    ;; Adds some hooks

    (eval-after-load "message"
      '(define-key message-mode-map (kbd "C-L") 'enz-eudc-expand-inline))


As far as I have tested, the error above happens only when I try to
query BBDB for entries that don't have a last name; whenever I try to
complete a full entry (i.e., one with name + last name), the error does
not manifest.


In GNU Emacs 23.3.1 (x86_64-redhat-linux-gnu, GTK+ Version 2.24.8)
 of 2012-01-13 on x86-04.phx2.fedoraproject.org
configured using `configure  '--build=x86_64-redhat-linux-gnu' '--host=x86_64-redhat-linux-gnu' '--program-prefix=' '--disable-dependency-tracking' '--prefix=/usr' '--exec-prefix=/usr' '--bindir=/usr/bin' '--sbindir=/usr/sbin' '--sysconfdir=/etc' '--datadir=/usr/share' '--includedir=/usr/include' '--libdir=/usr/lib64' '--libexecdir=/usr/libexec' '--localstatedir=/var' '--sharedstatedir=/var/lib' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--with-dbus' '--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff' '--with-xft' '--with-xpm' '--with-x-toolkit=gtk' 'build_alias=x86_64-redhat-linux-gnu' 'host_alias=x86_64-redhat-linux-gnu' 'CFLAGS=-DMAIL_USE_LOCKF -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4  -m64 -mtune=gen
 eric' 'LDFLAGS=-Wl,-z,relro ''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=none
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  shell-dirtrack-mode: t
  show-paren-mode: t
  ido-everywhere: t
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-n C-n C-n C-n C-n C-n C-p C-p C-p C-n C-n C-n C-p 
C-p C-n C-n C-p C-p C-n C-n C-p C-p C-p C-p C-p C-p 
C-n C-n C-n C-p C-p C-p C-x k RET y e s RET C-n C-p 
C-x o q C-x k RET y e s RET ESC x s e i DEL DEL s e 
DEL DEL e r g i o - w i DEL DEL s e DEL w ESC p ESC 
p ESC p ESC p ESC p ESC n RET r i s e u p t RET S A 
r i s e u p RET C-x o C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-n C-p C-p C-p C-p C-p C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-n C-n C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p ESC x r e p o r ESC p ESC p RET

Recent messages:
Checking 12 files in /usr/share/emacs/23.3/lisp/cedet...
Checking 30 files in /usr/share/emacs/23.3/lisp/calendar...
Checking 44 files in /usr/share/emacs/23.3/lisp/calc...
Checking 22 files in /usr/share/emacs/23.3/lisp/obsolete...
Checking 1 files in /usr/share/emacs/23.3/leim...
Checking for load-path shadows...done
Auto-saving...done
call-interactively: End of buffer
Mark set
selected Riseup.net IMAP account [2 times]

Load-path shadows:
/home/sergio/emacs-lisp/xcscope hides /usr/share/emacs/site-lisp/xcscope
/usr/share/emacs/site-lisp/goodies/emacs-goodies-loaddefs hides /usr/share/emacs/site-lisp/site-start.d/emacs-goodies-loaddefs
/usr/share/emacs/site-lisp/flim/hex-util hides /usr/share/emacs/23.3/lisp/hex-util
/usr/share/emacs/site-lisp/flim/md4 hides /usr/share/emacs/23.3/lisp/md4
/usr/share/emacs/site-lisp/flim/sha1 hides /usr/share/emacs/23.3/lisp/sha1
/usr/share/emacs/site-lisp/flim/sasl-digest hides /usr/share/emacs/23.3/lisp/net/sasl-digest
/usr/share/emacs/site-lisp/flim/ntlm hides /usr/share/emacs/23.3/lisp/net/ntlm
/usr/share/emacs/site-lisp/flim/sasl-ntlm hides /usr/share/emacs/23.3/lisp/net/sasl-ntlm
/usr/share/emacs/site-lisp/flim/hmac-def hides /usr/share/emacs/23.3/lisp/net/hmac-def
/usr/share/emacs/site-lisp/flim/hmac-md5 hides /usr/share/emacs/23.3/lisp/net/hmac-md5
/usr/share/emacs/site-lisp/flim/sasl hides /usr/share/emacs/23.3/lisp/net/sasl
/usr/share/emacs/site-lisp/flim/sasl-cram hides /usr/share/emacs/23.3/lisp/net/sasl-cram
/usr/share/emacs/site-lisp/gnus-bonus/nnnil hides /usr/share/emacs/23.3/lisp/gnus/nnnil
/usr/share/emacs/site-lisp/gnus-bonus/spam-stat hides /usr/share/emacs/23.3/lisp/gnus/spam-stat
/usr/share/emacs/site-lisp/gnus-bonus/nnir hides /usr/share/emacs/23.3/lisp/gnus/nnir

Features:
(shadow emacsbug newcomment ansi-color gnus-async gnus-bcklg gnus-dup
sort byte-opt bytecomp byte-compile parse-time gnus-ml disp-table
dabbrev eudcb-ldap bbdb-gui pp find-func multi-isearch tramp-imap assoc
tramp-gw tramp-fish tramp-smb tramp-cache tramp-ftp tramp-cmds tramp
shell comint tramp-compat trampver help-mode view debug gnus-cite
gnus-topic nndoc nnfolder utf-7 utf7 nndraft nnmh bbdb-gnus bbdb-snarf
mail-extr auth-source nnimap imap trace gnus-agent gnus-srvr gnus-score
score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 mm-view smime dig
gnus-cache edmacro kmacro eudcb-bbdb bbdb-com advice help-fns
advice-preload eudc cus-edit cus-start cus-load eudc-vars epg-config
ldap bbdb timezone gnus-demon nntp nnir gnus-sum gnus-group gnus-undo
nnmail mail-source format-spec nnoo cl cl-19 gnus-start gnus-spec
gnus-int gnus-range message sendmail regexp-opt ecomplete rfc822 mml
mml-sec password-cache mm-decode mm-bodies mm-encode mailcap mail-parse
rfc2231 rfc2047 rfc2045 qp ietf-drums mailabbrev gmm-utils mailheader
canlock sha1 sha1-el hex-util hashcash gnus-win gnus gnus-ems nnheader
gnus-util netrc time-date mail-utils mm-util mail-prsvr wid-edit server
avoid paren ido xcscope ring easymenu emacs-goodies-loaddefs easy-mmode
bbdb-autoloads tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win
x-dnd font-setting tool-bar dnd fontset image fringe lisp-mode register
page menu-bar rfn-eshadow timer select scroll-bar mldrag mouse jit-lock
font-lock syntax facemenu font-core frame cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button
minibuffer faces cus-face files text-properties overlay md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind system-font-setting
font-render-setting gtk x-toolkit x multi-tty emacs)

-- 
Sergio