I've been playing with bbdb insinuation and flyspell both lately.
Interesting packages, both, but both of them try to bind `core'
functionality to [M-tab].  flyspell is part of emacs now, but bbdb is
a old and widely-used package, and the bbdb mapping is more intuitive
(bbdb-complete-name versus flyspell-auto-correct-word).  I'm not sure
which way, if either, should be corrected.

For myself, I've adopted the alternate solution of adding M-; as
bbdb-complete-name in mh-letter-mode-map; this matches other bbdb
idiom, and replaces the otherwise-unuseful comment-dwim.

I'm sending this to both bbdb and emacs-pretest bug lists in case the
relevant maintainers decide that discussion is warranted.  I would
personally suggest that the flyspell binding be replaced.


 diff -r1.59 bbdb-mhe.el
 223a224
 >   (define-key mh-letter-mode-map "\M-;" 'bbdb-complete-name)

chad

Emacs  : GNU Emacs 21.0.104.2 (i686-pc-linux-gnu, X toolkit)
 of 2001-07-13 on egon.jenwa.org
Package: BBDB 2.33

current state:
==============
(setq
 emacs-version "21.0.104.2"
 bbdb-version-date "$Date: 2001/08/03 21:51:00 $"
 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" "home" "Address" "work")
 bbdb-after-change-hook nil
 bbdb-after-read-db-hook nil
 bbdb-always-add-addresses t
 bbdb-auto-notes-alist nil
 bbdb-auto-notes-ignore nil
 bbdb-auto-notes-ignore-all nil
 bbdb-auto-revert-p nil
 bbdb-canonical-hosts 
"cs\\.cmu\\.edu\\|ri\\.cmu\\.edu\\|edrc\\.cmu\\.edu\\|andrew\\.cmu\\.edu\\|mcom\\.com\\|netscape\\.com\\|cenatls\\.cena\\.dgac\\.fr\\|cenaath\\.cena\\.dgac\\.fr\\|irit\\.fr\\|enseeiht\\.fr\\|inria\\.fr\\|cs\\.uiuc\\.edu\\|xemacs\\.org"
 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 nil
 bbdb-complete-name-full-completion 5
 bbdb-complete-name-hooks '(ding)
 bbdb-completion-display-record t
 bbdb-completion-type nil
 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 "617"
 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-fields-order nil
 bbdb-display-omit-fields '(creation-date timestamp)
 bbdb-dwim-net-address-allow-redundancy nil
 bbdb-electric-p nil
 bbdb-elided-display nil
 bbdb-elided-display-fields '(phones net aka)
 bbdb-elided-display-name-end 48
 bbdb-expand-mail-aliases t
 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-from-headers '("From" "Resent-From" "Reply-To")
 bbdb-get-addresses-headers '("From" "Resent-From" "Reply-To" "Resent-To" "Resent-CC" 
"To" "CC" "BCC")
 bbdb-get-addresses-to-headers '("Resent-To" "Resent-CC" "To" "CC" "BCC")
 bbdb-get-only-first-address-p nil
 bbdb-gui t
 bbdb-hashtable-size 1021
 bbdb-ignore-most-messages-alist nil
 bbdb-ignore-selected-messages-confirmation nil
 bbdb-ignore-some-messages-alist nil
 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 '(bbdb-fontify-buffer)
 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 t
 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 'no-dammit
 bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "work" "Work" "mobile")
 bbdb-pop-up-elided-display nil
 bbdb-pop-up-target-lines 3
 bbdb-quiet-about-name-mismatches t
 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-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 nil
 bbdb-use-pop-up t
 bbdb-user-mail-names "\\by\\b"
 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 byte-opt bytecomp byte-compile vc-cvs dired noutline outline 
easy-mmode mh-flists
            view shell comint ring newcomment debug bbdb-hooks mh-funcs flyspell 
ispell bbdb-gui
            mail-extr goto-addr thingatpt bbdb-mhe advice advice-preload mh-comp 
mail-utils bbdb-com
            mailabbrev sendmail hl-line server bbdb-autoloads windmove jit-lock 
font-lock mule-util
            regexp-opt image-file rsz-mini recentf wid-edit easymenu bbdb cl cl-19 
timezone webjump
            browse-url y-frame y-keybindings mh-utils mh-e y-mh-hacks y-hacks tooltip 
image tool-bar
            fontset 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)
 )


Debugger entered--Lisp error: (file-error "Opening directory" "no such file or 
directory" "/loca/")
  read-file-name-internal("/loca/pr" "~/" nil)
  minibuffer-complete()
  call-interactively(minibuffer-complete)
  call-interactively(find-file)

_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to