Re: Moving BBDB from CVS to BZR

2008-03-11 Thread Stefan Reichör
Ronan Waide [EMAIL PROTECTED] writes:

 On 10 Mar 2008, at 22:17, Robert Widhopf-Fenk wrote:

 Hi,

 I think about moving the BBDB repository from CVS to BZR and
 host it on https://launchpad.net instead of sourceforge.net.

 Actually, I use BZR internally already for BBDB and do a
 somewhat painful syncing with CVS ...

 But I have the feeling that there are several or even many
 people on the list which still use CVS to get up to date and
 I do not intend to make it painfully for you, but I intend
 to remove write access for all developers except me, as this
 would require just one way syncing which is much easier.


 If your only reason for doing this is to make it more convenient for  
 you as a developer, I don't think that's sufficient reason to do it.  
 If you're providing others with software, your first thought should be  
 how it affects them.

I think moving to bzr is a very good idea. bzr is very easy to use for
people who like to download bbdb. And it is easier for people to
contribute code than using cvs.


Stefan.


-
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse012070mrt/direct/01/
___
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/


Re: Appending bbdb queries

2003-03-06 Thread Stefan Reichör
Please change the Subject header to a concise bug description.
In this report, remember to cover the basics, that is, what you expected to
happen and what in fact did happen.  Please remove these
instructions from your message.

Hi,
I use the latest emacs from CVS under windows.
I use bbdb and I found out, that the bbdb append feature does not
work with my emacs.
I tried the same feature on my debian box with the latest debian
emacs packages. It works on debian.

Here is the recipe for the test (in a bbdb buffer):
I type:
b search-string1 RET
+ b search-string2 RET

But the second search always clears the first one and I get only the
results of the second search.

On linux (emacs21.2.2) I get the correct result:
records with search-string1 and search-string2 are shown.


I started to debug the bbdb query.
Here is, what I found out:
* In the function bbdb-display-records-1, there is a call to
  with-output-to-temp-buffer.
* Before the call to this function, the variable bbdb-records
  contains the already visible bbdb-entries.
* After the call to with-output-to-temp-buffer, the variable
  bbdb-records is nil
  + On linux this variable has still the same value as before
  + I fixed the problem with the new variable xbbdb-records
* My question is now, is this a bug of with-output-to-temp-buffer?

I sent the things I found out to the emacs developers, here is the
response from RMS:

RMS You need to report this to the bbdb maintainers.  We don't
RMS know the code of bbdb.  It could be that this is an Emacs bug,
RMS but we cannot afford to study the code of bbdb to investigate it.
RMS 
RMS If the bbdb maintainers find that the bug seems to be in Emacs,
RMS they need to provide us with a precise test case that doesn't
RMS involve using bbdb.  Then we can take it the rest of the way.


My changed function looks like this:

(defun bbdb-display-records-1 (records optional append layout)
  (setq append (or append (bbdb-append-records-p)))
  (if (or (null records)
  (consp (car records)))
  nil

;; add layout and a marker to the local list of records
(setq layout (or layout bbdb-display-layout))
(setq records (mapcar (lambda (x)
(list x layout (make-marker)))
  records)))

  (let ((b (current-buffer))
(temp-buffer-setup-hook nil)
(temp-buffer-show-hook nil)
(xbbdb-records (copy-alist bbdb-records))
(first (car (car records
;;(message xbbdb-records: %S xbbdb-records)
;;(message bbdb-records: %S bbdb-records)

;;05.03.2003, XSteve, with-output-to-temp-buffer seems to
;; destroy the binding of bbdb-records on windows emacs, cvs version...
;; so use xbbdb-records - this works
(with-output-to-temp-buffer bbdb-buffer-name
  (set-buffer bbdb-buffer-name)
  ;;(message xbbdb-records: %S xbbdb-records)
  ;;(message bbdb-records: %S bbdb-records)
  
  ;; If append is unset, clear the buffer.
  (unless append
(bbdb-undisplay-records))

  ;; If we're appending these records to the ones already displayed,
  ;; then first remove any duplicates, and then sort them.
  (if append
  (let ((rest records))
(while rest
  (if (assq (car (car rest)) xbbdb-records)
  (setq records (delq (car rest) records)))
  (setq rest (cdr rest)))
(setq records (append xbbdb-records records))
(setq records
  (sort records
(lambda (x y) (bbdb-record-lessp (car x) (car y)))
  (make-local-variable 'mode-line-buffer-identification)
  (make-local-variable 'mode-line-modified)
  (set (make-local-variable 'bbdb-showing-changed-ones) nil)
  (let ((done nil)
(rest records)
(changed (bbdb-changed-records)))
(while (and rest (not done))
  (setq done (memq (car (car rest)) changed)
rest (cdr rest)))
(setq bbdb-showing-changed-ones done))
  (bbdb-frob-mode-line (length records))
  (and (not bbdb-gag-messages)
   (not bbdb-silent-running)
   (message Formatting...))
  (bbdb-mode)
  ;; this in in the *BBDB* buffer, remember, not the .bbdb buffer.
  (set (make-local-variable 'bbdb-records) nil)
  (setq bbdb-records records)
  (let ((buffer-read-only nil)
prs)
(bbdb-debug (setq prs (bbdb-records)))
(setq truncate-lines t)
(while records
  (bbdb-debug (if (not (memq (car (car records)) prs))
  (error record doubleplus unpresent!)))
  (set-marker (nth 2 (car records)) (point))
  (bbdb-format-record (nth 0 (car records))
  (nth 1 (car records)))
  (setq records (cdr records
  (and (not bbdb-gag-messages)
   (not bbdb-silent-running)
   (message Formatting...done.))
  )
(set-buffer bbdb-buffer-name)

Appending bbdb queries

2003-03-03 Thread Stefan Reichör
Hi,

I use bbdb from cvs.
I want to append the new search results to the already displayed bbdb
records.

I type:
b search-string1 RET
+ b search-string2

But the second search always clears the first one and I get only the
results of the second search.

Do I use the append feature the right way? Does this recipe work
someone else?

thanks for any comments, suggestions

  Stefan.



---
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
___
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/


Re: spam

2003-02-26 Thread Stefan Reichör
On Thu, 27 Feb 2003, Alex Schroeder told this:

  We've had the discussion before -- the mailing list works fine for
  me. I just filter the crap. I use statistical spam filtering for
  Gnus, but I also have a very simple splitting rule that does away
  with all Korean mails. Try it. It works. :)
  
  Alex.
  

Alex,
could you please post your splitting rule for the Korean mails!

Thanks,
  Stefan.



---
This SF.net email is sponsored by: Scholarships for Techies!
Can't afford IT training? All 2003 ictp students receive scholarships.
Get hands-on training in Microsoft, Cisco, Sun, Linux/UNIX, and more.
www.ictp.com/training/sourceforge.asp
___
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/


Re: Error when changing the email address of an record

2002-04-03 Thread Stefan Reichör

Ronan Waide [EMAIL PROTECTED] writes:


 Hi Stefan,

 any chance you could give me a full stack trace from an uncompiled
 BBDB? The message above isn't particularly useful on its own,
 especially since I can't seem to reproduce the bug.

 Cheers,
 Waider.

O.k. I tried it again with the following record:
Dummy Foo
net: [EMAIL PROTECTED], [EMAIL PROTECTED]


-- in the .bbdb

[Dummy Foo nil nil nil nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) ((creation-date . 
2002-04-04) (timestamp . 2002-04-04)) nil]




Debugger entered--Lisp error: (wrong-type-argument arrayp ([Dummy Foo nil nil nil 
nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) ((creation-date . 2002-04-04) (timestamp . 
2002-04-04)) [Dummy Foo nil #marker at 1499 in .bbdb nil]]))
  aref(([Dummy Foo nil nil nil nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) (... ...) [Dummy 
Foo nil #marker at 1499 in .bbdb nil]]) 8)
  (bbdb-record-cache record)
  (aref (bbdb-record-cache record) 0)
  (bbdb-cache-namecache (bbdb-record-cache record))
  (or (bbdb-cache-namecache (bbdb-record-cache record)) (bbdb-record-name-1 record))
  bbdb-record-name(([Dummy Foo nil nil nil nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) (... 
...) [Dummy Foo nil #marker at 1499 in .bbdb nil]]))
  (error net address \%s\ is used by \%s\ (car rest) (bbdb-record-name old))
  (if (and old (not ...)) (error net address \%s\ is used by \%s\ (car rest) 
(bbdb-record-name old)))
  (let ((old ...)) (if (and old ...) (error net address \%s\ is used by \%s\ ... 
...)))
  (while rest (let (...) (if ... ...)) (setq rest (cdr rest)))
  (let ((rest newnets)) (while rest (let ... ...) (setq rest ...)))
  (if bbdb-no-duplicates-p (let (...) (while rest ... ...)))
  (let ((oldnets ...) (newnets ...)) (if bbdb-no-duplicates-p (let ... ...)) (let 
(...) (while rest ... ...)) (let (...) (while nets ... ...)) (bbdb-record-set-net 
bbdb-record newnets))
  (let ((str ...)) (let (... ...) (if bbdb-no-duplicates-p ...) (let ... ...) (let ... 
...) (bbdb-record-set-net bbdb-record newnets)))
  bbdb-record-edit-net([Dummy Foo nil nil nil nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) 
((creation-date . 2002-04-04) (timestamp . 2002-04-04)) [Dummy Foo nil #marker 
at 1499 in .bbdb nil]])
  (cond ((eq field ...) (bbdb-record-edit-name record)) ((eq field ...) 
(bbdb-record-edit-company record)) ((eq field ...) (bbdb-record-edit-net record)) ((eq 
field ...) (bbdb-record-edit-aka record)) ((eq field ...) (bbdb-record-edit-phone 
which location)) ((eq field ...) (bbdb-record-edit-address which location)) ((eq field 
...) (bbdb-record-edit-property record ...)) (t (error doubleplus ungood: unknown 
field type %s field)))
  bbdb-record-edit-field-internal([Dummy Foo nil nil nil nil ([EMAIL PROTECTED] 
[EMAIL PROTECTED]) ((creation-date . 2002-04-04) (timestamp . 2002-04-04)) [Dummy 
Foo nil #marker at 1499 in .bbdb nil]] net)
  apply(bbdb-record-edit-field-internal [Dummy Foo nil nil nil nil ([EMAIL PROTECTED] 
[EMAIL PROTECTED]) ((creation-date . 2002-04-04) (timestamp . 2002-04-04)) [Dummy 
Foo nil #marker at 1499 in .bbdb nil]] net)
  (setq need-to-sort (apply (quote bbdb-record-edit-field-internal) record field))
  (let* ((record ...) (field ...) need-to-sort) (or field (error on an unfield)) 
(setq need-to-sort (apply ... record field)) (bbdb-change-record record need-to-sort) 
(bbdb-redisplay-one-record record))
  bbdb-edit-current-field()
* call-interactively(bbdb-edit-current-field)


___
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/



Error when changing the email address of an record

2002-03-26 Thread Stefan Reichör


I have a bbdb entry with 2 email addresses.
When I want to change the net addresses I hit e over the net line.
When I just hit enter to keep the current net address I get an error:

bbdb-record-edit-net: Wrong type argument: arrayp, ([Stefan Reichör nil nil nil 
nil ([EMAIL PROTECTED] [EMAIL PROTECTED]) ((creation-date . 2001-05-03) (timestamp . 
2002-01-11) (notes . Wartberg)) [Stefan Reichör nil #marker at 5945 in .bbdb 
nil]])

I have the following entry:

Stefan Reichör
net: [EMAIL PROTECTED], [EMAIL PROTECTED]




Emacs  : GNU Emacs 21.2.50.1 (i386-msvc-nt5.0.2195)
 of 2002-03-26 on HEIDI
Package: BBDB 2.35

current state:
==
(setq
 emacs-version 21.2.50.1
 bbdb-version-date $Date: 2002/02/04 11:36:41 $
 bbdb-file-format 6
 bbdb-no-duplicates-p t
 bbdb-address-editing-function 'bbdb-address-edit-default
 bbdb-address-formatting-alist '((bbdb-address-is-continental . 
bbdb-format-address-continental)
 (nil . bbdb-format-address-default))
 bbdb-addresses-label-list '(Home Office Mobile Other Tragwein Freistadt 
Adresse
 Hauptstraße 117 Linz Hagenberg Wartberg RIIC 
LCM
 Kundenbüro Privat)
 bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
 bbdb-after-read-db-hook nil
 bbdb-always-add-addresses nil
 bbdb-auto-revert-p nil
 bbdb-canonicalize-net-hook nil
 bbdb-canonicalize-redundant-nets-p t
 bbdb-case-fold-search t
 bbdb-change-hook 'bbdb-timestamp-hook
 bbdb-check-zip-codes-p t
 bbdb-complete-name-allow-cycling nil
 bbdb-complete-name-full-completion 5
 bbdb-complete-name-hooks '(ding)
 bbdb-completion-display-record t
 bbdb-completion-type nil
 bbdb-continental-zip-regexp ^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]
 bbdb-create-hook 'bbdb-creation-date-hook
 bbdb-default-area-code nil
 bbdb-default-country Emacs
 bbdb-default-domain nil
 bbdb-default-label-list '(Home Office Mobile Other)
 bbdb-define-all-aliases-field 'mail-alias
 bbdb-define-all-aliases-mode 'first
 bbdb-dial-local-prefix nil
 bbdb-dial-local-prefix-alist '(((if bbdb-default-area-code
  (format (%03d) bbdb-default-area-code) )
 )
)
 bbdb-dial-long-distance-prefix nil
 bbdb-display-layout nil
 bbdb-display-layout-alist '((one-line (order phones mail-alias net notes) (name-end . 
24)
  (toggle . t))
 (multi-line (omit creation-date timestamp) (toggle . t))
 (full-multi-line))
 bbdb-dwim-net-address-allow-redundancy t
 bbdb-electric-p nil
 bbdb-expand-mail-aliases t
 bbdb-extract-address-component-handler 'message
 bbdb-extract-address-component-ignore-regexp 
\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input
 bbdb-extract-address-component-regexps '((\\\([^\]*\\)\\\s-*\\([^]+\\)
   (car
(mail-extract-address-components
 (concat \ (match-string 1 adstring) 
\))
)
   2)
  (\\([^,][^,]+[^,   
]\\)\\s-*\\([^]+\\) 1
   2)
  (\\([^,]+\\) nil 1)
  (\\(\\b[^\,()]+\\b\\)\\s-*(\\([^)]+\\))
   (car
(mail-extract-address-components
 (concat \ (match-string 2 adstring) 
\))
)
   1)
  (\\b\\(\\([^@\n.]+\\.[^@ 
\n.]+\\)@[^@\n]+\\)\\b
   (car

   
  (mail-extract-address-components
   
   
   
   
   
   (concat

Re: noticed count??

2002-01-02 Thread Stefan Reichör

Ronan Waide [EMAIL PROTECTED] writes:

 On December 29, [EMAIL PROTECTED] said:
 
 H, Is there any waty to link multiple records together?  I have
 several people that I exchange xmas cards with, and want to be able to
 link Mr and Mrs Smith together so I only send one card...  Or
 sometimes I want to send mail to three people and their spouses, and
 it would be nice to be able to do something like that
 
 Warner

 I have a patch floating around in my collection of bits for some sort
 of heirarchical hackery with records so you can, I guess, link a whole
 group of people to a single address such as you might wish to do for a
 company. However, it's been a while since the patch was made, so it
 probably won't apply cleanly to the current tree. On top of which, I'm
 currently attempting to squish bugs rather than add features, because
 it's been far too long since the last release.

 Cheers,
 Waider.

I would also like a functionality to group some addresses together.
It would be nice if an address could be in more than one group.

I think this could be implemented with an extra field called
category or group. This field should hold a list of the groups
this address belongs to.

Stefan.


___
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/