The variable bbdb-auto-notes-alist can't be customized properly as it stands.
I've attached a patch below that fixes this (in a kludgy sort of way).  My
`:tag' strings might need a wee bit of massage.

Henrik
-- 
I always have fun because I'm out of my mind!!!

--- /usr/local/share/emacs/site-lisp/bbdb-2.33/lisp/bbdb-hooks.el.orig	Sat May 19 09:00:21 2001
+++ /usr/local/share/emacs/site-lisp/bbdb-2.33/lisp/bbdb-hooks.el	Wed Jul 25 03:52:51 2001
@@ -306,12 +306,27 @@
 
 See also variables `bbdb-auto-notes-ignore' and `bbdb-auto-notes-ignore-all'."
   :group 'bbdb-noticing-records
-  :type '(repeat (bbdb-alist-with-header
-          (string :tag "Header name")
-          (repeat (cons
-               (regexp :tag "Regexp to match on header value")
-               (string :tag "String for notes if regexp matches")))
-          )))
+  :type '(repeat
+          (bbdb-alist-with-header
+           (string :tag "Header name")
+           (repeat (choice
+                    (const nil)
+                    (cons :tag "Value Pair"
+                          (regexp :tag "Regexp to match on header value")
+                          (string :tag "String for notes if regexp matches"))
+                    (list :tag "Replacement list"
+                          (regexp :tag "Regexp to match on header value")
+                          (choice :tag "Record field"
+                                  (const notes :tag "Notes")
+                                  (const company :tag "Company")
+                                  (symbol :tag "Other"))
+                          (choice :tag "Regexp match"
+                                  (string :tag "Replacement string")
+                                  (integer :tag "Subexpression match")
+                                  (function :tag "Callback Function"))
+                          (choice :tag "Replace previous contents"
+                                  (const :tag "No" nil)
+                                  (const :tag "Yes" t))))))))
 
 (defcustom bbdb-auto-notes-ignore nil
   "Alist of headers and regexps to ignore in `bbdb-auto-notes-hook'.

Reply via email to