wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Fetch all available history for jid on (jabber-chat-display-more-backlog 0).

This commit is contained in:
Evgenii Terechkov 2010-02-23 22:42:14 +07:00 committed by Kirill A. Korinskiy
parent e78d77aaf3
commit 9134b17b1b
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
jabber-chat.el
View File

@ -278,10 +278,11 @@ This function is idempotent."
(cons "Display more context" 'jabber-chat-display-more-backlog))
(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)
(jabber-backlog-days nil)
(jabber-backlog-number how-many)
(jabber-backlog-number (if (= how-many 0) t how-many))
(backlog-entries (jabber-history-backlog
jabber-chatting-with jabber-chat-earliest-backlog)))
(when backlog-entries

5
jabber-history.el
View File

@ -207,8 +207,9 @@ of the log file."
(let ((file (pop matched-files)))
(progn
(insert-file-contents file)
(if (>= (count-lines (point-min) (point-max)) number)
(setq lines-collected t)))))))))
(when (numberp number)
(if (>= (count-lines (point-min) (point-max)) number)
(setq lines-collected t))))))))))
(let (collected current-line)
(goto-char (point-max))
(catch 'beginning-of-file