From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/4578 Path: news.gmane.org!not-for-mail From: Uwe Brauer Newsgroups: gmane.emacs.gnus.user Subject: nnimap-generate-folder-list-from-bbdb, almost. Date: Wed, 23 Feb 2005 20:37:03 -0500 Message-ID: <874qg2n3gg.fsf@mat.ucm.es> Reply-To: Uwe Brauer NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1138670460 23848 80.91.229.2 (31 Jan 2006 01:21:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 01:21:00 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:33:59 2006 Original-Path: quimby.gnus.org!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-NNTP-Posting-Host: maportatil10.quim.ucm.es Original-X-Trace: quimby.gnus.org 1109187428 14111 147.96.7.218 (23 Feb 2005 19:37:08 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Wed, 23 Feb 2005 19:37:08 +0000 (UTC) X-Hashcash: 1:20:050224:gnu.emacs.gnus::HkKCaDETiWNCzWHG:0000000000000000000000000000000000000000000000005XK User-Agent: Gnus/5.110003 (No Gnus v0.3) XEmacs/21.4.17 (linux) Cancel-Lock: sha1:jUgwFWteSimPJsaFVqK3huFIhPk= Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:4719 Original-Lines: 198 X-Gnus-Article-Number: 4719 Tue Jan 17 17:33:59 2006 Xref: news.gmane.org gmane.emacs.gnus.user:4578 Archived-At: --=-=-= Hello Some weeks ago I asked for a function which would allow to generate a entry in the nnimap-split-fancy list, based on a relevant bbdb entry. I am almost there, that is I obtained a function (my:nnimap-folder-list-from-bbdb) --which I have added below-- Evaluation the function, that (eval-expression '(my:nnimap-folder-list-from-bbdb) nil) returns ( ("From" "bill@upct\\.es" "testbill") ^this is the relevant bbdb entry. ("From" "oub@mat\\.ucm\\.es" "testimap")) ^this is the relevant bbdb entry. Now the problem is I don't know who to add this to the nnimap-split-entry That variable is as follows: (setq nnimap-split-rule 'nnimap-split-fancy nnimap-split-inbox "INBOX" nnimap-split-fancy '(| ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ; ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ; ("To" " users@dba.openoffice.org" "OO-dba") ; ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ; ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ; ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split 'spam-use-BBDB 'spam-use-stat "SPAM.REAL") (: spam-split 'spam-use-regex-headers "SPAM.POSS") ;Version:1.10 (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split 'spam-use-BBDB "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX")) So I thought of either doing (defun my:nnimap-generate-folder-list-from-bbdb () "Sets 'nnimap-folder-list to the result of my:nnimap-folder-list-from-bbdb." (interactive) (add-to-list 'nnimap-split-fancy (my:nnimap-folder-list-from-bbdb) )) Which resulted in `nnimap-split-fancy' is a variable declared in Lisp. -- loaded from "nnimap" Value: ((("From" "oub@mat\\.ucm\\.es" "testimap")) | ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ("To" " users@dba.openoffice.org" "OO-dba") ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split (quote spam-use-BBDB) (quote spam-use-stat) "SPAM.REAL") (: spam-split (quote spam-use-regex-headers) "SPAM.POSS") (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split (quote spam-use-BBDB) "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX") which is wrong the new entry has to appear after the | symbol Or (defun my:nnimap-generate-folder-list-from-bbdb () "Sets 'nnimap-folder-list to the result of my:nnimap-folder-list-from-bbdb." (interactive) (add-to-list 'nnimap-split-fancy (my:nnimap-folder-list-from-bbdb) 'append)) Which results in `nnimap-split-fancy' is a variable declared in Lisp. -- loaded from "nnimap" Value: (| ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ("To" " users@dba.openoffice.org" "OO-dba") ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split (quote spam-use-BBDB) (quote spam-use-stat) "SPAM.REAL") (: spam-split (quote spam-use-regex-headers) "SPAM.POSS") (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split (quote spam-use-BBDB) "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX" (("From" "oub@mat\\.ucm\\.es" "testimap"))) Which is also bad, since it is the last entry. or (setq nnimap-split-rule 'nnimap-split-fancy nnimap-split-inbox "INBOX" nnimap-split-fancy '(| (: my:nnimap-folder-list-from-bbdb) ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ;DAS IST ES!!!! Jan 27, 2005 13:34 ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ; ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ; ("To" " users@dba.openoffice.org" "OO-dba") ; ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ; ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ; ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split 'spam-use-BBDB 'spam-use-stat "SPAM.REAL") (: spam-split 'spam-use-regex-headers "SPAM.POSS") ;Version:1.10 (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split 'spam-use-BBDB "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX")) That however gave an error I have attached below. (As I understand there are to may parenthesis generated.) I would appreciate any help on this subject. I think that function can be really convenient. Thanks Uwe Brauer --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=imap-split-bbdb-bug Content-Transfer-Encoding: base64 RGVidWdnZXIgZW50ZXJlZC0tTGlzcCBlcnJvcjogKGludmFsaWQtZnVuY3Rpb24gKG15Om5u aW1hcC1mb2xkZXItbGlzdC1mcm9tLWJiZGIpKQogICgobXk6bm5pbWFwLWZvbGRlci1saXN0 LWZyb20tYmJkYikpCiAgZXZhbCgoKG15Om5uaW1hcC1mb2xkZXItbGlzdC1mcm9tLWJiZGIp KSkKICBubm1haWwtc3BsaXQtaXQoKDogKG15Om5uaW1hcC1mb2xkZXItbGlzdC1mcm9tLWJi ZGIpKSkKICBubm1haWwtc3BsaXQtaXQoKHwgKDogKG15Om5uaW1hcC1mb2xkZXItbGlzdC1m cm9tLWJiZGIpKSAoIlN1YmplY3QiICIuKlxcW1BPU1NJTEJMRSBTUEFNXFxdLioiICJTUEFN LlBPU1MiKSAoIlN1YmplY3QiICIuKlxcPFxcW1BPU1NJQkxFLlNQQU1cXF1cXD4uKiIgIlNQ QU0uUE9TUyIpICgiU3ViamVjdCIgIlBPU0lCTEUgU1BBTSIgIlNQQU0uUE9TUyIpICgiU3Vi amVjdCIgIi4qXFxbbGFiZXN0MDVcXF0uKiIgIkxhYmVzdDA1IikgKCJUbyIgInhlbWFjcy1w YXRjaGVzQHhlbWFjcy5vcmciICJYZW1hY3MtcGF0Y2hlcyIpICgiU2VuZGVyIiAieGVtYWNz LXBhdGNoZXMtYm91bmNlc0B4ZW1hY3Mub3JnIiAiWGVtYWNzLXBhdGNoZXMiKSAoIlRvIiAi IHVzZXJzQGRiYS5vcGVub2ZmaWNlLm9yZyIgIk9PLWRiYSIpICgiU2VuZGVyIiAicHJldmll dy1sYXRleC1kZXZlbC1hZG1pbkBsaXN0cy5zb3VyY2Vmb3JnZS5uZXQiICJQcmV2aWV3LWxh dGV4IikgKCJTZW5kZXIiICJsaW51eC10aGlua3BhZC1hZG1pbkBsaW51eC10aGlua3BhZC5v cmciICJMaW51eC10aGlua3BhZCIpICgiRnJvbSIgIk1BX1F1aW1pY2FzQG1hdC51Y20uZXMi ICJTZWNyZXF1aSIpICgiRnJvbSIgIk1hdGVtYXRpY2FfQXBsaWNhZGFAbWF0LnVjbS5lcyIg IlNlY3JlbWF0IikgKDogc2V0cSBzcGFtLXVzZS1CQkRCLWV4Y2x1c2l2ZSBuaWwpICg6IHNw YW0tc3BsaXQgKHF1b3RlIHNwYW0tdXNlLUJCREIpIChxdW90ZSBzcGFtLXVzZS1zdGF0KSAi U1BBTS5SRUFMIikgKDogc3BhbS1zcGxpdCAocXVvdGUgc3BhbS11c2UtcmVnZXgtaGVhZGVy cykgIlNQQU0uUE9TUyIpICg6IHNldHEgc3BhbS11c2UtQkJEQi1leGNsdXNpdmUgdCBmYWtl LXZhcmlhYmxlIG5pbCkgKDogc3BhbS1zcGxpdCAocXVvdGUgc3BhbS11c2UtQkJEQikgIlNQ QU0uSEFNIikgKDogc2V0cSBzcGFtLXVzZS1CQkRCLWV4Y2x1c2l2ZSBuaWwpICJNQUlMQk9Y IikpCiAgbm5tYWlsLXNwbGl0LWZhbmN5KCkKICBubmltYXAtc3BsaXQtZmFuY3koKQogIG5u aW1hcC1zcGxpdC10by1ncm91cHMobm5pbWFwLXNwbGl0LWZhbmN5KQogIG5uaW1hcC1zcGxp dC1hcnRpY2xlcyhuaWwgInVjbWFpbC51Y20uZXMiKQogIG5uaW1hcC1yZXF1ZXN0LXNjYW4o bmlsICJ1Y21haWwudWNtLmVzIikKICBnbnVzLXJlcXVlc3Qtc2NhbihuaWwgKG5uaW1hcCAi dWNtYWlsLnVjbS5lcyIpKQogIGdudXMtcmVhZC1hY3RpdmUtZmlsZS0xKChubmltYXAgInVj bWFpbC51Y20uZXMiKSBuaWwpCiAgZ251cy1yZWFkLWFjdGl2ZS1maWxlKCkKICBnbnVzLWdy b3VwLWdldC1uZXctbmV3cyhuaWwpCiAgY2FsbC1pbnRlcmFjdGl2ZWx5KGdudXMtZ3JvdXAt Z2V0LW5ldy1uZXdzKQogIHJlY3Vyc2l2ZS1lZGl0KCkKICBieXRlLWNvZGUoIi4uLiIgW2J1 ZmZlci1yZWFkLW9ubHkgbm9uaW50ZXJhY3RpdmUgZGVidWdnZXItYnVmZmVyIG1pZGRsZXN0 YXJ0IGRlYnVnZ2VyLWFyZ3MgZGVidWdnZXItYmF0Y2gtbWF4LWxpbmVzIHBvcC10by1idWZm ZXIgZGVidWdnZXItbW9kZSBkZWJ1Z2dlci1zZXR1cC1idWZmZXIgY291bnQtbGluZXMgMiAi Li4uXG4iIG1lc3NhZ2UgYnVmZmVyLXN0cmluZyBraWxsLWVtYWNzIGRlYnVnIGJhY2t0cmFj ZS1kZWJ1ZyAzIHQgZGVidWdnZXItcmVlbmFibGUgIiIgbmlsIHJlY3Vyc2l2ZS1lZGl0IHN0 YW5kYXJkLW91dHB1dF0gMykKICBkZWJ1ZyhlcnJvciAodm9pZC1mdW5jdGlvbiBmb2xkaW5n LWZvbGQtcmVnaW9uKSkK --=-=-=--