Aldo Valente writes:
> Long time ago i used bbdb-sound-player to start my own dial script. I
> remember that i even cut out all area code stuff. Now it's gone.
>
> I just need a function which starts an external Script when i press
> M-d.
>
> My bbdb is now v2.32. Since i have some more problems, i would like
> to know which version i should take.
OK, reading the Website, i installed vm 2.34. After that, i got
really strange effects. Finally i cut out everything i didn't needed
from bbdb-com.el
>>>>>>>>>>>>>>>>>>>>>
(defun bbdb-dial-number (phone-string)
"Play the touchtone corresponding to the numbers in string."
(interactive "sTelephonenumber: ")
(let ((length (length phone-string))
(position 0)
(modem-command bbdb-modem-dial)
number)
(call-process bbdb-sound-player nil nil nil
phone-string)
(if bbdb-modem-dial
(with-temp-buffer
(insert modem-command ";\r\n")
(write-region (point-min) (point-max) bbdb-modem-device t)
(message "%s dialed. Pick up the phone now and hit any key ..."
phone-string)
(bbdb-next-event)
(erase-buffer)
(insert "ATH\r\n")
(write-region (point-min) (point-max) bbdb-modem-device t)
))
))
<<<<<<<<<<<<<<<<<<<
This is basically everything i need. I switched to modemdialing,
because i want this 'Press any Key' Feature.
Signaling: (file-error "Lseek error" "No such file or directory" "/dev/modem")
write-region-internal(1 9 "/dev/modem" t nil nil iso-2022-8)
write-region(1 9 "/dev/modem" t)
(save-current-buffer (set-buffer temp-buffer) (insert modem-command ";
\n")
(write-region (point-min) (point-max) bbdb-modem-device t) (message "%s dialed. Pick
up the phone now and hit any key ..." phone-string) (bbdb-next-event) (erase-buffer)
(insert "ATH
\n") (write-region (point-min) (point-max) bbdb-modem-device t))
[...]
Of course, /dev/modem exists as a symlink, my dial.sh (Value of
bbdb-sound-player) works with this file, setting bbdb-modem-device to
the real thing /dev/ttyS1 doesn't work either.
My problem with dialing is solved. Could someone please make
bbdb-external-dialing-script as an Option, so i dont have to do the
same Steps again?
Aldo
PS: i still can't merge two records. What's wrong?
Signaling: (invalid-function (bbdb-refile-notes-string-least))
(bbdb-refile-notes-string-least)("1998-07-09" "2001-11-26")
funcall((bbdb-refile-notes-string-least) "1998-07-09" "2001-11-26")
(setcdr tmp (funcall (or ... bbdb-refile-notes-default-merge-function) (cdr tmp)
(cdr ...)))
(if (setq tmp (assq ... n1)) (setcdr tmp (funcall ... ... ...)) (setq n1 (nconc n1
...)))
(while n2 (if (setq tmp ...) (setcdr tmp ...) (setq n1 ...)) (setq n2 (cdr n2)))
(progn (or (listp n1) (setq n1 ...)) (or (listp n2) (setq n2 ...)) (while n2 (if ...
... ...) (setq n2 ...)) (bbdb-record-set-raw-notes new-record n1))
(or (equal n1 n2) (progn (or ... ...) (or ... ...) (while n2 ... ...)
(bbdb-record-set-raw-notes new-record n1)))
(let ((n1 ...) (n2 ...) tmp) (or (equal n1 n2) (progn ... ... ... ...)))
(let ((name ...) (comp ...)) (if extra-name (setq old-aka ...))
(bbdb-record-set-phones new-record (bbdb-merge-lists! ... ... ...))
(bbdb-record-set-addresses new-record (bbdb-merge-lists! ... ... ...))
(bbdb-record-set-company new-record comp) (let (... ... tmp) (or ... ...))
(bbdb-record-set-firstname new-record (car name)) (bbdb-record-set-lastname new-record
(cdr name)) (bbdb-record-set-namecache new-record nil) (bbdb-record-set-net new-record
(bbdb-merge-lists! ... old-nets ... ...)) (bbdb-record-set-aka new-record
(bbdb-merge-lists! ... old-aka ... ...)) new-record)
(let ((new-name ...) (new-co ...) (old-name ...) (old-co ...) (old-nets ...)
(old-aka ...) extra-name) (let (... ...) (if extra-name ...) (bbdb-record-set-phones
new-record ...) (bbdb-record-set-addresses new-record ...) (bbdb-record-set-company
new-record comp) (let ... ...) (bbdb-record-set-firstname new-record ...)
(bbdb-record-set-lastname new-record ...) (bbdb-record-set-namecache new-record nil)
(bbdb-record-set-net new-record ...) (bbdb-record-set-aka new-record ...) new-record))
bbdb-merge-records([nil nil nil nil nil nil ("[EMAIL PROTECTED]")
((creation-date . "2001-11-26") (timestamp . "2001-11-26")) [nil nil #<marker at 74 in
.bbdb 0x8a813f4> nil]] ["Jofried" "Gfoobar" nil nil (["Work" "+49-228-1800666666-11"])
nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]"
"[EMAIL PROTECTED]") ((creation-date . "1998-07-09") (timestamp . "2000-11-07")
(palm . "work")) ["Jofried Gfoobar" nil #<marker at 32003 in .bbdb 0x8b3e61c> nil]])
(setq new-record (bbdb-merge-records old-record new-record))
(lambda (old-record new-record) "Merge the current record into some other record;
that is, delete the\nrecord under point after copying all of the data within it into
some other\nrecord. this is useful if you realize that somehow a redundant record
has\ngotten into the database, and you want to merge it with another.\n\nIf both
records have names and/or companies, you are asked which to use.\nPhone numbers,
addresses, and network addresses are simply concatenated.\nThe first record is the
record under the point; the second is prompted for.\nCompletion behaviour is as
dictated by the variable `bbdb-completion-type'." (interactive (let ... ... ...)) (if
(or ... ...) (error "those are the same")) (setq new-record (bbdb-merge-records
old-record new-record)) (bbdb-delete-current-record old-record (quote noprompt))
(bbdb-change-record new-record t) (let (...) (if ... ...) (bbdb-with-db-buffer ...)
(if ... ...)) (message "records merged."))([nil nil nil nil nil nil
("[EMAIL PROTECTED]") ((creation-date . "2001-11-26") (timestamp .
"2001-11-26")) [nil nil #<marker at 74 in .bbdb 0x8a813f4> nil]] ["Jofried" "Gfoobar"
nil nil (["Work" "+49-228-99999"]) nil ("[EMAIL PROTECTED]"
"jgfoobar<[EMAIL PROTECTED]" "[EMAIL PROTECTED]") ((creation-date .
"1998-07-09") (timestamp . "2000-11-07") (palm . "work")) ["Jofried Gfoobar" nil
#<marker at 32003 in .bbdb 0x8b3e61c> nil]])
call-interactively(bbdb-refile-record)
�u��~�b��,���y�+��m����+-��.�ǟ�� ���+-��b�ا~��m���0G�g�j������n�.�ǟ�� ��
