display quoted message text, if there is any

This commit is contained in:
eta 2020-04-06 20:46:33 +01:00
parent f6561a64a3
commit 297170ae6b

View file

@ -872,7 +872,11 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
(when (not previous-xmpp-id) ; don't process messages twice (when (not previous-xmpp-id) ; don't process messages twice
(when (typep key 'whatscl::message-key-receiving) ; ignore group and self messages (when (typep key 'whatscl::message-key-receiving) ; ignore group and self messages
(when (typep contents 'whatscl::message-contents-text) (when (typep contents 'whatscl::message-contents-text)
(let ((text (whatscl::contents-text contents)) (let* ((contents-text (whatscl::contents-text contents))
(qc (whatscl::message-quoted-contents-summary msg))
(text (if qc
(format nil "> ~A~%~A" qc contents-text)
contents-text))
(from (concatenate 'string (from (concatenate 'string
(wa-jid-to-whatsxmpp-localpart (whatscl::key-jid key)) (wa-jid-to-whatsxmpp-localpart (whatscl::key-jid key))
"@" "@"