Anonymous avatar Anonymous committed 222c6cc

bbdb-2.00.06, package standards update

Comments (0)

Files changed (13)

+1999-01-24  Matt Simmons  <simmonmt@acm.org>
+
+	* lisp/bbdb.el: BBDB 2.00.06 released
+
+1999-01-24  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-gnus.el: (bbdb/gnus-score-as-text) Handle the fact
+	  that `score' could be either an int or a string.
+	
+1999-01-21  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-com.el (bbdb-info): Made it work with Info-directory-list
+
+1999-01-21  Sam Steingold  <sds@goems.com>
+
+	* lisp/bbdb.el (bbdb-display-records-1): bind
+	  `temp-buffer-setup-hook' and `temp-buffer-show-hook' to nil.
+	  This fixes the problem of `view-mode' conflicting with
+	  `bbdb-mode'.
+	
+1999-01-08  Jean-Yves Perrier  <perrier@nagra-kudelski.ch>
+
+	* lisp/bbdb-comp.el (bbdb-redisplay-records): Don't bug out
+	  with mark.
+
+1999-01-08  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb.el (bbdb-string-trim): Make it remove *all* text
+	  properties from the string instead of just a few select ones.
+	  Inspired by Sam Steingold <sds@goems.com>.
+
+1999-01-08  Sam Steingold  <sds@goems.com>
+
+	* lisp/bbdb.el (bbdb-save-db-timeout): Correct comment.
+
+1998-12-31  Matt Simmons  <simmonmt@acm.org>
+
+	* lisp/bbdb-snarf.el (bbdb-snarf-region): Autoload
+
+1998-12-31  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-gnus.el (bbdb/gnus-snarf-signature): Created
+
+1998-12-31  Matt Simmons  <simmonmt@acm.org>
+
+	* lisp/bbdb.el: BBDB 2.00.05 released
+
+1998-12-31  Matt Simmons  <simmonmt@acm.org>
+
+	* INSTALL: Added documentation for those without make
+	* lisp/bbdb-snarf.el: Merge in 1.8.1.x subtree
+
+1998-12-30  Matt Simmons  <simmonmt@acm.org>
+
+	* lisp/bbdb.el: BBDB 2.00.04 released
+
+1998-12-29  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-com.el (bbdb-current-field): Made it handle the
+	  blank user.
+	
+1998-12-24  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb.el (bbdb-version): Made it take an option to output in 
+	  current buffer.
+	
+1998-12-10  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb.el (bbdb-load-hook): Moved after the provide.
+	* lisp/bbdb.el (bbdb-display-records-1): Fix bug so that it
+	  doesn't blow out on null records parameter.
+	
+1998-12-07  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-snarf.el (bbdb-snarf-web-prop): Fix it to be a symbol.
+	* lisp/bbdb-snarf.el (bbdb-merge-internally): Use
+	  bbdb-record-set-raw-notes.
+
+1998-12-05  Matt Simmons  <simmonmt@acm.org>
+
+	* lisp/bbdb.el: BBDB 2.00.03 released
+
+1998-12-03  Adam C. Finnefrock <adam@bigbro.biophys.cornell.edu>
+
+	* lisp/bbdb-gnus.el (bbdb/gnus-update-record): Honor
+	  bbdb-user-mail-names.
+	
+1998-11-17  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-gnus.el (bbdb/gnus-show-sender): Use currently
+	  selected summary line rather than what may be in *Article*
+	  buffer.
+	* lisp/bbdb-gnus.el (bbdb/gnus-edit-notes): ditto
+	* lisp/bbdb-gnus.el (bbdb/gnus-annotate-sender): ditto
+	
+1998-11-09  Didier Verna <verna@inf.enst.fr>
+
+	* lisp/bbdb-xemacs.el (bbdb-fontify-buffer): extent-data is
+	  obsolete (and gone in XEmacs 21.2+).  Replace it.
+	* lisp/bbdb-xemacs.el (bbdb-menu): ditto.
+	
+1998-10-27  Colin Rafferty  <colin@xemacs.org>
+
+	* bbdb-com.el (bbdb-dwim-net-address-allow-redundancy): Created.
+	* bbdb-com.el (bbdb-dwim-net-address): As inspired by Xavier Francois
+	  Vigouroux, use `bbdb-dwim-net-address-allow-redundancy'.
+
+1998-10-23  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb.el: Changed mail list name from info-bbdb to
+	  bbdb-info.
+
+	* lisp/bbdb-print.el: Changed mail list name from info-bbdb to
+	  bbdb-info.
+
+	* texinfo/bbdb.texinfo: Changed mail list name from info-bbdb to
+	  bbdb-info.
+	
+1998-10-13  Colin Rafferty  <colin@xemacs.org>
+
+	* bbdb-snarf.el (bbdb-snarf-web-prop): Made it a symbol.
+
+1998-10-13  Colin Rafferty  <colin@xemacs.org>
+
+	* lisp/bbdb-com.el (bbdb-read-new-record): Check for integerp
+	  explicitly with bbdb-default-area-code, instead of relying on
+	  condition-case.
+
+	* lisp/bbdb-print.el (bbdb-print-alist-widget): ditto.
+	* lisp/bbdb-print.el (bbdb-print-alist): ditto.
+
+1998-10-12  Adam C. Finnefrock  <adam@bigbro.biophys.cornell.edu>
+
+	* lisp/bbdb-com.el (bbdb-info-file): Made it a choice, since nil didn't 
+	  match the type: file.
+
 1998-10-08  Colin Rafferty  <colin@xemacs.org>
 
 	* lisp/bbdb.el (bbdb-version): BBDB 2.00.02 released
 1998-07-19  SL Baur  <steve@altair.xemacs.org>
 
 	* lisp/bbdb-migrate.el (bbdb-migration-query): Don't pass an
-	integer to concat.
+          integer to concat.
 
 	* lisp/bbdb.el (bbdb-y-or-n-p): raise-screen -> raise-frame,
-	screen-visible-p -> frame-visible-p, selected-screen ->
-	selected-frame.
-	(bbdb-pop-up-bbdb-buffer-horizontally): screen-width -> frame-width.
+	  screen-visible-p -> frame-visible-p, selected-screen ->
+	  selected-frame.
+	* lisp/bbdb.el (bbdb-pop-up-bbdb-buffer-horizontally):
+	  screen-width -> frame-width.
 
 	* lisp/bbdb-xemacs.el (bbdb-fontify-buffer): set-extent-attribute
-	-> set-extent-property, set-extent-data -> set-extent-property.
-	(bbdb-hack-x-face): set-extent-data -> set-extent-property.
+          -> set-extent-property, set-extent-data -> set-extent-property.
+	* lisp/bbdb-xemacs.el (bbdb-hack-x-face): set-extent-data ->
+	  set-extent-property.
 
 	* lisp/bbdb-srv.el (bbdb/srv-handle-headers): Use new name for
-	set-window-buffer-dedicated.
+	  set-window-buffer-dedicated.
 
 Sat Apr 11 00:28:17 1998  Matt Simmons  <simmonmt@acm.org>
 
-To compile and install the BBDB:
+To compile and install the BBDB on systems with `make':
 
   1) Configure the compilation process
        Edit the Makefile, setting (if necessary) the paths to the Mail
                    section.
              ii)   Issue the 'make install-pkg' command.
 
+To compile and install the BBDB on systems without `make':
+
+  If at all possible, use make to automatically build the BBDB as
+  outlined above.  While it looks like there are fewer steps in the
+  non-make instructions below, they're more tedious and involved.
+
+  1) Compile the .el files using the byte-compile-file function in
+     Emacs.
+
+  2) Install the BBDB as outlined in step 3 above.
+
+
 ***************************************************************************
 *                                                                         *
 *         THE BBDB INITIALIZATION PROCEDURE CHANGED IN 1.57unoff.         *
 the info file.
 
 Questions, Comments, Suggestions, and Bug Reports may be directed to
-the BBDB mailing list at info-bbdb@xemacs.org.  To subscribe, send
-mail to info-bbdb-request@xemacs.org, with 'subscribe' as the subject.
+the BBDB mailing list at bbdb-info@xemacs.org.  To subscribe, send
+mail to bbdb-info-request@xemacs.org, with 'subscribe' as the subject.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.07
-AUTHOR_VERSION = 2.00.02
+VERSION = 1.08
+AUTHOR_VERSION = 2.00.06
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = bbdb
 PKG_TYPE = regular
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;
-;; bbdb-com.el,v 1.60 1998/04/11 07:32:59 simmonmt Exp
-;;
-;; bbdb-com.el,v
-;; Revision 1.60  1998/04/11 07:32:59  simmonmt
-;; Colin Rafferty's patch adding autoload cookies back.
-;; Changed prompts for bbdb-phones, bbdb-net, bbdb-company, bbdb-name and
-;; bbdb to make them more intuitive.  Started to remove support for
-;; advertized-bbdb-delete-current-field-or-record.  Fixed error in
-;; comment.
-;;
-;; Revision 1.59  1998/03/13 09:54:22  simmonmt
-;; Colin's fix for properly counting the size of notes fields
-;;
-;; Revision 1.58  1998/03/10 07:35:09  simmonmt
-;; Colin's new refiling code, protecting default-area-code
-;;
-;; Revision 1.57  1998/01/06 04:51:10  simmonmt
-;; Fixed copyright, moved customized finger variables into
-;; utilities-finger group (from finger).  Removed autoloads.
-;;
-;; Revision 1.56  1997/12/01 04:54:52  simmonmt
-;; Added sshteingold@cctrading.com's date-based database-manipulation
-;; functions.  Customized variables.
-;;
-;; Revision 1.55  1997/10/26 04:47:03  simmonmt
-;; Fix name completion bug (original fix by Marco Walther
-;; <Marco.Walther@mch.sni.de>, mangled beyond recognition by Matt Simmons
-;; <simmonmt@acm.org>
-;; Docs for bbdb-finger by Christoph Wedler  <wedler@fmi.uni-passau.de>
-;;
-;; Revision 1.54  1997/10/11 23:53:42  simmonmt
-;; Message-mode fixes from Kees de Bruin <kees_de_bruin@tasking.nl>
-;;
-;; Revision 1.53  1997/10/06 01:03:34  simmonmt
-;; Jamie Zawinski <jwz@netscape.com>'s comment change about the new area
-;; codes that aren't restricted to [012] in the second digit.
-;;
-;; Revision 1.52  1997/09/28 05:57:13  simmonmt
-;; Fixed area code parsing for new US area codes.  Patches integrated:
-;; use of message-mail for sending mail, finger-host record for fingering
-;;
+;; bbdb-com.el,v 1.65 1999/01/25 06:08:39 simmonmt Exp
 ;;
 
 (require 'bbdb)
   "Regrinds the contents of the *BBDB* buffer, without scrolling.
 If possible, you should call bbdb-redisplay-one-record instead."
   (let ((p (point))
-	(m (mark)))
+	(m (condition-case condition (mark) (error nil))))
     (goto-char (window-start))
     (let ((p2 (point)))
       (bbdb-display-records-1 bbdb-records)
 			      (bbdb-error-retry
 				(bbdb-parse-phone-number
 				  (read-string "Phone: "
-					       (condition-case nil
-						   (format "(%03d) " bbdb-default-area-code)
-						 (t nil))))))
+					       (and (integerp bbdb-default-area-code)
+						    (format "(%03d) " bbdb-default-area-code))))))
 			     (phone (apply 'vector str
 					   (if (= 3 (length phonelist))
 					       (nconc phonelist '(0))
     ;; get to beginning of this record
     (beginning-of-line)
     (let ((p (point)))
-      (while (not (or (eobp) (looking-at "^[^ \t\n]")))
+      (while (not (or (eobp) (bobp) (looking-at "^[^ \t\n]")))
 	(forward-line -1))
       (let* ((record (or (bbdb-current-record planning-on-modifying)
 			 (error "unperson")))
 
 ;;; Send-Mail interface
 
+(defcustom bbdb-dwim-net-address-allow-redundancy nil
+  "*Non-nil means always use full name when sending mail, even if same as net."
+  :group 'bbdb
+  :type '(choice (const :tag "Disallow redundancy" nil)
+		 (const :tag "Allow redundancy" t)))
+
 ;;;###autoload
 (defun bbdb-dwim-net-address (record &optional net)
   "Returns a string to use as the email address of the given record.  The
 	  (setq name (concat (substring name 0 i) "\\" (substring name i))
 		i (+ i 2))))
     (cond ((or (null name)
-	       (cond ((and fn ln)
-		      (or (string-match
-			   (concat "\\`[^!@%]*\\b" (regexp-quote fn)
-				   "\\b[^!%@]+\\b" (regexp-quote ln) "\\b")
-			   net)
+	       (if (not bbdb-dwim-net-address-allow-redundancy)
+		   (cond ((and fn ln)
+			  (or (string-match
+			       (concat "\\`[^!@%]*\\b" (regexp-quote fn)
+				       "\\b[^!%@]+\\b" (regexp-quote ln) "\\b")
+			       net)
+			      (string-match
+			       (concat "\\`[^!@%]*\\b" (regexp-quote ln)
+				       "\\b[^!%@]+\\b" (regexp-quote fn) "\\b")
+			       net)))
+			 ((or fn ln)
 			  (string-match
-			   (concat "\\`[^!@%]*\\b" (regexp-quote ln)
-				   "\\b[^!%@]+\\b" (regexp-quote fn) "\\b")
-			   net)))
-		     ((or fn ln)
-		      (string-match
-		       (concat "\\`[^!@%]*\\b" (regexp-quote (or fn ln)) "\\b")
-		       net)))
+			   (concat "\\`[^!@%]*\\b" (regexp-quote (or fn ln)) "\\b")
+			   net))))
 	       ;; already in "foo <bar>" or "bar <foo>" format.
 	       (string-match "\\`[ \t]*[^<]+[ \t]*<" net)
 	       (string-match "\\`[ \t]*[^(]+[ \t]*(" net))
   "*Set this to the location of the bbdb info file, if it's not in the
 standard place."
   :group 'bbdb
-  :type 'file)
+  :type '(choice (const :tag "Standard location" nil)
+		 (file :tag "New location")))
 
 (defvar Info-directory) ; v18
 ;;;###autoload
   (require 'info)
   (if bbdb-inside-electric-display
       (bbdb-electric-throw-to-execute '(bbdb-info))
-    (let ((file bbdb-info-file)
-	  (Info-directory (and (boundp 'Info-directory) Info-directory)))
-      (if file
-	  (setq file (expand-file-name file Info-directory))
-	(setq file (expand-file-name "bbdb" Info-directory))
-	(or (file-exists-p file)
-	    (setq file (concat file ".info"))))
-      (or (file-exists-p file) (error "Info file %s doesn't exist" file))
-      (let ((Info-directory (file-name-directory file)))
+    (let ((file (or bbdb-info-file "bbdb")))
+      (if (file-name-directory file)
+	  (let ((Info-directory (file-name-directory file)))
+	    (Info-goto-node (format "(%s)Top" file)))
 	(Info-goto-node (format "(%s)Top" file))))))
 
 ;;;###autoload

lisp/bbdb-gnus.el

 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;
-;; bbdb-gnus.el,v 1.59 1998/04/11 07:21:25 simmonmt Exp
-;;
-;; bbdb-gnus.el,v
-;; Revision 1.59  1998/04/11 07:21:25  simmonmt
-;; Colin Rafferty's patch adding autoload cookies back
-;;
-;; Revision 1.58  1998/02/23 07:07:13  simmonmt
-;; Changed comments for Gnus/GNUS-specific stuff and for stuff that
-;; thought it was specific but is really not.
-;; bbdb/gnus-summary-author-in-bbdb now uses `bbdb-message-marker-field'
-;; as it said it did.  Using add-hook instead of bbdb-add-hook.
-;;
-;; Revision 1.57  1998/01/06 05:42:11  simmonmt
-;; Removed autoloads and when statements
-;;
-;; Revision 1.56  1997/12/01 04:57:50  simmonmt
-;; Customized variables, changed some comments, changed user format code
-;; error message
-;;
-;; Revision 1.55  1997/11/02 07:37:44  simmonmt
-;; Added REPLACE argument to bbdb/gnus-annotate-sender.  Variable to
-;; catch changes to bbdb/gnus-score-default.  Commented out most of score
-;; insinuation code.  Variable aliases.  Added in-bbdb format letter.
-;;
-;; Revision 1.54  1997/10/26 04:56:51  simmonmt
-;; Integration of Brian Edmonds <edmonds@cs.ubc.ca>'s gnus-bbdb.el.  Got
-;; scoring and summary buffer stuff.  Need to do splitting
-;;
-;; Revision 1.53  1997/10/11 23:57:24  simmonmt
-;; Created bbdb-insinuate-message to set M-TAB binding in message-mode so I
-;; don't have to load gnus first.
-;;
-;; Revision 1.52  1997/09/28 06:00:17  simmonmt
-;; Fix to accomodate nil gnus-single-article-buffer
-;;
+;; bbdb-gnus.el,v 1.63 1999/01/25 05:21:31 simmonmt Exp
 ;;
 
 (require 'bbdb)
 the user confirms the creation."
   (if bbdb-use-pop-up
       (bbdb/gnus-pop-up-bbdb-buffer offer-to-create)
-    (let ((from
-	   (progn
-	     (set-buffer gnus-article-buffer)
-	     (save-restriction
-	       (widen)
-	       ;;(gnus-article-show-all-headers)
-	       (narrow-to-region (point-min)
-				 (progn (goto-char (point-min))
-					(or (search-forward "\n\n" nil t)
-					    (error "message unexists"))
-					(- (point) 2)))
-	       (mail-fetch-field "from")))))
+    (set-buffer gnus-article-buffer)
+    (save-restriction
+      (widen)
+      ;;(gnus-article-show-all-headers)
+      (narrow-to-region (point-min)
+                        (progn (goto-char (point-min))
+                               (or (search-forward "\n\n" nil t)
+                                   (error "message unexists"))
+                               (- (point) 2)))
+      (let ((from (mail-fetch-field "from"))
+            name net)
+        (if (or (null from)
+                (string-match (bbdb-user-mail-names)
+                              (mail-strip-quoted-names from)))
+            ;; if logged-in user sent this, use recipients.
+            (setq from (or (mail-fetch-field "to") from)))
       (if from
 	  (bbdb-annotate-message-sender from t
 					(or (bbdb-invoke-hook-for-value
 					     bbdb/news-auto-create-p)
 					    offer-to-create)
-					offer-to-create)))))
+					offer-to-create))))))
 
 ;;;###autoload
 (defun bbdb/gnus-annotate-sender (string &optional replace)
   (interactive (list (if bbdb-readonly-p
 			 (error "The Insidious Big Brother Database is read-only.")
 			 (read-string "Comments: "))))
+  (gnus-summary-select-article)
   (bbdb-annotate-notes (bbdb/gnus-update-record t) string 'notes replace))
 
 (defun bbdb/gnus-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")
+  (gnus-summary-select-article)
   (let ((record (or (bbdb/gnus-update-record t) (error ""))))
     (bbdb-display-records (list record))
     (if arg
   "Display the contents of the BBDB for the sender of this message.
 This buffer will be in bbdb-mode, with associated keybindings."
   (interactive)
+  (gnus-summary-select-article)
   (let ((record (bbdb/gnus-update-record t)))
     (if record
 	(bbdb-display-records (list record))
 	    bbdb/gnus-summary-known-poster-mark) " ")))
 
 ;;
+;; Gnus-specific snarfing (see also bbdb-snarf.el)
+;;
+
+;;;###autoload
+(defun bbdb/gnus-snarf-signature ()
+  "Snarf signature from the corresponding *Article* buffer."
+  (interactive)
+  (save-excursion
+    (or gnus-article-buffer (error "Not in Gnus!"))
+    (set-buffer gnus-article-buffer)
+    (save-restriction
+      (or (gnus-article-narrow-to-signature) (error "No signature!"))
+      (bbdb-snarf-region (point-min) (point-max)))))
+
+;;
 ;; Scoring
 ;;
 
 		       (if (not (and score net)) nil
 			 (mapconcat
 			  (lambda (addr)
-			    (concat "(\"" addr "\" " score ")\n"))
+			    (format "(\"%s\" %s)\n" addr score))
 			  net ""))))
 		   (bbdb-records) "")
 		  "))"))))

lisp/bbdb-migrate.el

 ;;;
 
 ;;
-;; bbdb-migrate.el,v 1.2 1998/04/11 07:19:19 simmonmt Exp
+;; bbdb-migrate.el,v 1.3 1998/10/10 18:47:21 simmonmt Exp
 ;;
 ;; bbdb-migrate.el,v
+;; Revision 1.3  1998/10/10 18:47:21  simmonmt
+;; From slbaur: Don't pass an integer to concat.
+;; Format dates with number format - not string - so we get leading
+;; zeros.
+;;
 ;; Revision 1.2  1998/04/11 07:19:19  simmonmt
 ;; Colin Rafferty's patch adding autoload cookies back
 ;;
 		(>= (timezone-last-day-of-month (aref parsed 1)
 						(aref parsed 0))
 		    (aref parsed 2)))
-	   (setcdr field (format "%04s-%02s-%02s" (aref parsed 0)
+	   (setcdr field (format "%04d-%02d-%02d" (aref parsed 0)
 				 (aref parsed 1) (aref parsed 2)))
 	   field)
 	  (t

lisp/bbdb-print.el

 ;;; documentation for the allowed options.
 
 ;;
-;; bbdb-print.el,v 1.57 1998/04/11 07:19:32 simmonmt Exp
+;; bbdb-print.el,v 1.59 1998/11/02 07:08:14 simmonmt Exp
 ;;
 ;; bbdb-print.el,v
+;; Revision 1.59  1998/11/02 07:08:14  simmonmt
+;; Change mailing list address
+;;
+;; Revision 1.58  1998/10/17 19:43:26  simmonmt
+;; Patch to convert default area code protection from condition-case to
+;; integerp.
+;;
 ;; Revision 1.57  1998/04/11 07:19:32  simmonmt
 ;; Colin Rafferty's patch adding autoload cookies back
 ;;
 ;;; <boris@cs.rochester.edu> and Dirk Grunwald 
 ;;; <grunwald@cs.colorado.edu> using a TeX format designed by Luigi
 ;;; Semenzato <luigi@paris.cs.berkeley.edu>. 
-;;; We are also grateful to numerous people on the info-bbdb
+;;; We are also grateful to numerous people on the bbdb-info
 ;;; mailing list for suggestions and bug reports. 
 
 ;;; Code:
 				      (const :tag "Boxed letters with suits" 7)))
 	   (cons :tag "Omit certain area codes"
 		 :value (omit-area-code . ,(concat "^("
-						   (condition-case nil
+						   (if (integerp bbdb-default-area-code)
 						       (int-to-string bbdb-default-area-code)
-						     (t "000"))  ") "))
+						     "000")  ") "))
 		 (const :tag "Omit certain area codes" omit-area-code)
 		 (regexp :tag "Pattern to omit"))
 	   (cons :tag "Phone number location" :value (phone-on-first-line . t)
 		 (string :tag "Width (must be valid TeX dimension)")))))
 
 (defcustom bbdb-print-alist
-  `((omit-area-code . ,(concat "^(" (condition-case nil
+  `((omit-area-code . ,(concat "^(" (if (integerp bbdb-default-area-code)
 					(int-to-string bbdb-default-area-code)
-				      (t "000")) ") "))
+				      "000") ") "))
     (phone-on-first-line . "^[ \t]*$")
     (ps-fonts . nil)
     (font-size . 6)

lisp/bbdb-snarf.el

 
 ;;;
 ;;; Copyright (C) 1997 by John Heidemann <johnh@isi.edu>.
-;;; bbdb-snarf.el,v 1.8.1.6 1998/04/11 07:17:06 simmonmt Exp
+;;; bbdb-snarf.el,v 1.11 1999/01/25 06:20:28 simmonmt Exp
 ;;;
 ;;; This file is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 ;;;
 
-;;
-;; bbdb-snarf.el,v 1.8.1.6 1998/04/11 07:17:06 simmonmt Exp
-;;
-;; bbdb-snarf.el,v
-;; Revision 1.8.1.6  1998/04/11 07:17:06  simmonmt
-;; Colin Rafferty's patch adding autoload cookies back
-;;
-;; Revision 1.8.1.5  1998/01/06 06:14:36  simmonmt
-;; Customized variables and removed autoloads
-;;
-;; Revision 1.8.1.4  1997/10/26 05:00:46  simmonmt
-;; Zip code is assumed to be at EOL, so we strip trailing whitespace too
-;;
-;;
-;; Revision 1.8.1.3  1997/10/12 00:11:06  simmonmt
-;; Changed `web' field name default to `www'.  Patched name-finding
-;; routine to look for first line that contains \sw.  Patched email
-;; routine to strip angle brackets from front and back of address.
-;;
-;;
-
 ;;;
 ;;; bbdb-snarf is code to pick addresses, phones, and such out of a
 ;;; free-form paragraphs.  Things are recognized by context (web pages
    "\\(-" digit digit digit digit "\\)?"
    "\\>$")
   "regexp matching zip.")
-(defcustom bbdb-snarf-web-prop "www"
-;  (if (member (list "www") (bbdb-propnames))
-;      "www"
-;    nil)
+
+(defcustom bbdb-snarf-web-prop
+  (if (member (list "www") (bbdb-propnames))
+      'www
+    nil)
   "What property bbdb should use for the web, or nil to not detect web URLs."
   :group 'bbdb
-  :type 'string)
+  :type 'symbol)
 
 (defun bbdb-snarf-address-lines ()
   (let
    (progn (goto-char where) (forward-paragraph -1) (point))
    (progn (forward-paragraph 1) (point))))
 
+;;;###autoload
 (defun bbdb-snarf-region (begin end)
   "snarf up a bbdb record in the current region.  See `bbdb-snarf' for
 more details."
       (if (not (member (car old-notes) new-notes))
 	  (setq new-notes (append new-notes (list (car old-notes)))))
       (setq old-notes (cdr old-notes)))
-    (bbdb-record-set-notes new-record new-notes))
+    (bbdb-record-set-raw-notes new-record new-notes))
   ;; return
   new-record)
 
 (provide 'bbdb-snarf)
-
-
-
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;
-;; bbdb-srv.el,v 1.55 1998/04/11 07:07:01 simmonmt Exp
+;; bbdb-srv.el,v 1.56 1998/10/10 18:47:55 simmonmt Exp
 ;;
 ;; bbdb-srv.el,v
+;; Revision 1.56  1998/10/10 18:47:55  simmonmt
+;; From slbaur - Use new name for set-window-buffer-dedicated.
+;;
 ;; Revision 1.55  1998/04/11 07:07:01  simmonmt
 ;; Colin Rafferty's patch adding autoload cookies back
 ;;

lisp/bbdb-xemacs.el

 	(set-specifier scrollbar-height (cons (current-buffer) 0)))
     ;; first delete existing extents
     (map-extents (function (lambda (x y)
-			     (if (eq (extent-data x) 'bbdb)
+			     (if (eq (extent-property x 'data) 'bbdb)
 				 (delete-extent x))))
 		 (current-buffer) (point-min) (point-max) nil)
     (let ((rest bbdb-records)
        (let ((extent (or (extent-at (point) (current-buffer) 'highlight)
 			 (error "")))
 	     record field face)
-	 (or (eq (extent-data extent) 'bbdb)
+	 (or (eq (extent-property extent 'data) 'bbdb)
 	     (error "not a bbdb extent"))
 	 (highlight-extent extent t)	; shouldn't be necessary...
 	 (goto-char (extent-start-position extent))
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 ;;;
 ;;;  ------------------------------------------------------------------------
-;;; |  There is a mailing list for discussion of BBDB: info-bbdb@xemacs.org  |
-;;; |  To join, send mail to info-bbdb-request@xemacs.org (don't forget the  |
+;;; |  There is a mailing list for discussion of BBDB: bbdb-info@xemacs.org  |
+;;; |  To join, send mail to bbdb-info-request@xemacs.org (don't forget the  |
 ;;; |  -request part or you'll look silly in front of lots of people who     |
 ;;; |  have the ability to remember it indefinitely...)                      |
 ;;; |                                                                        |
 ;;;  ------------------------------------------------------------------------
 
 ;;
-;; bbdb.el,v 1.63 1998/04/11 07:26:05 simmonmt Exp
-;;
-;; bbdb.el,v
-;; Revision 1.63  1998/04/11 07:26:05  simmonmt
-;; Changed documentation for bbdb-load-hook, added bbdb-initialize hook.
-;; Began to remove support for advertized-bbdb-delete-current-field-or-record.
-;; Moved everything except the insinuation code out of bbdb-initialize.
-;; Added bbdb-mode-search-map for search commands in BBDB buffer prefixed
-;; by S.  Added more bindings to BBDB buffer
-;;
-;; Revision 1.62  1998/03/16 07:48:00  simmonmt
-;; Released 2.00
-;;
-;; Revision 1.61  1998/03/13 09:53:38  simmonmt
-;; Colin's changes for the error message and for field size
-;;
-;; Revision 1.60  1998/03/10 07:45:44  simmonmt
-;; Fixed defface standin.  Created widget (bbdb-alist-with-header) for
-;; bbdb-auto-notes-alist customization fix.  Changed defaults for
-;; bbdb-create-hook and bbdb-change-hook to create timestamp and
-;; creation-date fields.  Added autoload for bbdb-srv.
-;;
-;; Revision 1.59  1998/02/23 07:20:44  simmonmt
-;; Created deffaces standing macro, added to bbdb-initialize for
-;; bbdb-print and bbdb-ftp, added autoload for bbdb-com, use native
-;; add-hook if we can, fset it to bbdb-add-hook otherwise.
-;;
-;; Revision 1.58  1998/01/06 06:39:49  simmonmt
-;; Added define-widget definition for users without Custom.  Added Custom
-;; groups for utilities (print, finger, etc).  Moved migration code to
-;; bbdb-migrate.el.  Commented some code (mostly code dealing with the
-;; manipulation of the internal database representation).  Added code to
-;; `bbdb-initialize' that allows for the selective insinuation of the
-;; BBDB into various external packages.
-;;
-;;
-;; Revision 1.57.1.1  1997/12/01 15:10:58  simmonmt
-;; BBDB 1.57A (documentation)
-;;
-;; Revision 1.57  1997/12/01 05:15:01  simmonmt
-;; Added migration code, customized variables, created record-copying
-;; function, moved automatically-executing code into bbdb-initialize
-;; function, documented defstruct.
-;;
-;; Revision 1.56  1997/11/02 07:45:31  simmonmt
-;; Added bbdb-warn and code to avoid it for XEmacs users.  Reformatted
-;; autoloads (again).  Autoloads for sc.
-;;
-;; Revision 1.55  1997/10/26 05:25:00  simmonmt
-;; New autoloads.  Override bbdb-display-completion-list for XEmacs users
-;;
-;; Revision 1.54  1997/10/12 00:04:42  simmonmt
-;; Added documentation and keymap definition for bbdb-www.  Added
-;; autoloads for bbdb-www (and friends), bbdb-snarf, and
-;; bbdb-insinuate-message
-;;
-;; Revision 1.53  1997/10/06 01:12:49  simmonmt
-;; Version number format changes
-;;
-;; Revision 1.52  1997/09/28 05:54:24  simmonmt
-;; Began to fix some obsolete functions to shut up the compiler,
-;; integrated some patches (see ChangeLog) to allow use of message-mail
-;; for sending mail and nil names.
-;;
+;; bbdb.el,v 1.71 1999/01/25 06:16:02 simmonmt Exp
 ;;
 
 (require 'timezone)
 
-(defconst bbdb-version "2.00.02")
-(defconst bbdb-version-date "1998/04/11 07:26:05")
+(defconst bbdb-version "2.00.06")
+(defconst bbdb-version-date "1999/01/25 06:16:02")
 
 ;; File format
 (defconst bbdb-file-format 3)
 
 
 (defsubst bbdb-string-trim (string)
-  "Lose leading and trailing whitespace.  Also remove some properties
+  "Lose leading and trailing whitespace.  Also remove all properties
 from string."
   (if (string-match "\\`[ \t\n]+" string)
       (setq string (substring string (match-end 0))))
   (if (string-match "[ \t\n]+\\'" string)
       (setq string (substring string 0 (match-beginning 0))))
-  (remove-text-properties 0 (length string) '(face        nil mouse-face    nil
-					      tm-callback nil tm-data       nil
-					      highlight   nil gnus-callback nil
-					      gnus-data   nil) string)
+  ;; This is not ideologically blasphemous.  It is a bad function to
+  ;; use on regions of a buffer, but since this is our string, we can
+  ;; do whatever we want with it. --Colin
+  (set-text-properties 0 (length string) nil string)
   string)
 
 
 			    (list x bbdb-elided-display (make-marker))))
 			  records)))
   (let ((b (current-buffer))
+        (temp-buffer-setup-hook nil)
+        (temp-buffer-show-hook nil)
 	(first (car (car records))))
     (with-output-to-temp-buffer bbdb-buffer-name
       (set-buffer bbdb-buffer-name)
 	  (setq records (cdr records))))
       (if (not bbdb-gag-messages) (message "Formatting...done.")))
     (set-buffer bbdb-buffer-name)
-    (if append
+    (if (and append first)
 	(let ((cons (assq first bbdb-records))
 	      (window (get-buffer-window (current-buffer))))
 	  (if window (set-window-start window (nth 2 cons)))
 (defcustom bbdb-save-db-timeout nil
   "*If non-nil, then when bbdb-save-db is asking you whether to save the db,
 it will time out to `yes' after this many seconds.  This only works if the
-function y-or-n-p-with-timeout is defined (meaning XEmacs.)"
+function y-or-n-p-with-timeout is defined."
   :group 'bbdb-save
   :type '(choice (const :tag "Don't time out" nil)
 		 (integer :tag "Time out after this many seconds" 5)))
 	  (set-buffer b)
 	  t)))))
 
-(defun bbdb-version ()
-  (interactive)
+(defun bbdb-version (&optional arg)
+  "Return string describing the version of the BBDB that is running.
+When called interactively with a prefix argument, insert string at point."
+  (interactive "P")
   (let ((version-string (format "BBDB version %s (%s)"
 			       bbdb-version bbdb-version-date)))
-    (if (interactive-p) (message version-string)
-      version-string)))
+    (cond
+     (arg
+      (insert (message version-string)))
+     ((interactive-p)
+      (message version-string))
+     (t version-string))))
 
 
 
 (if (not (fboundp 'add-hook))
     (fset 'add-hook 'bbdb-add-hook))
 
-(run-hooks 'bbdb-load-hook)
-
 (defun bbdb-insinuate-sendmail ()
   "Call this function to hook BBDB into sendmail (that is, M-x mail)."
   (define-key mail-mode-map "\M-\t" 'bbdb-complete-name)
 
 (provide 'bbdb)  ; provide before loading things which might require
 
+(run-hooks 'bbdb-load-hook)
+
 (defmacro safe-require (thing)
   (list 'condition-case nil (list 'require thing) '(file-error nil)))
 
 (bbdb
-  (standards-version 1.0
+  (standards-version 1.1
    version VERSION
    author-version AUTHOR_VERSION
    date DATE
    build-date BUILD_DATE
    maintainer MAINTAINER
-   distribution stable
+   distribution xemacs
    priority medium
    category CATEGORY
    dump nil

texinfo/bbdb.texinfo

 @c %**end of header
 
 @c
-@c bbdb.texinfo,v 1.18 1998/04/11 07:36:10 simmonmt Exp
+@c bbdb.texinfo,v 1.20 1998/11/02 07:17:36 simmonmt Exp
 @c
 @c bbdb.texinfo,v
+@c Revision 1.20  1998/11/02 07:17:36  simmonmt
+@c Correct escaping of mailing list address
+@c
+@c Revision 1.19  1998/11/02 07:08:41  simmonmt
+@c Change mailing list address
+@c
 @c Revision 1.18  1998/04/11 07:36:10  simmonmt
 @c Added EOL list, EOL'd advertized-bbdb-delete-current-field-or-record
 @c and GNUS support.  Documented new bindings in *BBDB* buffer.
 @ifinfo
 This file documents the Insidious Big Brother Database
 
-This is edition 1.18 of the BBDB User Manual for BBDB version 2.00.
+This is edition 1.20 of the BBDB User Manual for BBDB version 2.00.03.
 
 Copyright (c) 1991-1994 Jamie Zawinski <jwz@@netscape.com>
 Copyright (c) 1997-1998 Matt Simmons <simmonmt@@acm.org>
 @titlepage
 @title BBDB User Manual
 @subtitle A phone number and address database program for Emacs
-@subtitle Edition 1.18, 1998/04/11 07:36:10
+@subtitle Edition 1.20, 1998/11/02 07:17:36
 
 @author by Jamie Zawinski and Matt Simmons
 @page
 Copyright @copyright{} 1997-1998 Matt Simmons <simmonmt@@acm.org>
 
 @sp 2
-This is edition 1.18 of the @cite{BBDB User Manual} for BBDB
-version 2.00, 1998/04/11 07:36:10.@refill
+This is edition 1.20 of the @cite{BBDB User Manual} for BBDB
+version 2.00, 1998/11/02 07:17:36.@refill
 
 @sp 2
 
 @section Mailing Lists
 
 There are two mailing lists for the @b{BBDB}.  The first is
-@code{bbdb-announce}, and is used for new release announcements, and as a
-result has very low traffic.  To subscribe to @code{bbdb-announce}, send mail
-to @code{bbdb-announce-request} with @samp{subscribe} as the subject.
-
-The second mailing list, @code{info-bbdb}, is gets moderate traffic, and is
+@code{bbdb-announce@@xemacs.org}, and is used for new release announcements, and as a
+result has very low traffic.  To subscribe to @code{bbdb-announce@@xemacs.org}, send mail
+to @code{bbdb-announce-request@@xemacs.org} with @samp{subscribe} as the subject.
+
+The second mailing list, @code{bbdb-info@@xemacs.org}, is gets moderate traffic, and is
 intended for the discussion and distribution of development versions of the
 @b{BBDB}.  Users of development versions of the @b{BBDB} should be subscribed
 to this list.  It is to this list that bugs should be reported.  @xref{Known
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.