From 272bece1442c0482fab482abbc5f96ee80067811 Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 4 Feb 2005 04:06:16 +0000 Subject: [PATCH] * riece-biff.el (riece-biff-functions): Abolish. riece-biff-after-display-message-function): Follow the change above. --- lisp/ChangeLog | 5 +++++ lisp/riece-biff.el | 8 +------- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd0b04e..ba1b81d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-02-04 OHASHI Akira + + * riece-biff.el (riece-biff-functions): Abolish. + (riece-biff-after-display-message-function): Follow the change above. + 2005-02-04 Daiki Ueno * riece-server.el (riece-close-server-process): Switch to process diff --git a/lisp/riece-biff.el b/lisp/riece-biff.el index fd2d5cb..dfacb9f 100644 --- a/lisp/riece-biff.el +++ b/lisp/riece-biff.el @@ -49,11 +49,6 @@ :type 'string :group 'riece-biff) -(defcustom riece-biff-functions nil - "*Functions for processing new arrival messages." - :type 'function - :group 'riece-biff) - (defvar riece-biff-mode-string 'riece-biff-default-mode-string) (defvar riece-biff-enabled nil) @@ -70,8 +65,7 @@ (when (or (null riece-biff-check-channels) (member (riece-format-identity (riece-message-target message)) riece-biff-check-channels)) - (setq riece-biff-mode-string 'riece-biff-biff-mode-string) - (run-hook-with-args 'riece-biff-functions message)))) + (setq riece-biff-mode-string 'riece-biff-biff-mode-string)))) (defun riece-biff-clear (&optional dummy) (when riece-biff-enabled -- 1.7.10.4