Re: [patch] Completion hook with completed net as argument.

[Johann 'Myrkraverk' Oskarsson]

[EMAIL PROTECTED] writes:
 > Please post your patch.

Here it is, it contains something more than the patch for the hook
itself, but iirc, relavitely minor changes otherwise.

I can clean it up if you wish.


? autom4te.cache
? testing/Makefile
? texinfo/dir
Index: lisp/bbdb-com.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v
retrieving revision 1.170
diff -u -r1.170 bbdb-com.el
--- lisp/bbdb-com.el    22 Mar 2004 15:18:33 -0000      1.170
+++ lisp/bbdb-com.el    17 Oct 2004 23:07:13 -0000
@@ -1858,7 +1858,7 @@
                  (const :tag "Allow redundancy" t)))
 
 ;;;###autoload
-(defun bbdb-dwim-net-address (record &optional net)
+(defun bbdb-dwim-net-address (record &optional net skip-backslash)
   "Returns a string to use as the email address of the given record.  The
 given address is the address the mail is destined to; this is formatted like
 \"Firstname Lastname <addr>\" unless both the first name and last name are
@@ -1881,10 +1881,11 @@
       (setq fn (bbdb-record-firstname record)
             ln (bbdb-record-lastname record)))
     ;; if the name contains backslashes or double-quotes, backslash them.
-    (if name
-        (while (setq i (string-match "[\\\"]" name i))
-          (setq name (concat (substring name 0 i) "\\" (substring name i))
-                i (+ i 2))))
+    (unless skip-backslash
+      (if name
+         (while (setq i (string-match "[\\\"]" name i))
+           (setq name (concat (substring name 0 i) "\\" (substring name i))
+                 i (+ i 2)))))
     (cond ((eq 'netonly bbdb-dwim-net-address-allow-redundancy)
            net)
           ((or (null name)
@@ -2267,6 +2268,12 @@
   :group 'bbdb-mua-specific
   :type 'boolean)
 
+(defcustom bbdb-complete-net-hook nil
+  "List of functions called after a successful completion with `net'
+as argument."
+  :group 'bbdb-mua-specific
+  :type 'boolean)
+
 (defcustom bbdb-complete-name-hooks nil
   "List of functions called after a sucessful completion."
   :group 'bbdb-mua-specific
@@ -2381,7 +2388,9 @@
                     ;; replace with new mail address
                     (delete-region beg end)
                     (insert (bbdb-dwim-net-address rec this-addr))
+                   (run-hook-with-args 'bbdb-complete-net-hook this-addr)
                     (run-hooks 'bbdb-complete-name-hooks)
+
                     (throw 'bbdb-cycling-exit t))))))
 
           ;; FALL THROUGH
@@ -2469,6 +2478,12 @@
                       (forward-char 1)
                       (insert "\n   "))))))
 
+       (run-hook-with-args 'bbdb-complete-net-hook
+                           (let ((net (bbdb-record-net (car match-recs))))
+                             (if (listp net)
+                                 (car net)
+                               net)))
+
         ;; Update the *BBDB* buffer if desired.
         (if bbdb-completion-display-record
             (let ((bbdb-gag-messages t))

Johann