Hi Erik, I've run with the changed IMAP filter folder and it looks fine, except one important issue: With this patch in place WL will throw an error when creating a "stacked" filter folder. E.g. I have a folder /tocc:wl-en/%Inbox, enter the folder and want to limit the summary to all messages sent since 2011-01-01. I press V since RET 2011-01-01 RET and elmo-imap throws the attached error. When creating such folders WL simply prepends the filter condition to the existing folder. E.g. /tocc:wl-en/%Inbox => /since:2011-01-01//tocc:wl-en/%Inbox Best, -- David -- OpenPGP... 0x99ADB83B5A4478E6 Jabber.... dmjena@jabber.org Email..... dmaus@ictsoc.de
Debugger entered--Lisp error: (wrong-number-of-arguments (lambda (session a b) "Return a search that returns the intersection of A and B in SESSION.
SESSION is an imap session.
A is the result of a call to elmo-imap4-search-generate.
B is the result of a call to elmo-imap4-search-generate.
A search is either a list of UIDs or a list of the form (CHARSET
IMAP-SEARCH-COMMAND ...) which is to be evaluated at a future
time." (if (elmo-imap4-search-mergeable\? a b) (append (list (elmo-imap4-search-mergeable-charset a b)) (cdr a) (quote (" ")) (cdr b)) (elmo-list-filter (elmo-imap4-search-perform session a) (elmo-imap4-search-perform session b)))) 2)
elmo-imap4-search-generate-and((nil "uid 7513:7514,7518,7521:7522,7595:7596,7655,7721,7730,7733,7737:7738,7754,7760,7762,7795,7811:7814,7853:7854,7864,7874,7891:7892,7897:7898,7954,7956,7958,7960,7963,8001:8002,8004:8005,8010:8013,8088,8099,8102,8119:8120,8239,8255,8339,8341,8375,8382:8383,8388,8399,8402,8468:8469,8486:8487,8495,8502,8504,8518:8519,8527:8528,8560,8564:8568,8572,8575,8580:8581,8611:8612,8629,8725:8726,8765:8766,8867:8868,8870,9011,9023,9025,9057,9062:9064,9086:9087,9127,9193,9207:9208,9238:9239,9265:9269,9284,9292,9319,9380,9484,9516:9518,9549:9550,9599,9601:9602,9647:9648,9676,9680:9682,9765,9812,9814,9990:9991,10005:10006,10121,10123:10124,10222,10230:10231,10262:10263,10271:10273,10288,10294,10296,10299:10302,10304:10306,10312,10314:10315,10321,10325:10328,10334:10335,10341,10349,10389,10397:10398,10402,10449:10450,10559,10561,10573:10574,10580:10581,10589:10590,10596:10600,10602:10609,10612,10615:10617,10621:10623,10629,10640:10643,10646:10648,10654,1067
5:10679,10683,10695,10751,10793,10798,10800:10801,10809,10813,10815,10821,10859:10860,10873,10881:10883,10887,10894:10895,10899,10912,11019,11079:11080,11091,11131:11132,11134,11137,11143,11146:11147,11162:11165,11167:11168,11194:11195,11197,11202,11204,11284,11317,11410,11501,11544:11545,11550,11553:11556,11558:11559,11569:11570,11609,11614:11615,11632,11677:11678,11706,11716,11720,11755,11769,11805,11810:11811,11813:11814,11824,11832,11834:11835,11910,11917:11921,11923:11924,11926:11927,11937,11957:11958,11960:11961,11963:11964,11966:11968,11970,11972:11974,12012,12014:12017,12020:12021,12025,12027:12034,12040:12043,12046:12047,12055,12057,12063,12065:12070,12072:12090,12101,12104:12106,12108,12113:12114,12119,12121:12125,12130,12132:12135,12141:12144,12147,12149,12154,12164:12165,12167,12173,12177:12178,12180:12181,12184,12190:12191,12193:12196,12198,12200,12202:12211,12214:12217,12219:12225,12228:12229,12232,12243,12262,12268,12273,12278:12280,12282:12284,12323,12332,123
36,12339:12340,12346:12350,12353:12355,12358:12362,12370,12380,12388,12392,12394:12395,12412:12414,12425,12427:12428,12479,12481,12505,12518,12522:12525,12528,12552:12553,12558:12560,12563:12566,12568,12571:12572,12578,12580,12582,12597,12604,12606,12613:12617,12621:12622,12628:12629,12637:12640,12642,12650,12656:12657,12677:12678,12680:12686,12691:12695,12697:12699,12701:12704,12706:12707,12715:12717,12727,12730:12732,12740:12747,12750:12751,12755,12757,12760,12762,12764,12766:12767,12770:12771,12773,12775,12779,12782:12791,12793:12801,12803:12810,12823:12829,12833:12834,12836:12839,12842,12848:12850,12852:12856,12861:12862,12871,12874,12880:12881,12890:12894,12904:12906,12910:12911,12918,12920:12921,12933,12935:12936,12943:12949,12960:12961,12966,12970,12978,12983,12995:12996,13019:13022,13032,13036:13038,13040:13044,13053,13056:13060,13066,13068:13071,13082:13084,13088,13091:13093,13100:13101,13106:13108,13111:13113,13118,13121:13122,13125,13128:13130,13133,13145:13147,13
180:13181,13190,13211,13252,13259:13260,13264,13267:13268,13272,13274,13277,13280:13282,13286,13288:13289,13291,13293,13297,13300,13322:13324,13348,13350,13660,13805,13821,13920:13923,13952,14046,14051:14052,14099,14130,14157,14194:14195") (nil "" "sentsince" " " "1-JAN-2011"))
(if from-msgs (elmo-imap4-search-generate-and (elmo-imap4-search-generate-uid from-msgs) (elmo-imap4-search-generate folder condition from-msgs)) (elmo-imap4-search-generate folder condition from-msgs))
(let* ((imap-search ...)) (when imap-search (elmo-imap4-search-perform session imap-search)))
elmo-imap4-search-internal([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] [elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.xlhost.de" 993 "dmaus@ictsoc.de" clear ("!" ssl ssl open-ssl-stream) #<process IMAP> nil (19818 42153 305039) (imap4rev1 uidplus children namespace thread=orderedsubject thread=references sort quota idle auth=plain acl acl2=union) "Inbox" nil ("Bug" "$Forwarded" "Request" "Feature" "Docs" "\\*" "\\Draft" "\\Answered" "\\Flagged" "\\Deleted" "\\Seen")] [match "since" "2011-01-01"] (7513 7514 7518 7521 7522 7595 7596 7655 7721 7730 7733 7737 7738 7754 7760 7762 7795 7811 7812 7813 7814 7853 7854 7864 7874 7891 7892 7897 7898 7954 7956 7958 7960 7963 8001 8002 8004 8005 8010 8011 8012 8013 8088 8099 8102 8119 8120 8239 8255 8339 ...))
(setq ret (elmo-imap4-search-internal folder session condition numbers))
(let ((session ...) ret) (message "Searching...") (elmo-imap4-session-select-mailbox session (elmo-imap4-folder-mailbox-internal folder)) (setq ret (elmo-imap4-search-internal folder session condition numbers)) (message "Searching...done") ret)
(save-excursion (let (... ret) (message "Searching...") (elmo-imap4-session-select-mailbox session ...) (setq ret ...) (message "Searching...done") ret))
(if (elmo-folder-plugged-p folder) (save-excursion (let ... ... ... ... ... ret)) (luna-call-next-method))
elmo-folder-search([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] [match "since" "2011-01-01"] (7513 7514 7518 7521 7522 7595 7596 7655 7721 7730 7733 7737 7738 7754 7760 7762 7795 7811 7812 7813 7814 7853 7854 7864 7874 7891 7892 7897 7898 7954 7956 7958 7960 7963 8001 8002 8004 8005 8010 8011 8012 8013 8088 8099 8102 8119 8120 8239 8255 8339 ...))
apply(elmo-folder-search ([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] [match "since" "2011-01-01"] (7513 7514 7518 7521 7522 7595 7596 7655 7721 7730 7733 7737 7738 7754 7760 7762 7795 7811 7812 7813 7814 7853 7854 7864 7874 7891 7892 7897 7898 7954 7956 7958 7960 7963 8001 8002 8004 8005 8010 8011 8012 8013 8088 8099 8102 8119 8120 8239 8255 8339 ...)))
(setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
(progn (setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not ...) t))
(and luna-next-methods (progn (setq luna-current-method ... luna-previous-return-value ...) (if ... ... t)))
(while (and luna-next-methods (progn ... ...)))
(let (luna-current-method luna-previous-return-value) (while (and luna-next-methods ...)) luna-previous-return-value)
luna-call-next-method()
(let* ((class ...) (cache ...) (sym ...) luna-next-methods) (if sym (setq luna-next-methods ...) (setq luna-next-methods ...) (set ... luna-next-methods)) (luna-call-next-method))
luna-apply-generic([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] elmo-folder-search [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] [match "since" "2011-01-01"] (7513 7514 7518 7521 7522 7595 7596 7655 7721 7730 7733 7737 7738 7754 7760 7762 7795 7811 7812 7813 7814 7853 7854 7864 7874 7891 7892 7897 7898 7954 7956 7958 7960 7963 8001 8002 8004 8005 8010 8011 8012 8013 8088 8099 8102 8119 8120 8239 8255 8339 ...))
elmo-folder-search([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] [match "since" "2011-01-01"] (7513 7514 7518 7521 7522 7595 7596 7655 7721 7730 7733 7737 7738 7754 7760 7762 7795 7811 7812 7813 7814 7853 7854 7864 7874 7891 7892 7897 7898 7954 7956 7958 7960 7963 8001 8002 8004 8005 8010 8011 8012 8013 8088 8099 8102 8119 8120 8239 8255 8339 ...))
(let ((result ...)) (if numbers (elmo-list-filter numbers result) result))
(lambda (folder condition &optional numbers) (let (...) (if numbers ... result)))([elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] nil not-loaded nil] [match "since" "2011-01-01"] nil)
apply((lambda (folder condition &optional numbers) (let (...) (if numbers ... result))) ([elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] [match "since" "2011-01-01"] nil))
(setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
(progn (setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not ...) t))
(and luna-next-methods (progn (setq luna-current-method ... luna-previous-return-value ...) (if ... ... t)))
(while (and luna-next-methods (progn ... ...)))
(let (luna-current-method luna-previous-return-value) (while (and luna-next-methods ...)) luna-previous-return-value)
luna-call-next-method()
(let* ((class ...) (cache ...) (sym ...) luna-next-methods) (if sym (setq luna-next-methods ...) (setq luna-next-methods ...) (set ... luna-next-methods)) (luna-call-next-method))
luna-apply-generic([elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] nil not-loaded nil] elmo-folder-search [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo
/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] nil not-loaded nil] [match "since" "2011-01-01"] nil)
elmo-folder-search([elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ("!" ssl ssl open-ssl-stream) "Inbox"] nil not-loaded nil] [match "since" "2011-01-01"])
(if (or (elmo-folder-plugged-p target) (not ...)) (elmo-folder-search target (elmo-filter-folder-condition-internal folder)) t)
(let ((target ...)) (if (or ... ...) (elmo-folder-search target ...) t))
(lambda (folder &optional nohide) (let (...) (if ... ... t)))([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [m
atch "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t)
apply((lambda (folder &optional nohide) (let (...) (if ... ... t))) ([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext ... [elmo-imap4-fold
er [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t))
(setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
(progn (setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not ...) t))
(and luna-next-methods (progn (setq luna-current-method ... luna-previous-return-value ...) (if ... ... t)))
(while (and luna-next-methods (progn ... ...)))
(let (luna-current-method luna-previous-return-value) (while (and luna-next-methods ...)) luna-previous-return-value)
luna-call-next-method()
(let* ((class ...) (cache ...) (sym ...) luna-next-methods) (if sym (setq luna-next-methods ...) (setq luna-next-methods ...) (set ... luna-next-methods)) (luna-call-next-method))
luna-apply-generic([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0
0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] elmo-folder-list-messages-internal [elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.
elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t)
elmo-folder-list-messages-internal([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-i
map4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t)
(if in-msgdb t (elmo-folder-list-messages-internal folder visible-only))
(let ((list ...) (killed-list ...)) (unless (listp list) (setq list ...)) (if visible-only (elmo-living-messages list killed-list) (if ... ... list)))
(lambda (folder &optional visible-only in-msgdb) (let (... ...) (unless ... ...) (if visible-only ... ...)))([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil ni
l t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t nil)
apply((lambda (folder &optional visible-only in-msgdb) (let (... ...) (unless ... ...) (if visible-only ... ...))) ([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil]
nil nil t nil nil x-ctext ... [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t nil))
(setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
(progn (setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not ...) t))
(and luna-next-methods (progn (setq luna-current-method ... luna-previous-return-value ...) (if ... ... t)))
(while (and luna-next-methods (progn ... ...)))
(let (luna-current-method luna-previous-return-value) (while (and luna-next-methods ...)) luna-previous-return-value)
luna-call-next-method()
(let* ((class ...) (cache ...) (sym ...) luna-next-methods) (if sym (setq luna-next-methods ...) (setq luna-next-methods ...) (set ... luna-next-methods)) (luna-call-next-method))
luna-apply-generic([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0
0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] elmo-folder-list-messages [elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filt
er/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t nil)
elmo-folder-list-messages([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-fold
er [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] t)
(setq numbers (elmo-folder-list-messages folder (not disable-killed)))
(let ((killed-list ...) numbers) (unless no-check (when ... ...)) (setq numbers (elmo-folder-list-messages folder ...)) (when (and numbers ...) (elmo-folder-synchronize ... ... ignore-msgdb no-check ...)) (when (and disable-killed ignore-msgdb) (elmo-folder-set-killed-list-internal folder nil)) (elmo-filter-folder-set-number-list-internal folder numbers) (elmo-filter-folder-set-flag-count-internal folder nil) 0)
(lambda (folder &optional disable-killed ignore-msgdb no-check mask) (let (... numbers) (unless no-check ...) (setq numbers ...) (when ... ...) (when ... ...) (elmo-filter-folder-set-number-list-internal folder numbers) (elmo-filter-folder-set-flag-count-internal folder nil) 0))([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [
modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] nil nil nil nil)
apply((lambda (folder &optional disable-killed ignore-msgdb no-check mask) (let (... numbers) (unless no-check ...) (setq numbers ...) (when ... ...) (when ... ...) (elmo-filter-folder-set-number-list-internal folder numbers) (elmo-filter-folder-set-flag-count-internal folder nil) 0)) ([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c
993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext ... [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] nil nil nil nil))
(setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
(progn (setq luna-current-method (pop luna-next-methods) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not ...) t))
(and luna-next-methods (progn (setq luna-current-method ... luna-previous-return-value ...) (if ... ... t)))
(while (and luna-next-methods (progn ... ...)))
(let (luna-current-method luna-previous-return-value) (while (and luna-next-methods ...)) luna-previous-return-value)
luna-call-next-method()
(let* ((class ...) (cache ...) (sym ...) luna-next-methods) (if sym (setq luna-next-methods ...) (setq luna-next-methods ...) (set ... luna-next-methods)) (luna-call-next-method))
luna-apply-generic([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0
0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] elmo-folder-synchronize [elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter
/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] nil nil nil nil)
elmo-folder-synchronize([elmo-filter-folder [0 0 0 0 0 0 0] filter "/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ ssince c2011-01-01 s stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil nil nil nil x-ctext [match "since" "2011-01-01"] [elmo-filter-folder [0 0 0 0 0 0 0] filter "/tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "/" "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" [modb-standard [0 0 0 0 0 0 0] "/home/dmaus/.elmo/filter/ stocc cwl-en s%Inbox c ddmaus@ictsoc.de d sclear@mail.xlhost.de c993!" nil nil x-ctext nil nil nil nil nil] nil nil t nil nil x-ctext (or [match "to" "wl-en"] [match "cc" "wl-en"]) [elmo-imap4-folder
[0 0 0 0 0 0 0] imap4 "%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" "%" nil nil nil nil t nil nil x-ctext "dmaus@ictsoc.de" clear "mail.xlhost.de" 993 ... "Inbox"] nil not-loaded nil] nil nil nil] nil nil nil)
(setq crossed (elmo-folder-synchronize folder disable-killed sync-all no-check))
(progn (unless wl-summary-buffer-elmo-folder (error "(Internal error) Folder is not set:%s" ...)) (goto-char (point-max)) (wl-folder-confirm-existence folder (elmo-folder-plugged-p folder)) (setq crossed (elmo-folder-synchronize folder disable-killed sync-all no-check)) (if crossed (let ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (setq mes "Quit updating")))
(unwind-protect (progn (unless wl-summary-buffer-elmo-folder ...) (goto-char ...) (wl-folder-confirm-existence folder ...) (setq crossed ...) (if crossed ... ...)) (if (and crossed wl-summary-auto-sync-marks) (wl-summary-sync-marks)) (when wl-use-scoring (setq wl-summary-scored nil) (wl-summary-score-headers ... sync-all) (when ... ...)) (if (and crossed ...) (setq mes ...) (and mes ...)) (wl-folder-set-folder-updated (elmo-folder-name-internal folder) (list 0 ... ...)) (wl-summary-update-modeline) (unless unset-cursor (goto-char ...) (if ... ... ...)) (wl-delete-all-overlays) (run-hooks (quote wl-summary-buffer-window-scroll-functions)) (set-buffer-modified-p nil) (if mes (message "%s" mes)))
(let* ((folder wl-summary-buffer-elmo-folder) (elmo-mime-charset wl-summary-buffer-mime-charset) (inhibit-read-only t) (buffer-read-only nil) gc-message crossed expunged mes) (unwind-protect (progn ... ... ... ... ...) (if ... ...) (when wl-use-scoring ... ... ...) (if ... ... ...) (wl-folder-set-folder-updated ... ...) (wl-summary-update-modeline) (unless unset-cursor ... ...) (wl-delete-all-overlays) (run-hooks ...) (set-buffer-modified-p nil) (if mes ...)))
wl-summary-sync-update(unset-cursor nil nil nil)
wl-summary-sync-force-update(unset-cursor)
(setq mes (wl-summary-sync-force-update (quote unset-cursor)))
(cond ((eq scan-type nil) (wl-summary-sync ...)) ((eq scan-type ...) (wl-summary-sync ... "all")) ((eq scan-type ...)) ((eq scan-type ...) (wl-summary-rescan)) ((or ... ...) (setq mes ...)))
(let ((wl-use-scoring ...)) (if (and ... interactive ...) (setq scan-type ...)) (cond (... ...) (... ...) (...) (... ...) (... ...)))
(unwind-protect (let (...) (if ... ...) (cond ... ... ... ... ...)) (if interactive (switch-to-buffer buf) (set-buffer buf)) (when (wl-summary-always-sticky-folder-p folder) (or ... ...)) (run-hooks (quote wl-summary-prepared-pre-hook)) (set-buffer-modified-p nil) (goto-char (point-min)) (if (wl-summary-cursor-down t) (let ... ...) (goto-char ...) (if ... ... ...) (setq retval ...)) (if (and wl-summary-highlight ... ...) (if ... ... ...)) (if (eq retval ...) (wl-summary-redisplay)) (if (eq retval ...) (wl-message-buffer-prefetch folder ... ... ... wl-summary-buffer-mime-charset)) (if mes (message "%s" mes)) (if (and interactive wl-summary-recenter) (recenter ...)))
(if (and reuse-buf keep-cursor) nil (unwind-protect (let ... ... ...) (if interactive ... ...) (when ... ...) (run-hooks ...) (set-buffer-modified-p nil) (goto-char ...) (if ... ... ... ... ...) (if ... ...) (if ... ...) (if ... ...) (if mes ...) (if ... ...)))
(unless (and reuse-buf keep-cursor) (unwind-protect (let ... ... ...) (if interactive ... ...) (when ... ...) (run-hooks ...) (set-buffer-modified-p nil) (goto-char ...) (if ... ... ... ... ...) (if ... ...) (if ... ...) (if ... ...) (if mes ...) (if ... ...)))
(unwind-protect (if reuse-buf (if interactive ... ...) (if other-window ...) (set-buffer buf) (unless ... ...) (wl-summary-buffer-set-folder folder) (setq wl-summary-buffer-display-mime-mode ...) (setq wl-summary-buffer-disp-msg nil) (setq wl-summary-buffer-message-ring nil) (setq wl-summary-buffer-current-msg nil) (setq wl-summary-buffer-persistent-mark-version 0) (let ... ... ... ... ...)) (unless (eq wl-summary-buffer-view ...) (wl-summary-make-number-list)) (when (and wl-summary-cache-use ...) (wl-summary-rescan)) (wl-summary-toggle-disp-msg (if wl-summary-buffer-disp-msg ... ...)) (unless (and reuse-buf keep-cursor) (unwind-protect ... ... ... ... ... ... ... ... ... ... ... ...)))
(let* ((keep-cursor ...) (name ...) (cur-fld wl-summary-buffer-elmo-folder) folder buf mes hilit reuse-buf retval entity) (if (string= name "") (setq name wl-default-folder)) (setq folder (wl-folder-get-elmo-folder name)) (when (and ... ...) (setq wl-summary-last-visited-folder ...) (run-hooks ...) (let ... ... ... ...) (if ... ...)) (setq buf (wl-summary-get-buffer-create ... sticky)) (setq reuse-buf (with-current-buffer buf ...)) (unwind-protect (if reuse-buf ... ... ... ... ... ... ... ... ... ... ...) (unless ... ...) (when ... ...) (wl-summary-toggle-disp-msg ...) (unless ... ...)) (when (and folder ...) (wl-folder-set-current-entity-id ...)) (when (and wl-summary-buffer-window-scroll-functions wl-on-xemacs) (sit-for 0)) (when (or ... ...) (wl-summary-force-prefetch)) (unwind-protect (run-hooks ...) (set-buffer-modified-p nil)) retval)
wl-summary-goto-folder-subr("/since:2011-01-01//tocc:wl-en/%Inbox:\"dmaus@ictsoc.de\"/clear@mail.xlhost.de:993!" update nil nil t)
(if arg (wl-summary-unvirtual) (wl-summary-goto-folder-subr (concat "/" ... "/" ...) (quote update) nil nil t) (run-hooks (quote wl-summary-virtual-hook)))
wl-summary-virtual(nil)
call-interactively(wl-summary-virtual nil nil)
Attachment:
pgp1Ms3yE4wZT.pgp
Description: PGP signature