Re: [jabber.el] [Patch] Support for server-side message archive management (XEP-0313)

[<as...@ko...>]

I wrote:

> I just tried it - connecting to an ejabberd server with MAM enabled, and
> looking at the backlog/history of messages in the Conversations Android
> app (which also supports MAM). Worked fine!

Uhm, I was too quick there. My test just showed that my ejabberd and
the Android app handles MAM...

After setting jabber-history-mam to t and starting jabber.el, if I press
RET on an entry in the roster, jabber.el seems to hang "forever".

If I toggle-debug-on-quit before, and press C-g three times, I get this
stack trace:

  Debugger entered--Lisp error: (quit)
    (while (not jabber-mam-lock) (sit-for 1))
    (let ((mam-query (jabber-mam-make-query jid-me jid-with start-time end-time number-left jabber-mam-last-id))) (setq jabber-mam-lock nil) (jabber-send-iq jc nil "set" mam-query (function jabber-report-success) "MAM request" (function jabber-report-success) "MAM request") (while (not jabber-mam-lock) (sit-for 1)) (if (integerp number) (progn (setq number-left (- number (length jabber-mam-results))) (setq jabber-mam-done (or jabber-mam-done (<= number-left 0))))))
    (while (not jabber-mam-done) (let ((mam-query (jabber-mam-make-query jid-me jid-with start-time end-time number-left jabber-mam-last-id))) (setq jabber-mam-lock nil) (jabber-send-iq jc nil "set" mam-query (function jabber-report-success) "MAM request" (function jabber-report-success) "MAM request") (while (not jabber-mam-lock) (sit-for 1)) (if (integerp number) (progn (setq number-left (- number (length jabber-mam-results))) (setq jabber-mam-done (or jabber-mam-done (<= number-left 0)))))))
    (let ((number-left (if (integerp number) number nil))) (while (not jabber-mam-done) (let ((mam-query (jabber-mam-make-query jid-me jid-with start-time end-time number-left jabber-mam-last-id))) (setq jabber-mam-lock nil) (jabber-send-iq jc nil "set" mam-query (function jabber-report-success) "MAM request" (function jabber-report-success) "MAM request") (while (not jabber-mam-lock) (sit-for 1)) (if (integerp number) (progn (setq number-left (- number (length jabber-mam-results))) (setq jabber-mam-done (or jabber-mam-done (<= number-left 0))))))))
    jabber-mam-query((:fsm jabber-connection :state :session-established :state-data (:send-function jabber-network-send :original-jid "as...@ko..." :username "asjo" :server "koldfront.dk" :resource "tullinup" :password [....]

Any ideas for what I should do to debug further?


  Best regards,

    Adam

-- 
 "Do I really want to set this in Denmark?"                   Adam Sjøgren
                                                         as...@ko...