* riece-message.el (riece-format-message): Don't append
authorDaiki Ueno <ueno@unixuser.org>
Sat, 22 May 2004 20:27:41 +0000 (20:27 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 22 May 2004 20:27:41 +0000 (20:27 +0000)
server-name if the 2nd arg is not specified.

* riece-hangman.el (riece-hangman-word): Fixed regexp.

lisp/ChangeLog
lisp/riece-hangman.el
lisp/riece-message.el

index 9ba9eca..eab7ece 100644 (file)
@@ -1,3 +1,10 @@
+2004-05-22  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-message.el (riece-format-message): Don't append
+       server-name if the 2nd arg is not specified.
+
+       * riece-hangman.el (riece-hangman-word): Fixed regexp.
+
 2004-05-22  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-xface.el: Support enable/disable.
 2004-05-22  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-xface.el: Support enable/disable.
index cb7dd1f..54f6349 100644 (file)
@@ -103,7 +103,7 @@ The wordlist is read from `riece-hangman-words-file'."
       (buffer-disable-undo)
       (insert-file-contents riece-hangman-words-file)
       (let ((case-fold-search nil))
       (buffer-disable-undo)
       (insert-file-contents riece-hangman-words-file)
       (let ((case-fold-search nil))
-       (delete-non-matching-lines "^[a-z][a-z][a-z][a-z][a-z][a-z]"))))
+       (delete-non-matching-lines "^[a-z][a-z][a-z][a-z][a-z][a-z]+"))))
   (save-excursion
     (set-buffer riece-hangman-words-buffer)
     (goto-char (% (1+ (random)) (buffer-size)))
   (save-excursion
     (set-buffer riece-hangman-words-buffer)
     (goto-char (% (1+ (random)) (buffer-size)))
index 63dadfe..6bbd35f 100644 (file)
@@ -154,9 +154,12 @@ Normally they are *Dialogue* and/or *Others*."
        (server-name (riece-identity-server (riece-message-speaker message))))
     (riece-with-server-buffer (riece-current-server-name)
       (concat
        (server-name (riece-identity-server (riece-message-speaker message))))
     (riece-with-server-buffer (riece-current-server-name)
       (concat
-       (riece-concat-server-name
-       (concat open-bracket name close-bracket
-               " " (riece-message-text message)))
+       (if global
+          (riece-concat-server-name
+           (concat open-bracket name close-bracket
+                   " " (riece-message-text message)))
+        (concat open-bracket name close-bracket
+                " " (riece-message-text message)))
        "\n"))))
 
 (defun riece-display-message-1 (message)
        "\n"))))
 
 (defun riece-display-message-1 (message)