From 3617db0e4dbd6b75aa7c63eb4ab1e360d552f121 Mon Sep 17 00:00:00 2001 From: OHASHI Akira Date: Sat, 11 Sep 2004 11:28:47 +0000 Subject: [PATCH] * riece-mini.el (riece-mini-display-message-function): Save the history always. --- lisp/ChangeLog | 1 + lisp/riece-mini.el | 34 +++++++++++++++++----------------- 2 files changed, 18 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7932abc..65ac5b5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * riece-mini.el (riece-mini-display-message-function): Remove properties and "\n" of the end. (riece-mini-show-backlog): Follow the change above. + (riece-mini-display-message-function): Save the history always. 2004-09-10 OHASHI Akira diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el index 4456e77..a66851a 100644 --- a/lisp/riece-mini.el +++ b/lisp/riece-mini.el @@ -71,24 +71,24 @@ (defun riece-mini-display-message-function (message) "Show arrival messages to minibuffer." - (when (and riece-mini-enabled - (not (or (eq (window-buffer (selected-window)) - (get-buffer riece-command-buffer)) - (riece-message-own-p message) - (active-minibuffer-window)))) - (unless (riece-message-type message) - (setq riece-mini-last-channel (riece-message-target message))) - (let ((string (concat (format-time-string "%H:%M") " " - (riece-format-message message t)))) - (when (string-match "\\(.*\\)$" string) - (setq string (riece-match-string-no-properties 1 string))) - (riece-mini-message-no-log "%s" string) - (while (>= (length riece-mini-backlog-history) - riece-mini-backlog-size) - (setq riece-mini-backlog-history - (cdr riece-mini-backlog-history))) + (let ((string (concat (format-time-string "%H:%M") " " + (riece-format-message message t)))) + (when (string-match "\\(.*\\)$" string) + (setq string (riece-match-string-no-properties 1 string))) + (while (>= (length riece-mini-backlog-history) + riece-mini-backlog-size) (setq riece-mini-backlog-history - (reverse (cons string (reverse riece-mini-backlog-history))))))) + (cdr riece-mini-backlog-history))) + (setq riece-mini-backlog-history + (reverse (cons string (reverse riece-mini-backlog-history)))) + (when (and riece-mini-enabled + (not (or (eq (window-buffer (selected-window)) + (get-buffer riece-command-buffer)) + (riece-message-own-p message) + (active-minibuffer-window)))) + (unless (riece-message-type message) + (setq riece-mini-last-channel (riece-message-target message))) + (riece-mini-message-no-log "%s" string)))) (defun riece-mini-send-message (arg) "Send message using minibuffer. -- 2.25.1