With MH-E 7.4 and BBDB 2.34, bbdb-force-record-create needs to be
adjusted in two ways:
* Messages summaries are displayed in mh-folder-mode, so that mode needs
to be added to the major-mode list being checked, and
* The function to call if the major-mode matches is
bbdb/mh-pop-up-bbdb-buffer, not bbdb/gnus-pop-up-buffer.
Here's a patch that WFM:
diff -u /usr/local/lib/xemacs/xemacs-packages/lisp/bbdb/bbdb-hooks.el /tmp/foo.el
--- /usr/local/lib/xemacs/xemacs-packages/lisp/bbdb/bbdb-hooks.el 2002-02-12
14:56:38.000000000 -0800
+++ /tmp/foo.el 2003-07-22 11:47:46.000000000 -0700
@@ -691,8 +691,8 @@
(bbdb/gnus-pop-up-bbdb-buffer))
((member major-mode '(rmail-mode rmail-summary-mode))
(bbdb/rmail-pop-up-bbdb-buffer))
- ((member major-mode '(mhe-mode mhe-summary-mode))
- (bbdb/gnus-pop-up-bbdb-buffer))
+ ((member major-mode '(mhe-mode mhe-summary-mode mh-folder-mode))
+ (bbdb/mh-pop-up-bbdb-buffer))
))))
(provide 'bbdb-hooks)
--- Vladimir
------------------------------------------------------------------------
Vladimir G. Ivanovic http://leonora.org/~vladimir
2770 Cowper St. [EMAIL PROTECTED]
Palo Alto, CA 94306-2447 +1 650 678 8014
Emacs : XEmacs 21.4 (patch 13) "Rational FORTRAN" [Lucid] (i686-pc-linux) of Thu Jul
10 2003 on bach.leonora.org
Package: MH-E: 7.4
Package: BBDB 2.34
current state:
==============
(setq
emacs-version "21.4 (patch 13) \"Rational FORTRAN\" XEmacs Lucid"
bbdb-version-date "$Date: 2002/02/12 22:56:39 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
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-notes-alist 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-completion-display-record t
bbdb-completion-type nil
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code 650
bbdb-default-country "USA"
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-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
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-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-list-hook '(bbdb-fontify-buffer)
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-mode-hook 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 nil
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-use-alternate-names t
bbdb-user-mail-names "\\bvladimir\\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 view-less view ebuff-menu electric find-func hyper-apropos
bbdb-hooks bbdb-gui efs-cu overlay mh-mime mh-gnus smiley
annotations bbdb-mhe bbdb-com font disp-table paren blink-paren
blink-cursor vc vc-hooks tags etags skeleton shell-font psgml-parse
psgml-xemacs psgml-sysdep sgml-mode psgml pending-del edmacro
byte-optimize bytecomp byte-compile advice advice-preload
multi-prompt mh-seq mh-xemacs-compat mh-identity mh-comp regexp-opt
mh-xemacs-icons mh-utils gnus-cite gnus-art mm-uu mml2015 pgg
pgg-parse pgg-def gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source format-spec gnus-start gnus-spec gnus-int gnus-range
message mml mml-sec mml-smime smime dig mail-abbrevs mailheader
canlock gnus-win sendmail rfc822 executable mm-view mm-decode
mm-bodies mm-encode mailcap lpr mail-parse rfc2045 rfc2231 rfc2047
qp ietf-drums mh-customize mh-loaddefs mh-inc mh-e
highlight-headers jka-compr gnuserv gnus gnus-ems gnus-xmas
messagexmas nnheader nnheaderxm gnus-util netrc time-date
parse-time mail-utils mm-util mail-prsvr wid-edit fshell shell
comint ring font-lock flyspell ispell x-compose browse-url-xemacs
supercite mail-extr regi bbdb timezone tex-site time cus-face
rsz-minibuf zenirc-autoloads xslt-process-autoloads
xslide-autoloads xemacs-devel-autoloads xemacs-base-autoloads
w3-autoloads vm-autoloads viper-autoloads view-process-autoloads
vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads
tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads
supercite-autoloads strokes-autoloads speedbar-autoloads
sounds-wav-autoloads sounds-au-autoloads sml-mode-autoloads
slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads
semantic-autoloads scheme-autoloads sasl-autoloads
ruby-modes-autoloads rmail-autoloads reftex-autoloads
python-modes-autoloads psgml-dtds-autoloads psgml-autoloads
ps-print-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads
pc-autoloads os-utils-autoloads ocaml-autoloads net-utils-autoloads
mmm-mode-autoloads misc-games-autoloads mine-autoloads
mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads
liece-autoloads jde-autoloads ispell-autoloads ilisp-autoloads
igrep-autoloads idlwave-autoloads ibuffer-autoloads
hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads
gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads fortran-modes-autoloads forms-autoloads
footnote-autoloads eudc-autoloads eterm-autoloads ess-autoloads
eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads
efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads
edebug-autoloads ecrypto-autoloads ecb-autoloads
docbookide-autoloads dired-autoloads dictionary-autoloads
debug-autoloads crisp-autoloads cookie-autoloads
clearcase-autoloads cc-mode-autoloads calendar-autoloads
calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads
auctex-autoloads apel-autoloads ada-autoloads Sun-autoloads
lisp-autoloads loadhist auto-show fontl-hooks x-iso8859-1 code-cmds
gutter-items menubar-items x-menubar mode-motion mouse itimer
auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete
help-nomule cus-file derived frame text-props obsolete cus-start
custom widget cl-extra mini-cl cl cl-19 packages backquote
very-early-lisp postgresqlv7 postgresql file-coding
lucid-scrollbars cut-buffer lucid-menubars motif-dialogs x
c-balloon-help tty-frames tty toolbar native-sound scrollbar
unix-processes multicast network-streams subprocesses modules
menu-accelerator-support menubar berkeley-db md5 xemacs gutter tiff
png gif jpeg xpm xbm lisp-float-type linux dialog devices
window-system base64)
)
-------------------------------------------------------
This SF.net email is sponsored by: VM Ware
With VMware you can run multiple operating systems on a single machine.
WITHOUT REBOOTING! Mix Linux / Windows / Novell virtual machines at the
same time. Free trial click here: http://www.vmware.com/wl/offer/345/0
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
