When I make changes to bbdb and attempt to save the file, I get the following
error:

Selected encoding raw-text-unix disagrees with iso-2022-7bit-unix specified by
file contents.  Really save (else edit coding cookies and try again)? (yes or
no)

The top of the .bbdb file has the two lines

    ;; -*-coding: iso-2022-7bit;-*-
    ;;; file-version: 6

I may have added the first line myself at some point, I don't remember.

I've tried deleting the first line and restarting but it seems to reappear
again.


The second problem:  I've had to add the following to my .gnus:

    (remove-hook 'message-setup-hook 'bbdb-insinuate-sendmail)

Otherwise, when I attempt to reply or forward an email in Gnus, I get an error
that mail-mode-hook is not found.

Looking at settings below, it appears that some of them were set when I
attempted to forward some spam to our spam-filter service.

-- Ted

Emacs  : GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-03-12 on stacias.wc.cray.com
Package: BBDB 2.35

current state:
==============
(setq
 emacs-version "22.0.50.1"
 bbdb-version-date "$Date: 2005/02/22 13:28:22 $"
 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" "W" "Work" "H"
                             "address")
 bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
 bbdb-after-read-db-hook nil
 bbdb-always-add-addresses 'ask
 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 '(spam-clear-cache-BBDB bbdb-timestamp-hook)
 bbdb-check-zip-codes-p t
 bbdb-complete-name-allow-cycling t
 bbdb-complete-name-hooks nil
 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-define-all-aliases-mode 'all
 bbdb-dial-local-prefix nil
 bbdb-dial-local-prefix-alist '(((if (integerp bbdb-default-area-code)
                                  (format "(%03d)" bbdb-default-area-code)
                                  (or bbdb-default-area-code ""))
                                 "")
                                )
 bbdb-dial-long-distance-prefix nil
 bbdb-display-layout 'multi-line
 bbdb-display-layout-alist '((one-line (order phones mail-alias net notes)
                              (name-end . 24) (toggle . t))
                             (multi-line (omit creation-date timestamp)
                              (toggle . t))
                             (pop-up-multi-line) (full-multi-line))
 bbdb-dwim-net-address-allow-redundancy t
 bbdb-electric-p 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 1)
                                          
("\\(\\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-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-lastname-prefixes '("von" "Von" "de" "De")
 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-mail-abbrev-expand-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-multiple-buffers nil
 bbdb-new-nets-always-primary nil
 bbdb-north-american-phone-numbers-p nil
 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 '(bbdb-auto-notes-hook)
 bbdb-offer-save 'auto
 bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "W" "Work" "Fax" "F"
                          "C" "Days" "Home Office" "H" "Lab" "H/W" "Cell"
                          "home1" "home2" "Direct" "Main" "Marsha" "Bill" "FAX"
                          "HFAX" "Dept" "New")
 bbdb-pop-up-display-layout 'pop-up-multi-line
 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 'compose-mail
 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 nil
 bbdb-sound-volume 50
 bbdb-sounds-directory "/users/stern/.xemacs/etc/sounds"
 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 "\\bstern\\b"
 bbdb-user-menu-commands 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 "^stern$\\|[EMAIL 
PROTECTED]([-a-z0-9]+\\.\\)*cray.com$"
 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
 bbdb/vm-set-auto-folder-alist-headers '("From:" "To:" "CC:")
 features '(sendmail reporter thingatpt newcomment tc warnings flow-fill
            w3m-form w3m-symbol w3m w3m-hist w3m-e21 w3m-ccl ccl w3m-fsf
            w3m-favicon w3m-image w3m-proc w3m-util pp debug flyspell ispell
            bbdb-gui bbdb-hooks gnus-cite ansi-color gnus-async gnus-bcklg sort
            gnus-dup gnus-ml lazy-lock gnus-topic utf7 encrypt nnimap imap
            trace time-stamp byte-opt bytecomp byte-compile nnfolder nndraft
            nnmh nnnil gnus-agent gnus-srvr gnus-score score-mode nnvirtual
            nntp gnus-cache spam-report spam spam-stat hashcash gnus-uu
            gnus-msg boxquote rect gnus-diary nndiary my-setup-gnus
            bbdb-reportmail reportmail bbdb-gnus gnus-art mm-uu mml2015 pgg
            pgg-parse pgg-def mm-view gnus-sum nnoo gnus-group gnus-undo nnmail
            mail-source gnus-start gnus-spec gnus-int gnus-range gnus-win gnus
            gnus-ems wid-edit bbdb-snarf mail-extr bbdb-com gnus-setup message
            rfc822 mml mml-sec mml-smime smime smime-ldap ldap dig mm-decode
            mm-bodies mm-encode mailcap mail-parse rfc2045 rfc2231 rfc2047 qp
            ietf-drums mailabbrev nnheader gnus-util netrc time-date parse-time
            mm-util mail-prsvr mail-utils mailheader canlock sha1 hex-util
            gnus-load bbdb-autoloads bbdb timezone vcard paren imenu
            gnuserv-compat gnuserv devices dired-x dired-aux dired font-latex
            tex-site saveplace psvn cl cl-19 easymenu simple-wiki derived
            font-lock syntax rsz-mini browse-url my-setup-html
            my-setup-font-lock edmacro kmacro uniquify tramp-smb tramp-ftp
            tramp regexp-opt executable advice help-fns help-mode view button
            advice-preload shell comint ring password format-spec trampver
            jka-compr time latin-1 disp-table 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)
 )


Debugger entered--Lisp error: (void-variable mail-mode-map)
  bbdb-insinuate-sendmail()
  run-hooks(message-setup-hook)
  message-setup-1(((To . "") (Subject . "[lizbeth baker] Similar loans vanish 
with our help")) nil nil)
  message-setup(((To . "") (Subject . "[lizbeth baker] Similar loans vanish 
with our help")) nil nil)
  message-mail(nil "[lizbeth baker] Similar loans vanish with our help")
  message-forward(nil)
  ad-Orig-gnus-summary-mail-forward(nil nil)
  (setq ad-return-value (ad-Orig-gnus-summary-mail-forward prefix post))
  (let ((message-signature nil) (message-forward-ignored-headers ...)) (setq 
ad-return-value (ad-Orig-gnus-summary-mail-forward prefix post)))
  (let (ad-return-value) (let (... ...) (setq ad-return-value ...)) 
ad-return-value)
  gnus-summary-mail-forward(nil)
  fwd-to-postini()
  call-interactively(fwd-to-postini)


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to