From xemacs-m  Fri Apr 25 18:54:24 1997
Received: from raiden.grainger.uiuc.edu (raiden.grainger.uiuc.edu [128.174.36.129])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA10272
	for <xemacs-beta@xemacs.org>; Fri, 25 Apr 1997 18:54:24 -0500 (CDT)
Received: from raiden.grainger.uiuc.edu (localhost [127.0.0.1])
	by raiden.grainger.uiuc.edu (8.8.5/8.8.5) with ESMTP id SAA04135
	for <xemacs-beta@xemacs.org>; Fri, 25 Apr 1997 18:54:31 -0500 (CDT)
Message-Id: <199704252354.SAA04135@raiden.grainger.uiuc.edu>
X-Mailer: exmh version 1.6.9 8/22/96
To: xemacs-beta@xemacs.org
X-uri: http://www.uiuc.edu/ph/www/bgross
From: Ben Gross <bgross@uiuc.edu>
Reply-to: Ben Gross <bgross@uiuc.edu>
Subject: Re: Updating BBDB 
References: <yvtu3kuivhs.fsf@corona.pixar.com>
In-reply-to: Your message of "25 Apr 1997 15:32:47 PDT."
             <yvtu3kuivhs.fsf@corona.pixar.com> 
	boundary="===_0_Fri_Apr_25_18:30:20_CDT_1997"
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="----- =_aaaaaaaaaa0"
Content-ID: <4130.862012469.0@raiden.grainger.uiuc.edu>
Date: Fri, 25 Apr 1997 18:54:31 -0500
Sender: bgross@uiuc.edu

------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <4130.862012469.1@raiden.grainger.uiuc.edu>

This is a multipart MIME message.

--===_0_Fri_Apr_25_18:30:20_CDT_1997
Content-Type: text/plain; charset=us-ascii

Hunter Kelly <retnuh@corona.pixar.com> wrote:
>So, since bbdb 1.51 isn't useable out of the box, it is time for an
>update.  I've talked to Jamie about this, and he is okay with it.
>
>Unfortunately, there isn't really a list of known bugs or problems.
>
>The only problem that I am currently aware of is the Gnus 5.x
>incompatibility, but from what I understand Brian Edmonds took care of
>this with gnus-bbdb.el.
>
>If anyone can think of serious problems with BBDB 1.51, please drop me
>some email so that I can address them and get a 1.52 released.

Hunter,

There are a few problems I can think of off the top of my head. I
have included a few patches I have sitting around to fix some of the
problems. BBDB is a great package, you will do the emacs community a
favor by updating it.

BBDB still looks for ange-ftp rather than efs.
BBDB can not deal with phone prefixes with a 1 or 0 in the middle.
BBDB's gnus support is ancient.
mail-extr.el and mail-abbrev.el have problems. There are patches, but it is 
just as easy to remove them since XEmacs includes newer version.



--
Ben Gross  Email: bgross@uiuc.edu  URL: http://www.uiuc.edu/ph/www/bgross


--===_0_Fri_Apr_25_18:30:20_CDT_1997
Content-Type: text/plain; charset=us-ascii
Content-Description: bbdb


First Jamie set up a bbdb homepage at:
http://home.netscape.com/people/jwz/bbdb/

There are a number of errors when using bbdb with Xemacs 19.12. I solved most 
of them by removing mail-abbrevs.el and mail-extr.el from the bbdb directory 
and using the Xemacs versions.  A more detailed description is appended at 
the end.


I solved the remaining problems with MH-E by using an updated bbdb-mhe.el 
from Jack Repenning (jackr@engr.sgi.com) which I have also included.

- - --------------------begin included file-------------------------------
From: kyle_jones@wonderworks.com
Subject: Re: 19.12: Big Problems with BBDB
Newsgroups: comp.emacs.xemacs
Date: 9 Jul 1995 14:19:28 -0400
Organization: Wonderworks Inc.
Path: vixen.cso.uiuc.edu!howland.reston.ans.net!news.sprintlink.net!uunet!in1.
uu.net!news.wonderworks.com!u-sure-kin-mambo
Lines: 29
Sender: kyle@WonderWorks.com
Distribution: world
Message-ID: <3tp6jg$lsc@crystal.WonderWorks.COM>
References: <BIRGE.95Jul9023016@robotics.ece.nps.navy.mil>
NNTP-Posting-Host: crystal.wonderworks.com

birge@robotics.ece.nps.navy.mil (Jonathan Birge 656-2629) writes:
 > I installed BBDB under XEmacs 19.12, and while I followed the
 > hint given in the FAQ, I still got errors when I ran GNUS and
 > VM. So, I commented out all the BBDB related stuff in my
 > .emacs file and figured everything would be alright. However,
 > GNUS is still giving me the same error, even though I no
 > longer have the BBDB hooks installed. What gives? The error I
 > get is: wrong type argument: listp, :-pos. Since I've
 > deinstalled everything, I'm completely at a loss as to what
 > the heck is going on; any help would be greatly appreciated.

My guess is that the error is coming from an old copy of
mail-extr.el you have installed in your load path somewhere
before the 19.12 lisp directories.

In 19.12, symbols whose names being with ':' are considered to be
"keywords".  The Lisp reader silently sets the value of a keyword
to itself.  That is, at the time the reader read a Lisp file
containing the symbol :-pos, that symbol's value is set to be
:-pos.  Emacs-Lisp code written before 19.12 was released may
have problems because the code doesn't expect symbols to have a
value as soon as they are read or expect symbols to have their
value changed whenever they are read.

mail-extr.el is one of those programs.  19.12 ships with a
version that is fixed to avoid using keywords, so the fix for you
is to find and eradicate the old copies of mail-extr.el you have
lying around and use the 19.12 version.

- - -------------------end included file-----------------------------

- - -------------------begin included file---------------------------
To: Ben Gross <bgross@uiuc.edu>
In-Reply-To: Your message of Mon, 10 Jul 1995 14:12:15 -0500.
             <199507101913.AA12581@a.cs.uiuc.edu> 
X-Pgp-Keyid-Fprnt: 0xE67DF57D - D2 4B E2 C2 9A FB 7C 24  7E 59 78 85 52 5D 64 
4E
X-Mailer: GNU Emacs (mh-e.el)
Subject: Re: MH-E forward and bbdb 
Date: Mon, 10 Jul 1995 12:34:41 -0700
Message-Id: <9782.805404881@dblues.engr.sgi.com>
From: Jack Repenning <jackr@dblues.engr.sgi.com>
X-Charset: LATIN1
X-Char-Esc: 29


You just wrote:


	It seems that the mh-forward function of MH-E is broken
	in version with bbdb 1.50 with Xemacs 19.12.

I'm using the attached bbdb-mhe.el, which was developed in
correspondence on this list.  It has a code change in the
neighborhood you mention that looks specifically directed at the
problem you name (though I don't recall the specific case from
when we were hammering this out).  Warning: my base bbdb version
is 1.49, not 1.50; there may be incompatibilities here.


Jack Repenning                M/S 2L-875    jackr@engr.sgi.com
Silicon Graphics, Inc.         x3-3027      Off:(415) 390-3027
Visual Magic Division                       Fax:(415) 390-6056
	  http://reality.sgi.com/employees/jackr_engr
	PGP pubkey at key@publickey.com, keyservers, or
	       finger jackr@sgi.com@publickey.com

 But it all slipped past in a clatter of laughter, of that
 intimate laughter between fellow professionals, which of all
 earthly powers is strongest to make men do very bad things
 before they are yet, individually, very bad men.
   "That Hideous Strength", C.S. Lewis
- - ----------------Cut Here----------------
;;; -*- Mode:Emacs-Lisp -*-

;;; This file is part of the Insidious Big Brother Database (aka BBDB),
;;; copyright (c) 1991 Todd Kaufmann <toad@cs.cmu.edu>
;;; Interface to mh-e version 3.7 or later (modeled after bbdb-rmail).
;;; Created  5-Mar-91;
;;; Modified: 28-Jan-94 by Fritz Knabe <knabe@ecrc.de>
;;;			   Jack Repenning <jackr@dblues.wpd.sgi.com>

;;; The Insidious Big Brother Database is free software; you can redistribute
;;; it and/or modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 1, or (at your
;;; option) any later version.
;;;
;;; BBDB is distributed in the hope that it will be useful, but WITHOUT ANY
;;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;;; FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
;;; details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

(require 'bbdb)
(require 'mh-e)    ; Note- we advise several functions in this file.
(require 'advice)

(defmacro bbdb/mh-cache-key (message)
  "Return a (numeric) key for MESSAGE"
  (`(let* ((attrs (file-attributes (, message)))
	   (status-time (nth 6 attrs))
	   (status-time-2 (cdr status-time)))
      (logxor (nth 10 attrs)
	      (car status-time)
	      ;; We need the following test because Lucid returns the
	      ;; status time as a dotted pair, whereas FSF and Epoch
	      ;; return it as list.
	      (if (integerp status-time-2)
		  status-time-2
		(car status-time-2))))))

;;;% Currently assumes msg buffer is the current buffer,
;;;% as usually (always?) is when called from the hook.

(defun bbdb/mh-update-record (&optional offer-to-create)
  "Returns the record corresponding to the current MH message, creating or
modifying it as necessary.  A record will be created if 
bbdb/mail-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
the user confirms the creation."
  (if bbdb-use-pop-up
      (bbdb/mh-pop-up-bbdb-buffer offer-to-create)
    (let ((msg (bbdb/mh-cache-key buffer-file-name)))
      (if (eq msg 0) (setq msg nil))	; 0 could mean trouble; be safe.
      (or (bbdb-message-cache-lookup msg nil) ; nil = current-buffer
	  (let ((from (bbdb/mh-get-field "^From[ \t]*:"))
		name net)
	    (if (or (string= "" from)
		    (string-match (bbdb-user-mail-names)
				  (mail-strip-quoted-names from)))
		;; if logged-in user sent this, use recipients.
		(progn
		  (setq from (bbdb/mh-get-field "^To[ \t]*:"))
		  (if (or (string= "" from)
			  (string-match (bbdb-user-mail-names)
					(mail-strip-quoted-names from)))
		      (setq from nil))))
	    (if from
		(bbdb-encache-message msg
		 (bbdb-annotate-message-sender from t
		  (or (bbdb-invoke-hook-for-value bbdb/mail-auto-create-p)
		      offer-to-create)
		  offer-to-create))))))))


(defun bbdb/mh-annotate-sender (string)
  "Add a line to the end of the Notes field of the BBDB record 
corresponding to the sender of this message."
  (interactive (list (if bbdb-readonly-p
			 (error "The Insidious Big Brother Database is read-only.")
			 (read-string "Comments: "))))
  (mh-show)
  (let ((b (current-buffer))
	(p (point)))
    (set-buffer mh-show-buffer)
    (bbdb-annotate-notes (bbdb/mh-update-record t) string)
    (set-buffer b)
    (goto-char p)))


(defun bbdb/mh-edit-notes (&optional arg)
  "Edit the notes field or (with a prefix arg) a user-defined field
of the BBDB record corresponding to the sender of this message."
  (interactive "P")
  (mh-show)
  (let ((b (current-buffer))
	(p (point)))
    (set-buffer mh-show-buffer)
    (let (bbdb-electric-p (record (or (bbdb/mh-update-record t) (error ""))))
      (bbdb-display-records (list record))
      (if arg
	  (bbdb-record-edit-property record nil t)
	(bbdb-record-edit-notes record t)))
    (set-buffer b)
    (goto-char p)))


(defun bbdb/mh-show-sender ()
  "Display the contents of the BBDB for the sender of this message.
This buffer will be in bbdb-mode, with associated keybindings."
  (interactive)
  (mh-show)
  (let ((b (current-buffer))
	(p (point)))
    (set-buffer mh-show-buffer)
    (let ((record (bbdb/mh-update-record t)))
      (if record
	  (bbdb-display-records (list record))
	(error "unperson")))
    (set-buffer b)
    (goto-char p)))


(defun bbdb/mh-pop-up-bbdb-buffer (&optional offer-to-create)
  "Make the *BBDB* buffer be displayed along with the MH window,
displaying the record corresponding to the sender of the current message."
  (bbdb-pop-up-bbdb-buffer
    (function (lambda (w)
      (let ((b (current-buffer)))
	(set-buffer (window-buffer w))
	(prog1 (eq major-mode 'mh-folder-mode)
	  (set-buffer b))))))
  (let ((bbdb-gag-messages t)
	(bbdb-use-pop-up nil)
	(bbdb-electric-p nil))
    (let ((record (bbdb/mh-update-record offer-to-create))
	  (bbdb-elided-display (bbdb-pop-up-elided-display)))
      (bbdb-display-records (if record (list record) nil))
      record)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mh-e modifictions --
;;   this now has a hook that gets called after we suck in the message.

;; this is also called when you reply to a message

(defvar mh-show-message-hook ()
  "Invoked after message is displayed in buffer.")

;; Modify mh-display-msg to call mh-show-message-hook after setting up
;; the message
(defadvice mh-display-msg (around mh-bbdb-display-msg act)
  (save-excursion
    ad-do-it)
  (run-hooks 'mh-show-message-hook))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; this is a more strict version of mh-get-field which takes an regexp

(defun bbdb/mh-get-field (field)
  ;; Find and return the value of field FIELD (regexp) in the current buffer.
  ;; Returns the empty string if the field is not in the message.
  (let ((case-fold-search nil))
    (goto-char (point-min))
    (cond ((not (re-search-forward field nil t)) "")
	  ((looking-at "[\t ]*$") "")
	  (t (re-search-forward "[\t ]*\\([^\t \n].*\\)$" nil t)
	   (let ((field (buffer-substring (match-beginning 1) (match-end 1)))
		 (end-of-match (point)))
	     (forward-line)
	     (while (looking-at "[ \t]") (forward-line 1))
	     (backward-char 1)
	     (if (<= (point) end-of-match)
		 field
		 (format "%s%s" field
			 (buffer-substring end-of-match (point)))))))))

(defadvice mh-process-commands (after mh-bbdb-process act)
  (bbdb-offer-save))

(defadvice mh-send (before mh-bbdb-send act)
  (interactive (list
		(bbdb-read-addresses-with-completion "To: ")
		(bbdb-read-addresses-with-completion "Cc: ")
		(read-string "Subject: "))))

(defadvice mh-send-other-window (before mh-bbdb-send-other act)
  (interactive (list
		(bbdb-read-addresses-with-completion "To: ")
		(bbdb-read-addresses-with-completion "Cc: ")
		(read-string "Subject: "))))

(defadvice mh-forward (before mh-bbdb-forward act)
  (interactive
   (if (boundp 'mh-e-version)
       (list
	(bbdb-read-addresses-with-completion "To: ")
	(bbdb-read-addresses-with-completion "Cc: ")
	(if current-prefix-arg
	    (mh-read-seq-default "Forward" t)
	  (mh-get-msg-num t)))
     (list current-prefix-arg
	   (if current-prefix-arg
	       (mh-read-seq-default "Forward" t)
	     (mh-get-msg-num t))
	   (bbdb-read-addresses-with-completion "To: ")
	   (bbdb-read-addresses-with-completion "Cc: ")))))

(defadvice mh-redistribute (before mh-bbdb-redist act)
  (interactive (list
		(bbdb-read-addresses-with-completion "Redist-To: ")
		(bbdb-read-addresses-with-completion "Redist-Cc: ")
		(mh-get-msg-num t))))

(defadvice mh-toggle-showing (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-inc-folder (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-visit-folder (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-previous-undeleted-msg (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-next-undeleted-msg (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-delete-msg (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-reply (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

(defadvice mh-forward (before mh-bbdb-use-pop-up act)
  "Turn off bbdb pop up window before the command.  Used for commands
that (a) get confused by otherwindowness, and (b) will trigger a
re-pop-up when they're done."
  (if (and mh-showing bbdb-use-pop-up)
      (delete-windows-on bbdb-buffer-name t)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mail from bbdb-mode using mh

;; these redefine the bbdb-send-mail functions to use mh-send.

;;; Install bbdb into mh-e's show-message function

(defun bbdb-insinuate-mh ()
  "Call this function to hook BBDB into MH-E."
  (define-key mh-folder-mode-map ":" 'bbdb/mh-show-sender)
  (define-key mh-folder-mode-map ";" 'bbdb/mh-edit-notes)
  (bbdb-add-hook 'mh-show-message-hook 'bbdb/mh-update-record)
  )

(provide 'bbdb-mhe)

- - ------------------------end included file--------------------------




------- End of Forwarded Message


--===_0_Fri_Apr_25_18:30:20_CDT_1997
Content-Type: application/x-patch
Content-Description: bbdb-ftp.el.patch
Content-Transfer-Encoding: base64

LS0tIGJiZGItZnRwLmVsLm9yaWcJVGh1IEFwciAyMyAwNjo0NjowMCAxOTkyCisrKyBiYmRi
LWZ0cC5lbAlXZWQgTWF5IDI0IDAxOjE5OjU4IDE5OTUKQEAgLTYwLDYgKzYwLDYgQEAKIDs7
OyAoYXV0b2xvYWQgJ2JiZGItY3JlYXRlLWZ0cC1zaXRlICAgICAiYmJkYi1mdHAiICAiRnRw
IEJCREIgUGFja2FnZSIgdCkKIAotKHJlcXVpcmUgJ2JiZGIpCisocmVxdWlyZSAnYmJkYi1j
b20pCiAocmVxdWlyZSAnYW5nZS1mdHApCiAKIChkZWZ2YXIgYmJkYi1kZWZhdWx0LWZ0cC11
c2VyICJhbm9ueW1vdXMiCgo=

--===_0_Fri_Apr_25_18:30:20_CDT_1997--


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@cs.uiuc.edu  Tue Aug 15 07:14:19 1995
Received: from postoffice.cso.uiuc.edu by raven.grainger.uiuc.edu with ESMTP
	(1.37.109.16/16.2) id AA158258859; Tue, 15 Aug 1995 07:14:19 -0500
Return-Path: <info-bbdb-request@cs.uiuc.edu>
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id MAA32924 for bgross@raven.grainger.uiuc.edu; Tue, 15 Aug 1995 12:16:21 GMT
Received: from spruce.cs.uiuc.edu (spruce.cs.uiuc.edu [128.174.243.2]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with SMTP id HAA98966 for <bgross@uiuc.edu>; Tue, 15 Aug 1995 07:16:20 -0500
Received: by spruce.cs.uiuc.edu id AA10706
  (5.67a/IDA-1.5 for info-bbdb-people); Tue, 15 Aug 1995 05:53:49 -0500
Received: from a.cs.uiuc.edu by spruce.cs.uiuc.edu with SMTP id AA10702
  (5.67a/IDA-1.5 for <info-bbdb@spruce.cs.uiuc.edu>); Tue, 15 Aug 1995 05:53:48 -0500
Received: from terpsichore.sse.ie by a.cs.uiuc.edu with SMTP id AA14085
  (5.67a/IDA-1.5 for <info-bbdb@cs.uiuc.edu>); Tue, 15 Aug 1995 05:53:46 -0500
Received: by terpsichore.sse.ie (AIX 3.2/UCB 5.64/4.03)
          id AA28241; Tue, 15 Aug 1995 11:53:43 +0100
Date: Tue, 15 Aug 1995 11:53:43 +0100
Message-Id: <9508151053.AA28241@terpsichore.sse.ie>
X-Ph: V4.4@postoffice.cso.uiuc.edu
From: Adrian Colley <Adrian.Colley@three.serpentine.com>
Reply-To: Adrian.Colley@three.serpentine.com
To: info-bbdb@cs.uiuc.edu
X-Also-To-Before-Bounce: Karl Fogel <kfogel@floss.cyclic.com>
Subject: bbdb/vm parsing of "<>" (bug report/patch)
X-Nsa-Fodder: Honduras South Africa plutonium
X-Pgp-Key-Location: http://wuh.three.serpentine.com/u/aecolley/pgpkee
X-Pgp-Key-Fingerprint: 09 B5 08 B2 CB E6 D9 5E  60 62 FA 02 89 48 CF 5D

Well done, Karl, you broke bbdb!

------- start of forwarded message (RFC 934 encapsulation) -------
From: Vapor User <>
To: techie-qotd@cyclic.com
Date: Mon, 14 Aug 1995 20:48:33 -0500
Subject: did you know that, under Linux

	you can have a user named  , (but funny things may happen when
that user sends mail)?

	From now on, I'm doing all my work as  .

Love,
 
------- end -------

This broke by passing nil to string-match.  Here's my patch.
------- begin context diff -------
*** orig-bbdb-vm.el	Tue Aug 15 11:21:58 1995
--- bbdb-vm.el	Tue Aug 15 11:33:05 1995
***************
*** 59,69 ****
  		(narrow-to-region (vm-start-of msg) (vm-end-of msg))
  		(let ((from (mail-fetch-field "from")))
  		  (if (or (null from)
! 			  (string-match (bbdb-user-mail-names)
  			    ;; mail-strip-quoted-names is too broken!
  			    ;;(mail-strip-quoted-names from)
- 			    (car (cdr (mail-extract-address-components
- 				       from)))))
  		      ;; if logged in user sent this, use recipients.
  		      (setq from (or (mail-fetch-field "to") from)))
  		  (if from
--- 59,74 ----
  		(narrow-to-region (vm-start-of msg) (vm-end-of msg))
  		(let ((from (mail-fetch-field "from")))
  		  (if (or (null from)
! 			  (let
! 			      ((addrbit
! 				(car
! 				 (cdr
! 				  (mail-extract-address-components from)))))
! 			    (and addrbit
! 				 (string-match (bbdb-user-mail-names)
! 					       addrbit))))
  			    ;; mail-strip-quoted-names is too broken!
  			    ;;(mail-strip-quoted-names from)
  		      ;; if logged in user sent this, use recipients.
  		      (setq from (or (mail-fetch-field "to") from)))
  		  (if from
------- ffid txetnoc nigeb -------

(Just joined info-bbdb; my apple logies if this has already been found
and nailed.)

 --adrian.
http://wuh.three.serpentine.com/u/aecolley/


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@cs.uiuc.edu  Wed Dec 27 11:19:28 1995
Received: from postoffice.cso.uiuc.edu by gargoyle.ncsa.uiuc.edu with ESMTP
	(1.37.109.16/16.2) id AA052004768; Wed, 27 Dec 1995 11:19:28 -0600
Return-Path: <info-bbdb-request@cs.uiuc.edu>
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id RAA08424 for bgross@gargoyle.ncsa.uiuc.edu; Wed, 27 Dec 1995 17:17:40 GMT
Received: from spruce.cs.uiuc.edu (spruce.cs.uiuc.edu [128.174.243.2]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with SMTP id LAA08418 for <bgross@uiuc.edu>; Wed, 27 Dec 1995 11:17:39 -0600
Received: by spruce.cs.uiuc.edu id AA18917
  (5.67a/IDA-1.5 for info-bbdb-people); Wed, 27 Dec 1995 10:18:54 -0600
Received: from a.cs.uiuc.edu by spruce.cs.uiuc.edu with SMTP id AA18913
  (5.67a/IDA-1.5 for <info-bbdb@spruce.cs.uiuc.edu>); Wed, 27 Dec 1995 10:18:53 -0600
Received: from relay2.UU.NET by a.cs.uiuc.edu with SMTP id AA13381
  (5.67a/IDA-1.5 for <info-bbdb@cs.uiuc.edu>); Wed, 27 Dec 1995 10:18:54 -0600
Received: from ariel.ariel.com by relay2.UU.NET with SMTP 
	id QQzvyf00401; Wed, 27 Dec 1995 11:17:31 -0500 (EST)
Received: from master.ariel.com by ariel.ariel.com (4.1/SMI-4.1)
	id AA01412; Wed, 27 Dec 95 11:21:14 EST
Received: from humberto.ariel.com by master.ariel.com (4.1/SMI-4.1)
	id AA13266; Wed, 27 Dec 95 11:21:13 EST
Received: by humberto.ariel.com (4.1/SMI-4.1)
	id AA03626; Wed, 27 Dec 95 11:21:12 EST
Date: Wed, 27 Dec 95 11:21:12 EST
Message-Id: <9512271621.AA03626@humberto.ariel.com>
X-Ph: V4.4@postoffice.cso.uiuc.edu
From: Alan <Alan.Stein@ariel.com>
To: BBDB list <info-bbdb@cs.uiuc.edu>
Cc: Perry.Wintner@ariel.com
Subject: area code patch

 Apparently, there are new area codes which don't have 0, 1 or 2 as the
2'nd digit (I was told of a Connecticut phone number with an 860 area
code.)  Anyway, here's a very quick patch to the area-code regexp (bbdb
1.50):

*** bbdb-com.el.virgin  Wed Dec 27 11:12:48 1995
--- bbdb-com.el Wed Dec 27 11:13:02 1995
***************
*** 242,248 ****
  
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([0-9][012][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")
  
--- 242,248 ----
  
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([0-9][0-9][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")

 -- Alan  <Alan.Stein@ariel.com>


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@cs.uiuc.edu  Tue Apr 16 05:03:42 1996
Received: from postoffice.cso.uiuc.edu (postoffice.cso.uiuc.edu [128.174.5.11]) by gargoyle.ncsa.uiuc.edu (8.7.5/8.7.3) with SMTP id FAA10383 for <bgross@gargoyle.ncsa.uiuc.edu>; Tue, 16 Apr 1996 05:03:41 -0500 (CDT)
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id KAA36634 for bgross@gargoyle.ncsa.uiuc.edu; Tue, 16 Apr 1996 10:03:41 GMT
Received: from spruce.cs.uiuc.edu (spruce.cs.uiuc.edu [128.174.243.2]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with ESMTP id FAA94996 for <bgross@uiuc.edu>; Tue, 16 Apr 1996 05:03:40 -0500
Received: (from daemon@localhost) by spruce.cs.uiuc.edu (8.7.3/8.7.3) id DAA18760 for info-bbdb-people; Tue, 16 Apr 1996 03:53:42 -0500 (CDT)
Received: from a.cs.uiuc.edu (a.cs.uiuc.edu [128.174.252.1]) by spruce.cs.uiuc.edu (8.7.3/8.7.3) with SMTP id DAA18757 for <info-bbdb@spruce.cs.uiuc.edu>; Tue, 16 Apr 1996 03:53:40 -0500 (CDT)
Received: from macon.Informatik.Uni-Tuebingen.De by a.cs.uiuc.edu with SMTP id AA26175
  (5.67a/IDA-1.5 for <info-bbdb@cs.uiuc.edu>); Tue, 16 Apr 1996 03:52:34 -0500
Received: from marvin.Informatik.Uni-Tuebingen.De by macon.informatik.uni-tuebingen.de (AIX 3.2/UCB 5.64/4.03)
          id AA14696; Tue, 16 Apr 1996 10:51:28 +0200
Received: by marvin.informatik.uni-tuebingen.de (AIX 3.2/UCB 5.64/4.03)
          id AA23115; Tue, 16 Apr 1996 10:51:26 +0200
X-PH: V4.4@postoffice.cso.uiuc.edu
To: Jim Blandy <jimb@cyclic.com>, info-bbdb@cs.uiuc.edu
Subject: Re: <5-digit zip codes
References: <9604151330.AA20387@marvin.informatik.uni-tuebingen.de>
	<9604151626.AA21902@socrates.ansa.co.uk>
	<199604152033.PAA14058@totoro.cyclic.com>
From: sperber@marvin.informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 16 Apr 1996 10:51:25 +0200
In-Reply-To: Jim Blandy's message of Mon, 15 Apr 1996 15:33:16 -0500
Message-Id: <y9lhguk362a.fsf@marvin.informatik.uni-tuebingen.de>
Lines: 42
X-Mailer: September Gnus v0.68/XEmacs 19.14


>>>>> "Jim" == Jim Blandy <jimb@cyclic.com> writes:

Michael> Should you ever get around to >=1.51, please consider there
Michael> are countries with zip codes with less than 5 digits.
>> 
>> And ones with postal codes which are not all digits!  ;-)

Jim> I'll bet if you submit a patch that implements the features you want,
Jim> 1.51 will be much more likely to have them.  :)

This one really is too trivial.  It mainly amounts to deleting part of
a regexp line, as Jamie knows better than I do.

Should Jamie decide to parameterize it the same way as with phone
number area codes (i.e. get into a design issue), then chances are
that I'll get something not quite The Right Thing.

Hell, I might as well rise to the challenge, anyway.  Attached is
what's been in my own setup for a while now.

Cheers =8-} Mike

*** bbdb-com.el~	Wed Jan 26 01:25:12 1994
--- bbdb-com.el	Mon Apr 15 19:30:21 1996
***************
*** 312,318 ****
  
  (defun bbdb-parse-zip-string (string)
    (cond ((string-match "^[ \t\n]*$" string) 0)
! 	((string-match "^[ \t\n]*[0-9][0-9][0-9][0-9][0-9][ \t\n]*$" string)
  	 (string-to-int string))
  	((string-match "^[ \t\n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \t\n]*-?[ \t\n]*\\([0-9][0-9][0-9][0-9]\\)[ \t\n]*$" string)
  	 (list (bbdb-subint string 1) (bbdb-subint string 2)))
--- 312,318 ----
  
  (defun bbdb-parse-zip-string (string)
    (cond ((string-match "^[ \t\n]*$" string) 0)
! 	((string-match "^[ \t\n]*[0-9]+[ \t\n]*$" string)
  	 (string-to-int string))
  	((string-match "^[ \t\n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \t\n]*-?[ \t\n]*\\([0-9][0-9][0-9][0-9]\\)[ \t\n]*$" string)
  	 (list (bbdb-subint string 1) (bbdb-subint string 2)))


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@cs.uiuc.edu  Mon May 27 14:25:52 1996
Received: from postoffice.cso.uiuc.edu (postoffice.cso.uiuc.edu [128.174.5.11]) by gargoyle.ncsa.uiuc.edu (8.7.5/8.7.3) with SMTP id OAA26489 for <bgross@gargoyle.ncsa.uiuc.edu>; Mon, 27 May 1996 14:25:52 -0500 (CDT)
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id TAA165096 for bgross@gargoyle.ncsa.uiuc.edu; Mon, 27 May 1996 19:25:51 GMT
Received: from spruce.cs.uiuc.edu (spruce.cs.uiuc.edu [128.174.243.2]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with ESMTP id OAA29922 for <bgross@uiuc.edu>; Mon, 27 May 1996 14:25:50 -0500
Received: (from daemon@localhost) by spruce.cs.uiuc.edu (8.7.5/8.7.3) id NAA04246 for info-bbdb-people; Mon, 27 May 1996 13:50:15 -0500 (CDT)
Received: from a.cs.uiuc.edu (a.cs.uiuc.edu [128.174.252.1]) by spruce.cs.uiuc.edu (8.7.5/8.7.3) with ESMTP id NAA04243 for <info-bbdb@spruce.cs.uiuc.edu>; Mon, 27 May 1996 13:50:14 -0500 (CDT)
Received: from zen.org (zen.org [140.174.193.1]) by a.cs.uiuc.edu (8.7.5/8.7.3) with ESMTP id NAA15781 for <info-bbdb@cs.uiuc.edu>; Mon, 27 May 1996 13:50:13 -0500 (CDT)
Received: from zen.org (localhost [127.0.0.1]) by zen.org (8.7.5/Zen-2.01) with ESMTP id LAA19057; Mon, 27 May 1996 11:50:04 -0700 (PDT)
X-PH: V4.4@postoffice.cso.uiuc.edu
To: info-bbdb@cs.uiuc.edu
cc: sven@hotwired.com
Subject: both fixes needed for bbdb-mhe.el with emacs 19.31
Date: Mon, 27 May 1996 11:50:03 -0700
Message-ID: <19053.833223003@zen.org>
From: Brendan Kehoe <brendan@zen.org>

Both of these changes are needed for bbdb-mhe.el (version 3.7 last mod date is
13-Jul-95) for it to work with emacs 19.31 (just released).

*** bbdb-mhe.el.~3~	Tue Jul 25 19:09:27 1995
--- bbdb-mhe.el	Mon May 27 11:45:35 1996
***************
*** 26,30 ****
  (require 'mh-e)    ; Note- we advise several functions in this file.
  (eval-and-compile
!   (if (boundp 'mh-e-version)
        (require 'mh-comp)))
  (require 'advice)
--- 26,34 ----
  (require 'mh-e)    ; Note- we advise several functions in this file.
  (eval-and-compile
!   (if (or
! 	; 19.30 and before
! 	 (boundp 'mh-e-version)
! 	; 19.31 and beyond
! 	 (boundp 'mh-e-RCS-id))
        (require 'mh-comp)))
  (require 'advice)
***************
*** 196,200 ****
  (defadvice mh-forward (before mh-bbdb-forward act)
    (interactive
!    (if (boundp 'mh-e-version)
         (list
  	(bbdb-read-addresses-with-completion "To: ")
--- 200,208 ----
  (defadvice mh-forward (before mh-bbdb-forward act)
    (interactive
!    (if (or
! 	; 19.30 and before
! 	(boundp 'mh-e-version)
! 	; 19.31 and beyond
! 	(boundp 'mh-e-RCS-id))
         (list
  	(bbdb-read-addresses-with-completion "To: ")

--
Brendan Kehoe                                                  brendan@zen.org

Web page: http://www.zen.org/~brendan/


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@xemacs.org  Tue Jun  4 12:13:03 1996
Received: from postoffice.cso.uiuc.edu (postoffice.cso.uiuc.edu [128.174.5.11]) by gargoyle.ncsa.uiuc.edu (8.7.5/8.7.3) with SMTP id MAA06934 for <bgross@gargoyle.ncsa.uiuc.edu>; Tue, 4 Jun 1996 12:13:02 -0500 (CDT)
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id RAA53238 for bgross@gargoyle.ncsa.uiuc.edu; Tue, 4 Jun 1996 17:13:02 GMT
Received: from xemacs.cs.uiuc.edu (xemacs.cs.uiuc.edu [128.174.252.16]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with ESMTP id MAA266480 for <bgross@uiuc.edu>; Tue, 4 Jun 1996 12:13:01 -0500
Received: (from bbdb-m@localhost) by xemacs.cs.uiuc.edu (8.7.5/8.7.3) id MAA11815; Tue, 4 Jun 1996 12:12:06 -0500 (CDT)
Resent-Date: Tue, 4 Jun 1996 12:12:06 -0500 (CDT)
Date: Tue, 4 Jun 96 19:11:09 +0200
Message-Id: <9606041711.AA01650@leia.lep-philips.fr>
X-PH: V4.4@postoffice.cso.uiuc.edu
From: Vincent Hascoet <hascoet@lep-philips.fr>
To: info-bbdb@xemacs.org
Subject: Bug in bbdb-print.el (bbdb-1.51)
Resent-Message-ID: <"pBJGe1.0.Vu2.Zv6jn"@xemacs>
Resent-From: info-bbdb@xemacs.org
X-Mailing-List: <info-bbdb@xemacs.org> archive/latest/10
X-Loop: info-bbdb@xemacs.org
Precedence: list
Resent-Sender: info-bbdb-request@xemacs.org

Hi,

I think there is a bug in the file bbdb-print.el (the field 'ps-fonts
of the variable 'bbdb-print-alist doesn't seem to be used) :

*** bbdb-print.el.orig  Mon May 27 23:37:20 1996
--- bbdb-print.el   Tue Jun  4 18:37:49 1996
***************
*** 165,171 ****
                     (bbdb-records)
                   (set-buffer bbdb-buffer-name)
                   (mapcar 'car bbdb-records)))
!       (psstring (if (cdr (assoc 'bbdb-print-ps-fonts bbdb-print-alist)) 
                      "ps" ""))
        (columns (cdr (assoc 'columns bbdb-print-alist))))
      (find-file bbdb-print-file-name)
--- 165,171 ----
                     (bbdb-records)
                   (set-buffer bbdb-buffer-name)
                   (mapcar 'car bbdb-records)))
!       (psstring (if (cdr (assoc 'ps-fonts bbdb-print-alist)) 
                      "ps" ""))
        (columns (cdr (assoc 'columns bbdb-print-alist))))
      (find-file bbdb-print-file-name)

Vincent.

-- 
__________________________________________________________________________

 Vincent HASCOET                                    /       ___/    __  /
            		                           /       /       /   /
                                                  /       __/     ____/
 Digital Communication Group                     /       /       /
                                              ______/ ______/ __/

 Laboratoires d'Electronique Philips    Phone  :      33 (1) 45 10 68 02
 B.P. 15 - 22, Av. Descartes            Fax    :      33 (1) 45 10 69 60
 94453 Limeil-Brevannes Cedex (France)  E.mail :  hascoet@lep-philips.fr
_________________________________________________________________________


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@xemacs.org  Mon Jun 10 17:43:20 1996
Received: from postoffice.cso.uiuc.edu (postoffice.cso.uiuc.edu [128.174.5.11]) by gargoyle.ncsa.uiuc.edu (8.7.5/8.7.3) with SMTP id RAA03858 for <bgross@gargoyle.ncsa.uiuc.edu>; Mon, 10 Jun 1996 17:43:20 -0500 (CDT)
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id WAA416420 for bgross@gargoyle.ncsa.uiuc.edu; Mon, 10 Jun 1996 22:43:19 GMT
Received: from xemacs.cs.uiuc.edu (xemacs.cs.uiuc.edu [128.174.252.16]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with ESMTP id RAA235162 for <bgross@uiuc.edu>; Mon, 10 Jun 1996 17:43:18 -0500
Received: (from bbdb-m@localhost) by xemacs.cs.uiuc.edu (8.7.5/8.7.3) id RAA25050; Mon, 10 Jun 1996 17:42:48 -0500 (CDT)
Resent-Date: Mon, 10 Jun 1996 17:42:48 -0500 (CDT)
Date: Mon, 10 Jun 1996 18:41:43 -0400
Message-Id: <9606102241.AA02836@absolut.osf.org.osf.org>
X-PH: V4.4@postoffice.cso.uiuc.edu
From: Howard Melman <melman@osf.org>
To: dkarr@nmo.gtegsc.com
Cc: info-bbdb@xemacs.org
Subject: Re: Changing how bbdb-complete-name completes a name
In-Reply-To: <199606102158.OAA27174@cheetos.nmo.gtegsc.com>
References: <199606102158.OAA27174@cheetos.nmo.gtegsc.com>
Resent-Message-ID: <"Axjhc1.0.I76.ZJAln"@xemacs>
Resent-From: info-bbdb@xemacs.org
X-Mailing-List: <info-bbdb@xemacs.org> archive/latest/18
X-Loop: info-bbdb@xemacs.org
Precedence: list
Resent-Sender: info-bbdb-request@xemacs.org



On Mon Jun 10, 1996, David Karr wrote:

> I know I have control over what lists bbdb-complete-name will look at
> to decide on completions, but how do I control what it does with the
> completion info?  For instance, if I type in part of a login name and
> do completion (M-TAB), it fills in the user's full name along with
> their login name.  I would like it do just fill in the login name, if
> the address is on the local network.  If the address is external, the
> normal behavior is ok.

I added a variable bbdb-use-short-addresses to control
this.  Here's a patch below to version 1.50.  It also
includes the patch to handle new format area codes.

Howard


*** /u2/gnu/src/bbdb-1.50/bbdb-com.el	Mon Apr 29 10:44:30 1996
--- bbdb-com.el	Sun Jun  9 17:30:25 1996
***************
*** 21,26 ****
--- 21,29 ----
  
  (require 'bbdb)
  
+ (defvar bbdb-use-short-addresses nil
+   "*If non-nil addresses will be completed without names.")
+ 
  (defmacro bbdb-grovel-elide-arg (arg)
    (list 'if arg
  	(list 'not (list 'eq arg 0))
***************
*** 242,248 ****
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([0-9][012][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")
  
--- 245,251 ----
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([2-9][0-9][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")
  
***************
*** 1358,1366 ****
  	  ;; already been escaped.  This quotes a few extra characters as
  	  ;; well (!,%, and $) just for common sense.
  	  ((string-match "[][\000-\037\177()<>@,;:.!$%]" name)
! 	   (format "\"%s\" <%s>" name net))
  	  (t
! 	   (format "%s <%s>" name net)))))
  
  
  (defun bbdb-send-mail-internal (&optional to subj records)
--- 1361,1373 ----
  	  ;; already been escaped.  This quotes a few extra characters as
  	  ;; well (!,%, and $) just for common sense.
  	  ((string-match "[][\000-\037\177()<>@,;:.!$%]" name)
!            (if bbdb-use-short-addresses
!                (format "%s" net)
!              (format "\"%s\" <%s>" name net)))
  	  (t
!            (if bbdb-use-short-addresses
!                (format "%s" net)
!              (format "%s <%s>" name net))))))
  
  
  (defun bbdb-send-mail-internal (&optional to subj records)


------- =_aaaaaaaaaa0
Content-Type: message/rfc822

From info-bbdb-request@xemacs.org  Tue Dec  3 23:56:53 1996
Received: from postoffice.cso.uiuc.edu (postoffice.cso.uiuc.edu [128.174.5.11]) by csl.ncsa.uiuc.edu (8.7.5/8.7.3) with SMTP id XAA02233 for <bgross@csl.ncsa.uiuc.edu>; Tue, 3 Dec 1996 23:56:48 -0600 (CST)
Received: (from daemon@localhost) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) id FAA154072 for bgross@csl.ncsa.uiuc.edu; Wed, 4 Dec 1996 05:56:47 GMT
Received: from xemacs.cs.uiuc.edu (xemacs.cs.uiuc.edu [128.174.252.16]) by postoffice.cso.uiuc.edu (8.6.12/8.6.12) with ESMTP id XAA125644 for <bgross@uiuc.edu>; Tue, 3 Dec 1996 23:56:46 -0600
Received: (from bbdb-m@localhost) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) id XAA24327; Tue, 3 Dec 1996 23:55:47 -0600 (CST)
Resent-Date: Tue, 3 Dec 1996 23:55:47 -0600 (CST)
Date: Wed, 4 Dec 1996 14:54:30 +0900
Message-Id: <199612040554.OAA07739@mustard.kurims.kyoto-u.ac.jp>
X-PH: V4.4@postoffice.cso.uiuc.edu
From: Jens-U H Petersen <petersen@kurims.kyoto-u.ac.jp>
To: BBDB List <info-bbdb@xemacs.org>
CC: Sam Steingold <shteingd@math.ucla.edu>
Subject: stopping text properties from going into the bbdb
Mime-Version: 1.0 (generated by tm-edit 7.91)
Content-Type: text/plain; charset=US-ASCII
Resent-Message-ID: <"rLVTe2.0.xx5.29Hfo"@xemacs>
Resent-From: info-bbdb@xemacs.org
X-Mailing-List: <info-bbdb@xemacs.org> archive/latest/111
X-Loop: info-bbdb@xemacs.org
Precedence: list
Resent-Sender: info-bbdb-request@xemacs.org

I finally got round to sorting out this irritating little
problem: below is a patch to make the inlined function
bbdb-string-trim (which is applied to input strings by bbdb) also
remove any text-properties from a string.

I am used bbdb-1.51 (maybe this has already been fixed in 1.52:
there is a 1.52 isn't there??).

Jens


---------- Start of included text -----------------------8<--- cut here -------
*** bbdb.el-original	Tue May 28 06:39:31 1996
--- bbdb.el	Wed Dec  4 14:45:23 1996
***************
*** 582,588 ****
  
  
  (defsubst bbdb-string-trim (string)
!   "lose leading and trailing whitespace"
    (if (string-match "\\`[ \t\n]+" string)
        (setq string (substring string (match-end 0))))
    (if (string-match "[ \t\n]+\\'" string)
--- 582,589 ----
  
  
  (defsubst bbdb-string-trim (string)
!   "remove any text property (juhp), and lose leading and trailing whitespace"
!   (set-text-properties 0 (length string) nil string)
    (if (string-match "\\`[ \t\n]+" string)
        (setq string (substring string (match-end 0))))
    (if (string-match "[ \t\n]+\\'" string)


------- =_aaaaaaaaaa0--

