Hi,
(B
(BWhile trying to debug another problem I encountered some different
(Bproblems in BBDB. I am using a fairly recent version from CVS.
(B
(B(1) When I edit a field and make no changes (even though I hit enter
(B from the field, there are no physical changes to the record - to
(B reproduce this, just hit e on any field and then just hit enter to
(B accept whatever is there), the bbdb state is deemed modified. This
(B should not be the case.
(B
(B(2) This happens only the first time after starting emacs. Here's a
(B way to reproduce it. Set debug-on-quit to t. Then save the bbdb. I
(B get prompted with the coding-system to be used to save it. At this
(B point, the buffer is already marked saved (i.e. there are no ** in
(B the BBDB modeline). I then hit C-g which puts me into the
(B debugger. Then I quit that using q. The file is not saved, but
(B BBDB shows that it is. I realize that this coding-system stuff
(B could be caused because of something in my BBDB and so, here's a
(B backtrace. BTW, how do I identify what characters/records in my
(B BBDB are causing this to be triggered? As far as I know, I don't
(B think I have any "special" characters except for the record of
(B "Kai Gro,A_(Bjohann" which has the ,A_(B in the name.
(B
(BThanks,
(BSridhar
(B
(B--
(B completing-read("Select coding system (default utf-8): " (("utf-8") ("raw-text")
(B("emacs-mule") ("no-conversion")) nil t nil nil "utf-8")
(B byte-code("Ɛq cT c\n;, \nGV' \nˁO( \ńc` ρ
(B \"c\f`\"*
(B:Q Ӂ
(B@\"ՁQR c
(B:] ^ فځ` ρ\"\"c\f`\"+
(B:
(B@\"B\"ρ\"\" #݁Ӂ\"@\"#߁߉#@@& $$!%*߇" [standard-output
(Bdefault-coding-system from fill-prefix pos coding-system "*Warning*" "No default
(Bcoding systems to try." "These default coding systems were tried" " to encode \"" 10 0
(B"...\"" ":\n" " " mapcar #[(x) "[EMAIL PROTECTED]" [x princ " "] 2] "\n"
(Bfill-region-as-paragraph format "%s safely encodes the target text,\n" "but it is not
(Brecommended for encoding text in this context,\n" "e.g., for sending an email
(Bmessage.\n" "However, none of them safely encodes the target text.\n" "\nSelect the
(Babove, or " "\nSelect " "one of the following safe coding systems:\n" #[(x)
(B"!!" [x princ " "] 2] #[(x) "!C" [x symbol-name] 2] completing-read
(B"Select coding system (default %s): " nil t intern codings safe-names name
(Blast-coding-system-specified] 9)
(B select-safe-coding-system(1 332109 iso-2022-7bit-unix)
(B write-region(1 332109 "g:/Home/.bbdb" nil t "~/.bbdb")
(B basic-save-buffer-2()
(B basic-save-buffer-1()
(B basic-save-buffer()
(B save-buffer()
(B #[(buffer) "q " [buffer save-buffer] 1](#<buffer .bbdb>)
(B map-y-or-n-p(#[(buffer) "!P !?P !% P q\nP VP
(B!5 rq )P ; ˇ!J ́́!\"́!\"" [buffer pred
(Bbuffer-offer-save arg queried buffer-modified-p buffer-base-buffer buffer-file-name
(Bbuffer-size 0 functionp t format "Save file %s? " "Save buffer %s? " buffer-name] 4]
(B#[(buffer) "q " [buffer save-buffer] 1] (#<buffer *scratch*> #<buffer
(B*Minibuf-1*> #<buffer *BBDB*> #<buffer *vm-nonexistent-summary*> #<buffer
(B*Minibuf-0*> #<buffer *Messages*> #<buffer *Echo Area 0*> #<buffer *Echo Area 1*>
(B#<buffer *JCB Packages*> #<buffer *JCB Classes*> #<buffer *JCB Methods*> #<buffer *JCB
(BHistory*> #<buffer *Compile-Log*> #<buffer .bbdb> #<buffer *canonical address*>
(B#<buffer *extract address components*> #<buffer *split*> #<buffer *Group*>)
(B("buffer" "buffers" "save") ((18 #[... "\" ć" [buf view-buffer #[... " "
(B[exit-recursive-edit] 1] recursive-edit nil] 3] "display the current buffer")))
(B byte-code("ǁȁɁ ˁ́́EC%\n1 1 \f* \n=* Ёс
(B\"!. Ӂ! E VE E ց!+" [queried files-done save-abbrevs
(Babbrevs-changed arg abbrev-file-name nil map-y-or-n-p #[(buffer)
(B"!P !?P !% P q\nP VP !5 rq
(B)P ; ˇ!J ́́!\"́!\"" [buffer pred buffer-offer-save arg
(Bqueried buffer-modified-p buffer-base-buffer buffer-file-name buffer-size 0 functionp
(Bt format "Save file %s? " "Save buffer %s? " buffer-name] 4] #[(buffer) "q "
(B[buffer save-buffer] 1] buffer-list ("buffer" "buffers" "save") 18 #[(buf) "\"
(Bć" [buf view-buffer #[... " " [exit-recursive-edit] 1] recursive-edit nil] 3]
(B"display the current buffer" silently y-or-n-p format "Save abbrevs in %s? "
(Bwrite-abbrev-file t 0 message "(No files need saving)" abbrevs-done] 8)
(B save-some-buffers(nil)
(B* call-interactively(save-some-buffers)
(B--
(B
(BEmacs : GNU Emacs 21.2.95.1 (i386-msvc-nt5.1.2600)
(B of 2003-01-30 on buffy
(BPackage: BBDB 2.35
(B
(Bcurrent state:
(B==============
(B(setq
(B emacs-version "21.2.95.1"
(B bbdb-version-date "$Date: 2003/03/07 23:25:51 $"
(B bbdb-file-format 6
(B bbdb-no-duplicates-p nil
(B bbdb-address-editing-function 'bbdb-address-edit-default
(B bbdb-address-formatting-alist '((bbdb-address-is-continental .
(B bbdb-format-address-continental)
(B (nil . bbdb-format-address-default))
(B bbdb-addresses-label-list '("Home" "Office" "Mobile" "Other" "address" "home"
(B "School" "Work" "Home - India" "Old Home")
(B bbdb-after-change-hook nil
(B bbdb-after-read-db-hook nil
(B bbdb-always-add-addresses nil
(B bbdb-auto-notes-alist '(("user-agent" (".*" interface 0 t))
(B ("x-mailer" (".*" interface 0 t))
(B ("x-newsreader" (".*" interface 0 t))
(B ("x-now-playing" (".*" playlist 0))
(B ("newsgroups" ("\\([^,]*\\),?" posted-to "\\1" t))
(B ("xref" ("\\b[^ ]+:[0-9]+.*" seen-in 0)))
(B bbdb-auto-notes-ignore nil
(B bbdb-auto-notes-ignore-all nil
(B bbdb-auto-revert-p nil
(B bbdb-canonical-hosts
(B"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"
(B bbdb-canonicalize-net-hook nil
(B bbdb-canonicalize-redundant-nets-p t
(B bbdb-case-fold-search t
(B bbdb-change-hook 'bbdb-timestamp-hook
(B bbdb-check-zip-codes-p t
(B bbdb-complete-name-allow-cycling t
(B bbdb-complete-name-hooks '(ding)
(B bbdb-completion-display-record t
(B bbdb-completion-type nil
(B bbdb-continental-zip-regexp "^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]"
(B bbdb-create-hook 'bbdb-creation-date-hook
(B bbdb-default-area-code nil
(B bbdb-default-country "USA"
(B bbdb-default-domain nil
(B bbdb-default-label-list '("Home" "Office" "Mobile" "Other")
(B bbdb-define-all-aliases-field 'mail-alias
(B bbdb-define-all-aliases-mode 'first
(B bbdb-dial-local-prefix nil
(B bbdb-dial-local-prefix-alist '(((if (integerp bbdb-default-area-code)
(B (format "(%03d)" bbdb-default-area-code)
(B (or bbdb-default-area-code ""))
(B "")
(B )
(B bbdb-dial-long-distance-prefix nil
(B bbdb-display-layout 'multi-line
(B bbdb-display-layout-alist '((one-line (order phones mail-alias net notes)
(B (name-end . 24) (toggle . t))
(B (multi-line (omit creation-date timestamp)
(B (toggle . t))
(B (pop-up-multi-line) (full-multi-line))
(B bbdb-dwim-net-address-allow-redundancy t
(B bbdb-electric-p nil
(B bbdb-expand-mail-aliases t
(B bbdb-extract-address-component-handler nil
(B bbdb-extract-address-component-ignore-regexp
(B"\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input"
(B bbdb-extract-address-component-regexps '(("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
(B (car
(B
(B
(B(mail-extract-address-components
(B
(B
(B
(B(concat
(B
(B
(B
(B
(B
(B
(B "\""
(B
(B
(B
(B
(B
(B
(B (match-string 1 adstring)
(B
(B
(B
(B
(B
(B
(B "\"")
(B
(B
(B )
(B
(B )
(B 2)
(B ("\\([^<>, ][^<>,]+[^<>,
(B]\\)\\s-*<\\([^>]+\\)>" 1 2)
(B ("<\\([^>,]+\\)>" nil 1)
(B ("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
(B (car
(B
(B
(B(mail-extract-address-components
(B
(B
(B
(B
(B
(B (concat
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B "\""
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B (match-string 2 adstring)
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B "\"")
(B
(B
(B
(B
(B
(B )
(B
(B
(B)
(B 1)
(B ("\\b\\(\\([^@ \n.]+\\.[^@
(B\n.]+\\)@[^@ \n]+\\)\\b"
(B (car
(B
(B
(B (mail-extract-address-components
(B
(B
(B
(B
(B
(B (concat
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B "\""
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B (match-string 2 adstring)
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B
(B "\"")
(B
(B
(B
(B
(B
(B )
(B
(B
(B )
(B 1)
(B ("\\b\\(\\([^@ \n]+\\)@[^@
(B\n]+\\)\\b" nil 1)
(B ("\\b\\([^@ \n]+\\)\\b" nil 1))
(B bbdb-extract-address-components-func 'bbdb-rfc822-addresses
(B bbdb-file "~/.bbdb"
(B bbdb-file-remote nil
(B bbdb-file-remote-save-always t
(B bbdb-finger-buffer-name "*finger*"
(B bbdb-finger-host-field 'finger-host
(B bbdb-get-addresses-headers '((authors "From" "Resent-From" "Reply-To")
(B (recipients "Resent-To" "Resent-CC" "To" "CC"
(B "BCC")
(B )
(B bbdb-get-only-first-address-p t
(B bbdb-gui t
(B bbdb-hashtable-size 1021
(B bbdb-ignore-most-messages-alist nil
(B bbdb-ignore-selected-messages-confirmation nil
(B bbdb-ignore-some-messages-alist nil
(B bbdb-info-file nil
(B bbdb-initialize-hook nil
(B bbdb-legal-zip-codes '("^$"
(B "^[ \n]*[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[ \n]*$"
(B"^[ \n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \n]*-?[
(B\n]*\\([0-9][0-9][0-9][0-9]?\\)[ \n]*$" "^[ \n]*\\([A-Za-z0-9]+\\)[
(B \n]+\\([A-Za-z0-9]+\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
(B \n]*\\([0-9]+ ?[A-Z]*\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
(B \n]*\\([0-9]+\\)[ \n]+\\([0-9]+\\)[ \n]*$")
(B bbdb-list-hook nil
(B bbdb-load-hook nil
(B bbdb-message-caching-enabled t
(B bbdb-mode-hook nil
(B bbdb-modem-device "/dev/modem"
(B bbdb-modem-dial nil
(B bbdb-new-nets-always-primary nil
(B bbdb-north-american-phone-numbers-p nil
(B bbdb-notes-default-separator ", "
(B bbdb-notes-sort-order '((notes . 0) (www . 1) (ftp . 2) (gopher . 3)
(B (telnet . 4) (mail-alias . 5) (mail-folder . 6)
(B (lpr . 7) (creation-date . 1000) (timestamp . 1001))
(B bbdb-notice-auto-save-file t
(B bbdb-notice-hook nil
(B bbdb-offer-save 'savenoprompt
(B bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "FAX" "Phone" "Fax"
(B "Toll Free" "home" "Pager" "phone" "Cell" "Work"
(B "School" "Alternate" "Ph" "Vidya's Office"
(B "Checking" "ABA" "Direct" "Office 2" "Fax:" "Tel"
(B "Office FAX" "Main Number" "fax" "Home - India"
(B "Old Home" "Evening" "India Home" "Telephone" "tel."
(B "or" "Lab" "Member #" "Savings")
(B bbdb-pop-up-display-layout 'pop-up-multi-line
(B bbdb-pop-up-target-lines 5
(B bbdb-quiet-about-name-mismatches nil
(B bbdb-readonly-p nil
(B bbdb-refile-notes-default-merge-function 'bbdb-refile-notes-default-merge-function
(B bbdb-refile-notes-generate-alist '((creation-date .
(B bbdb-refile-notes-string-least)
(B (timestamp . bbdb-refile-notes-string-most)
(B )
(B bbdb-save-db-timeout nil
(B bbdb-send-mail-style 'vm
(B bbdb-silent-running nil
(B bbdb-snarf-web-prop 'www
(B bbdb-sound-files ["/usr/demo/SOUND/sounds/touchtone.0.au"
(B"/usr/demo/SOUND/sounds/touchtone.1.au" "/usr/demo/SOUND/sounds/touchtone.2.au"
(B"/usr/demo/SOUND/sounds/touchtone.3.au" "/usr/demo/SOUND/sounds/touchtone.4.au"
(B"/usr/demo/SOUND/sounds/touchtone.5.au" "/usr/demo/SOUND/sounds/touchtone.6.au"
(B"/usr/demo/SOUND/sounds/touchtone.7.au" "/usr/demo/SOUND/sounds/touchtone.8.au"
(B"/usr/demo/SOUND/sounds/touchtone.9.au" "/usr/demo/SOUND/sounds/touchtone.pound.au"
(B"/usr/demo/SOUND/sounds/touchtone.star.au"]
(B bbdb-sound-player nil
(B bbdb-sound-volume 50
(B bbdb-time-display-format "%d %b %Y"
(B bbdb-update-records-mode 'annotating
(B bbdb-use-alternate-names t
(B bbdb-use-pop-up t
(B bbdb-user-mail-names nil
(B bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
(B bbdb/mail-auto-create-p nil
(B bbdb/news-auto-create-p nil
(B bbdb/vm-auto-add-label-field 'mail-alias
(B bbdb/vm-auto-add-label-list nil
(B bbdb/vm-set-auto-folder-alist-field 'vm-folder
(B bbdb/vm-set-auto-folder-alist-headers '("From:" "To:" "CC:")
(B bbdb/vm-update-records-mode '(if (vm-new-flag msg) (quote annotating)
(B (quote searching))
(B bbdb/vm-virtual-folder-alist-by-mail-alias-alist nil
(B features '(flyspell ispell reporter debug eieio-opt view bbdb-hooks gnus-art
(B mm-uu mm-view gnus-sum nnoo gnus-group gnus-undo nnmail
(B mail-source format-spec gnus-start gnus-spec gnus-int gnus-range
(B message mml mml-sec mml-smime smime dig mml1991 mml2015 pgg
(B pgg-parse pgg-def mm-decode mm-bodies mm-encode mailcap mail-parse
(B rfc2045 rfc2231 rfc2047 qp ietf-drums mailheader canlock gnus-win
(B gnus gnus-ems gnus-util netrc time-date parse-time nnheader
(B mm-util mail-prsvr bbdb-gui vm-grepmail vm-summary-faces
(B vm-rfaddons vm-ps-print ps-print lpr bbdb-vm vm-autoload
(B bbdb-snarf mail-extr rfc822 bbdb-com mailabbrev mabbrev-menu
(B mail-add-header tapestry vm-window vm-virtual vm-user vm-undo
(B vm-toolbar vm-thread vm-startup vm-summary vm-sort vm-search
(B vm-save vm-reply vm-page vm-mouse vm-motion vm-mime vm-message
(B vm-menu vm-mark vm-license vm-imap vm-folder vm-edit vm-easymenu
(B vm-digest vm-delete vm-crypto lazy-lock fast-lock jka-compr-ccrypt
(B tex-site tex-mik ruler-mode byte-opt bytecomp byte-compile ishl
(B color-theme htmlize recentf eol-conversion bbdb-autoloads bbdb xae
(B psgml-other sgml-mode psgml jde-jcb jde-jcb-layout jde-jcb-buffer
(B semantic-c semantic-el jde-stack jjar javadecomp jsee jmaker pcvs
(B pcvs-parse pcvs-info pcvs-defs easy-mmode pcvs-util ewoc html-mode
(B jsp-html-helper-mode asp-html-helper-mode php-html-helper-mode
(B html-helper-mode jde jde-open-source senator jde-ant executable
(B jde-package jde-import jde-which-method jde-stat jde-javadoc
(B jde-javadoc-gen jde-java-font-lock jde-java-grammar jde-wiz
(B jde-complete browse-url jde-gen tempo jde-make compile jde-run
(B jde-jdb jde-bug jde-dbs jde-dbo jde-db jde-parse jde-imenu
(B mule-util semantic-imenu semantic-java thingatpt avltree stack-m
(B elib-node semantic-ctxt semantic-bnf semantic-sb speedbar sb-image
(B dframe semantic-util-modes semantic-util semantic assoc working
(B jde-compile comint ring cus-edit cus-start cus-load cc-mode
(B cc-cmds cc-styles cc-align cc-engine cc-langs cc-vars cc-menus
(B cc-defs derived semantic-load jde-help jde-util jde-widgets
(B tree-widget efc wid-edit beanshell eieio advice advice-preload cl
(B cl-19 rsz-mini filladapt gnuserv time image timezone calendar
(B cal-menu easymenu which-func imenu paren esmtpmail vm-minibuf
(B vm-pop vm-misc vm-vars vm-macro vm-version vm time-stamp sendmail
(B mail-utils jit-lock font-lock regexp-opt fontset ediff-hook
(B vc-hooks lisp-float-type dos-w32 disp-table ls-lisp lisp-mode page
(B menu-bar timer select scroll-bar mldrag mouse facemenu faces
(B cus-face frame ucs-tables misc-lang vietnamese tibetan thai lao
(B korean japanese hebrew greek romanian slovak czech european
(B ethiopic devanagari indian cyrillic chinese case-table help
(B overlay md5 base64 format mule env backquote custom widget)
(B )
(B
(B
(B
(B--
(BSridhar Boovaraghavan
(B[EMAIL PROTECTED]
(Bhttp://www.geocities.com/sridhar_ml/ą^){([*ezx ^gr)jwkzz(额
(B bݶzyez#vmv( ~zw"n)b-[ak
(B4Wm[w+-.ǟ alb,y+b?+-wn)ߠCz&xzmmy+
