Re: "Record %s does not exist"

[Sam S. <sd...@gn...>]

> * Sam Steingold <fq...@ta...> [2012-09-13 17:53:49 -0400]:
>
> I created a record and now I get these:
>
>   error("Record %s does not exist" [nil nil nil nil nil nil nil
> ("Ch...@al...") ((creation-date . "2012-09-13 21:38:52
> +0000")) [#1="" #1# nil nil]])
>   bbdb-display-records(([nil nil nil nil nil nil nil
> ("Ch...@al...") ((creation-date . "2012-09-13 21:38:52
> +0000")) [#1="" #1# nil nil]]) nil nil nil (lambda (window)
> (with-current-buffer (window-buffer window) (eq major-mode (quote
> gnus-article-mode)))))
>   bbdb-mua-auto-update()
>   run-hooks(gnus-article-prepare-hook)
>   apply(run-hooks gnus-article-prepare-hook)
>   gnus-run-hooks(gnus-article-prepare-hook)
>
> the record is precisely as I want it: it does not have a name because no
> name was provided in the message it was created from.


(defun sds-bbdb-add-name (rec name)
  "Decide whether to change the record name."
  (let ((n1 (bbdb-record-firstname rec))
        (nl (bbdb-record-lastname rec)))
    (cond ((and (null n1) (null nl)) t)
          ((or (string= n1 name) (string= nl name)) nil)
          (t 'query))))
(setq 'bbdb-add-name 'sds-bbdb-add-name)

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
http://www.childpsy.net/ http://mideasttruth.com
http://honestreporting.com http://iris.org.il http://palestinefacts.org
There are two ways to write error-free programs; only the third one works.