: $ cvs diff bbdb-com.el
Index: bbdb-com.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v
retrieving revision 1.150
diff -I\$[A-Za-z]*:.*\$ -u -w -r1.150 bbdb-com.el
--- bbdb-com.el 12 May 2002 22:17:03 -0000      1.150
+++ bbdb-com.el 7 Jun 2002 00:06:01 -0000
@@ -2646,7 +2646,7 @@
           (if use-abbrev-p
               (define-mail-abbrev alias expansion)
             (define-mail-alias alias expansion))
-          (setq alias (or (intern-soft alias
+          (setq alias (or (intern-soft (downcase alias)
                                        (if use-abbrev-p
                                            mail-abbrevs mail-aliases))
                           (error "couldn't find the alias we just defined!")))


Emacs  : XEmacs 21.4 (patch 8) "Honest Recruiter (Windows [2])" [Lucid] 
(i686-pc-cygwin, Mule) of Tue Jun  4 2002 on ANDRE
Package: BBDB 2.35

current state:
==============
(setq
 emacs-version "21.4 (patch 8) \"Honest Recruiter (Windows [2])\" XEmacs Lucid"
 bbdb-version-date "$Date: 2002/05/12 22:17:04 $"
 bbdb-file-format 6
 bbdb-no-duplicates-p nil
 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 t
 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 nil
 bbdb-completion-type 'primary-or-name
 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 'first
 bbdb-display-layout nil
 bbdb-display-layout-alist '((one-line (order phones mail-alias net notes)
                              (name-end . 24) (toggle . t)
                              (omit last-access permanent))
                             (multi-line
                              (omit creation-date timestamp last-access)
                              (toggle . t))
                             (full-multi-line)
                             (pop-up-multi-line (omit last-access permanent)))
 bbdb-dwim-net-address-allow-redundancy t
 bbdb-electric-p 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-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 nil
 bbdb-load-hook nil
 bbdb-message-caching-enabled t
 bbdb-message-marker-field 'mark-char
 bbdb-mode-hook nil
 bbdb-new-nets-always-primary 'never
 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 '(bbdb-expire-make-permanent
                    bbdb-expire-update-last-access-time)
 bbdb-offer-save 'savenoprompt
 bbdb-phones-label-list '("Home" "Office" "Mobile" "Other")
 bbdb-pop-up-display-layout 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 '((last-access .
                                     bbdb-refile-notes-string-most)
                                    (permanent . bbdb-refile-notes-string-most)
                                    (creation-date .
                                     bbdb-refile-notes-string-least)
                                    (timestamp . bbdb-refile-notes-string-most)
                                    )
 bbdb-save-db-timeout nil
 bbdb-send-mail-style 'message
 bbdb-silent-running nil
 bbdb-use-alternate-names t
 bbdb-user-mail-names nil
 bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
 bbdb/gnus-lines-and-from-length 18
 bbdb/gnus-split-crosspost-default nil
 bbdb/gnus-split-default-group "mail.misc"
 bbdb/gnus-split-myaddr-regexp 
"^andre$\\|^andre@\\([-a-z0-9]+\\.\\)*slamdunknetworks.com$"
 bbdb/gnus-split-nomatch-function nil
 bbdb/gnus-split-private-field 'gnus-private
 bbdb/gnus-split-public-field 'gnus-public
 bbdb/gnus-summary-mark-known-posters t
 bbdb/gnus-summary-show-bbdb-names t
 bbdb/mail-auto-create-p t
 bbdb/news-auto-create-p t
 bbdb/vm-set-auto-folder-alist-field 'vm-folder
 features '(font-lock reporter bbdb-gui electric gnus-cite smiley annotations
            gnus-dup sort gnus-async gnus-score score-mode gnus-topic gnus-ml
            gnus-msg nndraft nnmh gnus-cache utf7 imap byte-optimize bytecomp
            byte-compile bbdb-gnus gnus-art mm-uu mm-view gnus-sum gnus-group
            gnus-undo bbdb-snarf mail-extr nnml nnmail mail-source nntp nnoo
            gnus-start message mml mml-sec mml-smime smime dig mml1991 mml2015
            mailcrypt mm-decode mm-bodies mm-encode mailcap mail-parse rfc2045
            rfc2231 rfc2047 qp ietf-drums mailheader canlock gnus-range
            gnus-spec gnus-int gnus-win gnus gnus-ems gnus-xmas messagexmas
            gnus-util netrc nnheader nnheaderxm mm-util mail-prsvr feedmail
            smtpmail time-stamp smtp mail-utils pcustom bbdb-expire time-date
            bbdb-hooks semantic-util-modes semantic-util semantic working
            assoc w3m-form w3m parse-time browse-url font disp-table wid-edit
            w3m-hist w3m-xmas pccl pccl-20 poem poem-xm pces pces-xfc pces-20
            broken pces-xm path-util poe-xemacs overlay poe w3m-macro efs-cu
            bbdb-com mail-abbrevs bbdb timezone pym static apel-ver product
            diminish gnuserv igrep sendmail rfc822 dired-faces dired-xemacs
            dired blink-cursor local-funcs alf-create-sep alf-word-at-point
            alf-sans local-advice crypt crypt++ crypt+pgp-pub tramp shell
            comint format-spec gnus-load cus-load newcomment bs webster19
            easy-mmode ring p4 paren mic-paren timer cus-face filladapt
            scroll-in-place dabbrev compile uniquify advice advice-preload
            xslt-process-autoloads xemacs-devel-autoloads
            xemacs-base-autoloads w3-autoloads view-process-autoloads
            vc-cc-autoloads vc-autoloads tramp-autoloads tooltalk-autoloads
            text-modes-autoloads texinfo-autoloads supercite-autoloads
            sounds-wav-autoloads sounds-au-autoloads slider-autoloads
            sh-script-autoloads sgml-autoloads psgml-autoloads
            ps-print-autoloads prog-modes-autoloads pcomplete-autoloads
            pcl-cvs-autoloads pc-autoloads os-utils-autoloads
            net-utils-autoloads mule-ucs-autoloads mule-base-autoloads
            mmm-mode-autoloads misc-games-autoloads mine-autoloads
            mailcrypt-autoloads mail-lib-autoloads latin-unity-autoloads
            ispell-autoloads ilisp-autoloads hm--html-menus-autoloads
            games-autoloads fsf-compat-autoloads frame-icon-autoloads
            eudc-autoloads eterm-autoloads eshell-autoloads emerge-autoloads
            elib-autoloads efs-autoloads edit-utils-autoloads ediff-autoloads
            edebug-autoloads dired-autoloads dictionary-autoloads
            debug-autoloads cookie-autoloads cc-mode-autoloads
            calendar-autoloads calc-autoloads c-support-autoloads
            bbdb-autoloads lisp-autoloads loadhist auto-show fontl-hooks
            x-iso8859-1 slovenian czech romanian ccl mule-help code-cmds
            gutter-items menubar-items x-menubar mode-motion mouse itimer
            auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete
            cus-file derived frame text-props obsolete cus-start custom widget
            cl-extra mini-cl cl cl-19 packages backquote very-early-lisp
            file-coding mule lucid-scrollbars cut-buffer lucid-menubars x
            c-balloon-help tty-frames tty toolbar scrollbar unix-processes
            multicast network-streams subprocesses modules
            menu-accelerator-support menubar dbm md5 xemacs xim gutter tiff
            png gif jpeg xpm xbm lisp-float-type cygwin32 devices
            window-system base64)
 )



_______________________________________________________________

Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm

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

Reply via email to