X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-log.el;h=624115b46707e5510d8e47a87fd856acc9e48a91;hb=5ec2f664141ef6f120dc5c213c843eb8de9b50bf;hp=6c3ae7c0baa6d6b32b83ae1e087781f19faa2346;hpb=895e17ef4cc7d08dc3e30c37c7c06fab3e6d1a6d;p=elisp%2Friece.git diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 6c3ae7c..624115b 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -20,8 +20,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -31,6 +31,7 @@ (require 'riece-message) (require 'riece-button) +(require 'riece-mcat) (defgroup riece-log nil "Save IRC logs." @@ -237,8 +238,9 @@ If LINES is t, insert today's logs entirely." (when riece-log-flashback (riece-insert-info (current-buffer) (if (eq riece-log-flashback t) - "Recent messages of the day:\n" - (format "Recent messages up to %d lines:\n" + (riece-mcat "Recent messages of the day:\n") + (format (riece-mcat + "Recent messages up to %d lines:\n") riece-log-flashback))) (let (buffer-read-only (point (goto-char (point-max))))