Fetch all available history for jid on (jabber-chat-display-more-backlog 0).
This commit is contained in:
parent
e78d77aaf3
commit
9134b17b1b
|
@ -278,10 +278,11 @@ This function is idempotent."
|
||||||
(cons "Display more context" 'jabber-chat-display-more-backlog))
|
(cons "Display more context" 'jabber-chat-display-more-backlog))
|
||||||
|
|
||||||
(defun jabber-chat-display-more-backlog (how-many)
|
(defun jabber-chat-display-more-backlog (how-many)
|
||||||
(interactive "nHow many more messages? ")
|
"Display more context. HOW-MANY is number of messages. Specify 0 to display all messages."
|
||||||
|
(interactive "nHow many more messages (Specify 0 to display all)? ")
|
||||||
(let* ((inhibit-read-only t)
|
(let* ((inhibit-read-only t)
|
||||||
(jabber-backlog-days nil)
|
(jabber-backlog-days nil)
|
||||||
(jabber-backlog-number how-many)
|
(jabber-backlog-number (if (= how-many 0) t how-many))
|
||||||
(backlog-entries (jabber-history-backlog
|
(backlog-entries (jabber-history-backlog
|
||||||
jabber-chatting-with jabber-chat-earliest-backlog)))
|
jabber-chatting-with jabber-chat-earliest-backlog)))
|
||||||
(when backlog-entries
|
(when backlog-entries
|
||||||
|
|
|
@ -207,8 +207,9 @@ of the log file."
|
||||||
(let ((file (pop matched-files)))
|
(let ((file (pop matched-files)))
|
||||||
(progn
|
(progn
|
||||||
(insert-file-contents file)
|
(insert-file-contents file)
|
||||||
(if (>= (count-lines (point-min) (point-max)) number)
|
(when (numberp number)
|
||||||
(setq lines-collected t)))))))))
|
(if (>= (count-lines (point-min) (point-max)) number)
|
||||||
|
(setq lines-collected t))))))))))
|
||||||
(let (collected current-line)
|
(let (collected current-line)
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(catch 'beginning-of-file
|
(catch 'beginning-of-file
|
||||||
|
|
Loading…
Reference in New Issue
Block a user