I set bbdb-use-pop-up to nil (as you can see below) and yet when I
press TAB to complete a unique "To:" field in Gnus (Gnus v5.10.2) I
still get a bbdb buffer that pops up. When I set bbdb-use-pop-up to
nil I expected just that.
I therefore changed the following "if" statement in bbdb-com.el (line
2249) from the original:
---BEGIN PASTE OF ORIGINAL CODE---
;; Update the *BBDB* buffer if desired.
(if bbdb-completion-display-record
(let ((bbdb-gag-messages t))
(bbdb-display-records-1 match-recs t)))
(bbdb-complete-name-cleanup)))
---END PASTE OF ORIGINAL CODE---
To this version:
---BEGIN PASTE OF MY MODIFIED CODE---
;; Update the *BBDB* buffer if desired.
(if (and bbdb-completion-display-record ;; (and added ...
bbdb-use-pop-up) ;; check for pop-up added
(let ((bbdb-gag-messages t))
(bbdb-display-records-1 match-recs t)))
(bbdb-complete-name-cleanup)))
---END PASTE OF MY MODIFIED CODE---
Note that this means that the *Completions* buffer still appears
regardless of bbdb-use-pop-up, as should be. But if the completion is
unique and bbdb-use-pop-up is nil then the user does not get an
unwanted pop-up.
I noticed that this not the first time this exact issue has been
raised from this forum thread:
http://sourceforge.net/mailarchive/message.php?msg_id=9096118
Emacs : GNU Emacs 21.3.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2004-08-04 on jrwork.burla
Package: BBDB 2.34
current state:
==============
(setq
emacs-version "21.3.50.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 '(bbdb/gnus-score-invalidate-alist)
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 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 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 nil
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 t
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 '(bbdb-fontify-buffer)
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-message-marker-field 'mark-char
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 t
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 t
bbdb-user-mail-names nil
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-score-default nil
bbdb/gnus-score-field 'gnus-score
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp "^johnr$\\|[EMAIL
PROTECTED]([-a-z0-9]+\\.\\)*jrwork.burla$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-in-bbdb-format-letter "b"
bbdb/gnus-summary-known-poster-mark "+"
bbdb/gnus-summary-mark-known-posters t
bbdb/gnus-summary-prefer-bbdb-data t
bbdb/gnus-summary-prefer-real-names t
bbdb/gnus-summary-show-bbdb-names t
bbdb/gnus-summary-user-format-letter "B"
bbdb/gnus-update-records-mode 'annotating
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(mailalias sendmail reporter bbdb-gui byte-opt bytecomp byte-compile nnml
nndraft nnmh bbdb-gnus bbdb-snarf mail-extr bbdb-com gnus-agent gnus-srvr
gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 pgg
pgg-parse pgg-def mm-view gnus-sum gnus-group gnus-undo nntp nnoo nnmail
mail-source gnus-cache gnus-start gnus-spec gnus-int gnus-range message
rfc822 mml mml-sec mml-smime smime dig mm-decode mm-bodies mm-encode
mailcap
mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mailabbrev mailheader
canlock gnus-win gnus gnus-ems nnheader gnus-util netrc time-date
parse-time
mail-utils mm-util mule-util mail-prsvr jit-lock jka-compr site-lisp
lj-objs
ljupdate ljcustom lj-auto ljcompat doit-mode tex-site erc-nickserv
erc-autojoin erc-button erc-ring comint ring erc-pcomplete pcomplete
erc-track erc-match erc-fill erc-stamp erc-netsplit erc erc-compat
easy-mmode thingatpt pp format-spec font-lock syntax w3-auto w3m browse-url
ccl w3m-hist w3m-e21 w3m-fsf w3m-image w3m-proc w3m-util bbdb-autoloads
bbdb
timezone emms-info-ogg ogg-comment emms-info-mp3info emms-info emms-pbi
derived emms-player-simple emms-source-file locate advice help-fns
help-mode
view button advice-preload dired regexp-opt emms emms-default color-theme
easymenu wid-edit cl cl-19 avoid edmacro time tooltip image tool-bar mwheel
x-dnd fontset ediff-hook vc-hooks lisp-float-type lisp-mode register page
menu-bar timer select scroll-bar mldrag mouse facemenu font-core frame
ucs-tables georgian utf-8-lang misc-lang vietnamese tibetan thai lao korean
japanese hebrew greek romanian slovak czech european ethiopic kannada tamil
malayalam devanagari indian cyrillic chinese case-table help simple faces
cus-face text-properties overlay md5 base64 format mule env custom widget
backquote make-network-process x-toolkit)
)
-------------------------------------------------------
SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
