I'm using BBDB with a recent CVS snapshot of MH-E. I've set up a
mail-alias that refers to multiple entries in my BBDB database.

When I expand the mail alias in my To: field, it expands correctly, but
I also see the following error:

  completion for "wb" unfound.

>From a brief reading of the code and some preliminary testing, I'm led
to guess that the error is being shown because expand-abbrev seems to be
returning nil even on successful expansions.  Or am I missing something?

Eric

Emacs  : GNU Emacs 21.2.1 (i386-redhat-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-04-08 on porky.devel.redhat.com
Package: BBDB 2.34

current state:
==============
(setq
 emacs-version "21.2.1"
 bbdb-version-date "$Date: 2002/01/15 22:53:47 $"
 bbdb-file-format 6
 bbdb-no-duplicates-p nil
 bbdb-address-editing-function 'bbdb-address-edit-default
 bbdb-address-formatting-alist '((bbdb-address-is-continental .
                                  bbdb-format-address-continental)
                                 (nil . bbdb-format-address-default))
 bbdb-addresses-label-list '("Home" "Office" "Mobile" "Other")
 bbdb-after-change-hook nil
 bbdb-after-read-db-hook nil
 bbdb-always-add-addresses nil
 bbdb-auto-revert-p nil
 bbdb-canonicalize-net-hook nil
 bbdb-canonicalize-redundant-nets-p t
 bbdb-case-fold-search t
 bbdb-change-hook 'bbdb-timestamp-hook
 bbdb-check-zip-codes-p t
 bbdb-complete-name-allow-cycling t
 bbdb-complete-name-full-completion 5
 bbdb-complete-name-hooks '(ding)
 bbdb-completion-display-record nil
 bbdb-completion-type 'primary-or-name
 bbdb-continental-zip-regexp "^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]"
 bbdb-create-hook 'bbdb-creation-date-hook
 bbdb-default-area-code nil
 bbdb-default-country "Emacs"
 bbdb-default-domain nil
 bbdb-default-label-list '("Home" "Office" "Mobile" "Other")
 bbdb-define-all-aliases-field 'mail-alias
 bbdb-dial-local-prefix nil
 bbdb-dial-local-prefix-alist '(((if bbdb-default-area-code
                                  (format "(%03d)" bbdb-default-area-code) "")
                                 "")
                                )
 bbdb-dial-long-distance-prefix nil
 bbdb-display-layout nil
 bbdb-display-layout-alist '((one-line (order phones mail-alias net notes)
                              (name-end . 24) (toggle . t))
                             (multi-line (indention . 14) (toggle . t))
                             (pop-up-multi-line (indention . 14)))
 bbdb-dwim-net-address-allow-redundancy t
 bbdb-electric-p nil
 bbdb-elided-display nil
 bbdb-expand-mail-aliases t
 bbdb-extract-address-component-handler 'message
 bbdb-extract-address-component-ignore-regexp 
"\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input"
 bbdb-extract-address-component-regexps '(("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
                                           (car
                                            
                                                                                 
(mail-extract-address-components
                                                                                  
                                                                                  
                                                                                      
(concat
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                "\""
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                (match-string 1 adstring)
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                                                                       
                                "\"")
                                                                                  
                                                                                  
                                                                                      )
                                            
                                                                                 )
                                           2)
                                          ("\\([^<>,    ][^<>,]+[^<>,   
]\\)\\s-*<\\([^>]+\\)>" 1 2)
                                          ("<\\([^>]+\\)>" nil 2)
                                          ("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
                                           (car
                                            
                                                                                       
(mail-extract-address-components
                                                                                       
 
                                                                                       
 
                                                                                       
     (concat
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
                                      "\""
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
                                      (match-string 2 adstring)
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
      
                                                                                       
                                      "\"")
                                                                                       
 
                                                                                       
 
                                                                                       
     )
                                            
                                                                                       
)
                                           1)
                                          ("\\b\\(\\([^@        \n.]+\\.[^@     
\n.]+\\)@[^@    \n]+\\)\\b"
                                           (car
                                            
                                                                                       
                      (mail-extract-address-components
                                                                                       
                       
                                                                                       
                       
                                                                                       
                           (concat
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                                                            "\""
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                                                            (match-string 2 adstring)
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                            
                                                                                       
                                                            "\"")
                                                                                       
                       
                                                                                       
                       
                                                                                       
                           )
                                            
                                                                                       
                      )
                                           1)
                                          ("\\b\\(\\([^@        \n]+\\)@[^@     
\n]+\\)\\b" nil 1)
                                          ("\\b\\([^@   \n]+\\)\\b" nil 1))
 bbdb-extract-address-components-func 'bbdb-rfc822-addresses
 bbdb-file "~/.bbdb"
 bbdb-file-remote nil
 bbdb-file-remote-save-always t
 bbdb-finger-buffer-name "*finger*"
 bbdb-finger-host-field 'finger-host
 bbdb-get-addresses-headers '((authors "From" "Resent-From" "Reply-To")
                              (recipients "Resent-To" "Resent-CC" "To" "CC"
                               "BCC")
                              )
 bbdb-get-only-first-address-p t
 bbdb-gui nil
 bbdb-hashtable-size 1021
 bbdb-info-file nil
 bbdb-initialize-hook nil
 bbdb-legal-zip-codes '("^$"
                        "^[     \n]*[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[        \n]*$" 
"^[      \n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[    \n]*-?[         
\n]*\\([0-9][0-9][0-9][0-9]?\\)[        \n]*$" "^[      \n]*\\([A-Za-z0-9]+\\)[        
 \n]+\\([A-Za-z0-9]+\\)[         \n]*$" "^[      \n]*\\([A-Z]+\\)[       \n]*-?[       
  \n]*\\([0-9]+ ?[A-Z]*\\)[       \n]*$" "^[      \n]*\\([A-Z]+\\)[       \n]*-?[      
   \n]*\\([0-9]+\\)[       \n]+\\([0-9]+\\)[       \n]*$")
 bbdb-list-hook nil
 bbdb-load-hook nil
 bbdb-message-caching-enabled t
 bbdb-mode-hook nil
 bbdb-modem-device "/dev/modem"
 bbdb-modem-dial nil
 bbdb-new-nets-always-primary nil
 bbdb-north-american-phone-numbers-p t
 bbdb-notes-default-separator ", "
 bbdb-notes-sort-order '((notes . 0) (www . 1) (ftp . 2) (gopher . 3)
                         (telnet . 4) (mail-alias . 5) (mail-folder . 6)
                         (lpr . 7) (creation-date . 1000) (timestamp . 1001))
 bbdb-notice-auto-save-file nil
 bbdb-notice-hook nil
 bbdb-offer-save 'dont-ask
 bbdb-phones-label-list '("Home" "Office" "Mobile" "Other")
 bbdb-pop-up-display-layout nil
 bbdb-pop-up-elided-display nil
 bbdb-pop-up-target-lines 5
 bbdb-quiet-about-name-mismatches nil
 bbdb-readonly-p nil
 bbdb-refile-notes-default-merge-function 'bbdb-refile-notes-default-merge-function
 bbdb-refile-notes-generate-alist '((creation-date .
                                     bbdb-refile-notes-string-least)
                                    (timestamp . bbdb-refile-notes-string-most)
                                    )
 bbdb-save-db-timeout nil
 bbdb-send-mail-style nil
 bbdb-silent-running nil
 bbdb-snarf-web-prop 'www
 bbdb-sound-files ["/usr/demo/SOUND/sounds/touchtone.0.au" 
"/usr/demo/SOUND/sounds/touchtone.1.au" "/usr/demo/SOUND/sounds/touchtone.2.au" 
"/usr/demo/SOUND/sounds/touchtone.3.au" "/usr/demo/SOUND/sounds/touchtone.4.au" 
"/usr/demo/SOUND/sounds/touchtone.5.au" "/usr/demo/SOUND/sounds/touchtone.6.au" 
"/usr/demo/SOUND/sounds/touchtone.7.au" "/usr/demo/SOUND/sounds/touchtone.8.au" 
"/usr/demo/SOUND/sounds/touchtone.9.au" "/usr/demo/SOUND/sounds/touchtone.pound.au" 
"/usr/demo/SOUND/sounds/touchtone.star.au"]
 bbdb-sound-player "/usr/demo/SOUND/play"
 bbdb-time-display-format "%d %b %Y"
 bbdb-update-records-mode 'annotating
 bbdb-use-alternate-names t
 bbdb-use-pop-up nil
 bbdb-user-mail-names nil
 bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
 bbdb/mail-auto-create-p nil
 bbdb/news-auto-create-p nil
 bbdb/vm-set-auto-folder-alist-field 'vm-folder
 features '(reporter view gnus gnus-ems wid-edit advice advice-preload
            mh-identity mh-comp mh-utils executable hl-line mm-view mm-decode
            mm-bodies mm-encode mailcap mail-parse rfc2045 rfc2231 rfc2047 qp
            ietf-drums mh-customize mh-loaddefs tool-bar jit-lock font-lock
            regexp-opt gnus-util netrc time-date parse-time nnheader mm-util
            mule-util mail-prsvr mail-utils mh-inc mh-e goto-addr thingatpt
            gnus-config mh-config mailcrypt bbdb-autoloads bbdb-snarf
            mail-extr rfc822 bbdb-com mailabbrev sendmail bbdb timezone time
            image jka-compr rpm-spec-mode python-mode easymenu cl cl-19 comint
            ring disp-table egg-util ediff-hook vc-hooks lisp-float-type
            lisp-mode page menu-bar timer select scroll-bar mldrag mouse
            facemenu faces cus-face frame misc-lang vietnamese tibetan thai
            lao korean japanese hebrew greek romanian slovak czech european
            ethiopic devanagari indian cyrillic chinese case-table help
            overlay md5 base64 format mule env backquote custom widget
            x-toolkit)
 )




-------------------------------------------------------
This SF.Net email is sponsored by: INetU
Attention Web Developers & Consultants: Become An INetU Hosting Partner.
Refer Dedicated Servers. We Manage Them. You Get 10% Monthly Commission!
INetU Dedicated Managed Hosting http://www.inetu.net/partner/index.php
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to