cgit.sxemacs.org Git - riece/blob - lisp/riece.el

   1 ;;; riece.el --- IRC client for Emacsen
   2 ;; Copyright (C) 1998-2003 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1998-09-28
   6 ;; Keywords: IRC, riece
   7
   8 ;; This file is part of Riece.
   9
  10 ;; This program is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; This program is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'riece-display)
  28 (require 'riece-server)
  29 (require 'riece-compat)
  30 (require 'riece-commands)
  31 (require 'riece-addon)
  32 (require 'riece-signal)
  33
  34 (autoload 'derived-mode-class "derived")
  35
  36 (defvar riece-channel-list-mode-map (make-sparse-keymap))
  37 (defvar riece-user-list-mode-map (make-sparse-keymap))
  38
  39 (defvar riece-dialogue-mode-map
  40   (let ((keymap (make-keymap)))
  41     (suppress-keymap keymap 'nodigit)
  42     keymap))
  43
  44 (defvar riece-command-mode-map (make-keymap))
  45 (defvar riece-command-map (make-sparse-keymap))
  46
  47 (defvar riece-command-mode-syntax-table nil)
  48
  49 (put 'riece-command-mode 'mode-class 'special)
  50 (put 'riece-dialogue-mode 'mode-class 'special)
  51 (put 'riece-others-mode 'derived-mode-parent 'riece-dialogue-mode)
  52 (put 'riece-channel-list-mode 'mode-class 'special)
  53 (put 'riece-user-list-mode 'mode-class 'special)
  54 (put 'riece-channel-mode 'derived-mode-parent 'riece-dialogue-mode)
  55
  56 (defvar riece-buffer-alist
  57   '((riece-command-buffer "*Command*" riece-command-mode)
  58     (riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
  59     (riece-others-buffer "*Others*" riece-others-mode)
  60     (riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
  61     (riece-user-list-buffer " *Users*" riece-user-list-mode)))
  62
  63 (defvar riece-shrink-buffer-idle-timer nil
  64   "Timer object to periodically shrink channel buffers.")
  65
  66 (defvar riece-addons-insinuated nil
  67   "Non nil if add-ons are already insinuated.")
  68
  69 (defvar riece-select-keys
  70   `("#" riece-command-switch-to-channel-by-number
  71     "1" riece-command-switch-to-channel-by-number-1
  72     "2" riece-command-switch-to-channel-by-number-2
  73     "3" riece-command-switch-to-channel-by-number-3
  74     "4" riece-command-switch-to-channel-by-number-4
  75     "5" riece-command-switch-to-channel-by-number-5
  76     "6" riece-command-switch-to-channel-by-number-6
  77     "7" riece-command-switch-to-channel-by-number-7
  78     "8" riece-command-switch-to-channel-by-number-8
  79     "9" riece-command-switch-to-channel-by-number-9
  80     "0" riece-command-switch-to-channel-by-number-10
  81     ,(concat riece-command-prefix "1")
  82     riece-command-switch-to-channel-by-number-11
  83     ,(concat riece-command-prefix "2")
  84     riece-command-switch-to-channel-by-number-12
  85     ,(concat riece-command-prefix "3")
  86     riece-command-switch-to-channel-by-number-13
  87     ,(concat riece-command-prefix "4")
  88     riece-command-switch-to-channel-by-number-14
  89     ,(concat riece-command-prefix "5")
  90     riece-command-switch-to-channel-by-number-15
  91     ,(concat riece-command-prefix "6")
  92     riece-command-switch-to-channel-by-number-16
  93     ,(concat riece-command-prefix "7")
  94     riece-command-switch-to-channel-by-number-17
  95     ,(concat riece-command-prefix "8")
  96     riece-command-switch-to-channel-by-number-18
  97     ,(concat riece-command-prefix "9")
  98     riece-command-switch-to-channel-by-number-19
  99     ,(concat riece-command-prefix "0")
 100     riece-command-switch-to-channel-by-number-20))
 101
 102 ;;; Keymap macros. -- borrowed from `gnus-util.el'.
 103 (defmacro riece-local-set-keys (&rest plist)
 104   "Set the keys in PLIST in the current keymap."
 105   `(riece-define-keys-1 (current-local-map) ',plist))
 106
 107 (defmacro riece-define-keys (keymap &rest plist)
 108   "Assign KEYMAP keys from PLIST."
 109   `(riece-define-keys-1 ',keymap ',plist))
 110
 111 (defmacro riece-define-keys-safe (keymap &rest plist)
 112   "Assign KEYMAP keys from PLIST without overwriting previous definitions."
 113   `(riece-define-keys-1 ',keymap ',plist t))
 114
 115 (put 'riece-define-keys 'lisp-indent-function 1)
 116 (put 'riece-define-keys-safe 'lisp-indent-function 1)
 117 (put 'riece-local-set-keys 'lisp-indent-function 1)
 118
 119 (defun riece-define-keys-1 (keymap plist &optional safe)
 120   "Assign KEYMAP keys from PLIST.
 121 If optional argument SAFE is nil, overwrite previous definitions."
 122   (unless keymap
 123     (error "Can't set keys in a null keymap"))
 124   (cond
 125    ((symbolp keymap)
 126     (setq keymap (symbol-value keymap)))
 127    ((keymapp keymap))
 128    ((listp keymap)
 129     (set (car keymap) nil)
 130     (define-prefix-command (car keymap))
 131     (define-key (symbol-value (nth 2 keymap))
 132       (if (symbolp (nth 1 keymap))
 133           (symbol-value (nth 1 keymap))
 134         (nth 1 keymap))
 135       (car keymap))
 136     (setq keymap (symbol-value (car keymap)))))
 137   (let (key)
 138     (while plist
 139       (if (symbolp (setq key (car plist)))
 140           (setq key (symbol-value key)))
 141       (setq plist (cdr plist))
 142       (if (or (not safe)
 143               (eq (lookup-key keymap key) 'undefined))
 144           (define-key keymap key (car plist))
 145         (car plist))
 146       (setq plist (cdr plist)))))
 147
 148 (when t
 149   (riece-define-keys riece-dialogue-mode-map
 150     "\177" scroll-down
 151     [delete] scroll-down
 152     [backspace] scroll-down
 153     [return] scroll-up
 154     " " scroll-up
 155     [home] beginning-of-buffer
 156     "$" end-of-buffer
 157     [end] end-of-buffer
 158     "/" riece-command-raw
 159     ">" end-of-buffer
 160     "<" beginning-of-buffer
 161     "^" riece-command-list-addons
 162     "\C-ta" riece-command-toggle-away
 163     "c" riece-command-select-command-buffer
 164     "f" riece-command-finger
 165     "\C-tf" riece-command-toggle-freeze
 166     "\C-to" riece-command-toggle-own-freeze
 167     "\C-tu" riece-command-toggle-user-list-buffer-mode
 168     "\C-tc" riece-command-toggle-channel-buffer-mode
 169     "\C-tC" riece-command-toggle-channel-list-buffer-mode
 170     "\C-tl" riece-command-change-layout
 171     "i" riece-command-invite
 172     "j" riece-command-join
 173     "\C-k" riece-command-kick
 174     "l" riece-command-list
 175     "M" riece-command-change-mode
 176     "n" riece-command-change-nickname
 177     "N" riece-command-names
 178     "o" other-window
 179     "O" riece-command-open-server
 180     "C" riece-command-close-server
 181     "M" riece-command-universal-server-name-argument
 182     "p" riece-command-enter-message-to-user
 183     "q" riece-command-quit
 184     "r" riece-command-configure-windows
 185     "x" riece-command-copy-region
 186     "t" riece-command-topic
 187     "w" riece-command-who)
 188
 189   (riece-define-keys riece-command-mode-map
 190     "\r" riece-command-enter-message
 191     [(control return)] riece-command-enter-message-as-notice
 192     [tab] riece-command-complete-user)
 193
 194   (riece-define-keys (riece-command-map riece-command-prefix
 195                                         riece-command-mode-map)
 196     "\177" riece-command-scroll-down
 197     [delete] riece-command-scroll-down
 198     [backspace] riece-command-scroll-down
 199     " " riece-command-scroll-up
 200     [home] riece-command-beginning-of-buffer
 201     "$" riece-command-end-of-buffer
 202     [end] riece-command-end-of-buffer
 203     ">" riece-command-next-channel
 204     "<" riece-command-previous-channel
 205     "\C-j" riece-command-next-channel
 206     "\C-n" riece-command-names
 207     "l" riece-command-list
 208     "\C-m" riece-command-change-mode
 209     "o" riece-command-set-operators
 210     "\C-p" riece-command-part
 211     "r" riece-command-configure-windows
 212     "v" riece-command-set-speakers
 213     "V" riece-version)
 214   (set-keymap-parent riece-command-map riece-dialogue-mode-map)
 215
 216   (riece-define-keys riece-user-list-mode-map
 217     "o" riece-command-set-operators
 218     "v" riece-command-set-voices
 219     "f" riece-command-finger
 220     " " riece-command-user-list-scroll-up
 221     "\177" riece-command-user-list-scroll-down
 222     [delete] riece-command-user-list-scroll-down
 223     [backspace] riece-command-user-list-scroll-down
 224     "c" riece-command-select-command-buffer)
 225
 226   (riece-define-keys riece-channel-list-mode-map
 227     ">" riece-command-next-channel
 228     "<" riece-command-previous-channel
 229     "o" other-window
 230     "c" riece-command-select-command-buffer)
 231
 232   (riece-define-keys-1 riece-dialogue-mode-map riece-select-keys)
 233   (riece-define-keys-1 riece-channel-list-mode-map riece-select-keys))
 234
 235 (defun riece-read-variables-files (&optional file)
 236   "Read variables FILEs."
 237   (or (file-directory-p riece-directory)
 238       (make-directory riece-directory))
 239   (let ((files (if file
 240                    (setq riece-variables-file file
 241                          riece-variables-files (list file))
 242                  riece-variables-files)))
 243     (while files
 244       (condition-case nil
 245           (load (expand-file-name (car files)))
 246         (file-error nil))
 247       (setq files (cdr files)))))
 248
 249 (defvar print-quoted)
 250 (defvar print-escape-multibyte)
 251 (defun riece-save-variables-files ()
 252   "Save current settings to `riece-variables-file'."
 253   (with-temp-file riece-saved-variables-file
 254     (let ((print-quoted t)
 255           (print-readably t)
 256           print-escape-multibyte
 257           print-level
 258           print-length
 259           (variables riece-saved-forms))
 260       (while variables
 261         (prin1 `(setq ,(car variables)
 262                       ',(symbol-value (car variables)))
 263                (current-buffer))
 264         (insert "\n")
 265         (setq variables (cdr variables)))))
 266   (setq riece-save-variables-are-dirty nil))
 267
 268 ;;;###autoload
 269 (defun riece (&optional confirm)
 270   "Connect to the IRC server and start chatting.
 271 If optional argument CONFIRM is non-nil, ask which IRC server to connect."
 272   (interactive "P")
 273   (riece-read-variables-files (if noninteractive
 274                                   (car command-line-args-left)))
 275   (run-hooks 'riece-after-load-startup-hook)
 276   (if (riece-server-opened)
 277       (riece-command-configure-windows)
 278     (unless riece-addons-insinuated
 279       (setq riece-addons (riece-resolve-addons riece-addons))
 280       (let ((pointer riece-addons))
 281         (while pointer
 282           (riece-insinuate-addon (car pointer) riece-debug)
 283           (setq pointer (cdr pointer))))
 284       (setq riece-addons-insinuated t))
 285     (if (or confirm (null riece-server))
 286         (setq riece-server (completing-read "Server: " riece-server-alist)))
 287     (if (stringp riece-server)
 288         (setq riece-server (riece-server-name-to-server riece-server)))
 289     (riece-create-buffers)
 290     (if riece-max-buffer-size
 291         (setq riece-shrink-buffer-idle-timer
 292               (riece-run-with-idle-timer
 293                riece-shrink-buffer-idle-time-delay t
 294                (lambda ()
 295                  (let ((buffers riece-buffer-list))
 296                    (while buffers
 297                      (if (and (buffer-live-p (car buffers))
 298                               (eq (derived-mode-class
 299                                    (with-current-buffer (car buffers)
 300                                      major-mode))
 301                                   'riece-dialogue-mode))
 302                          (riece-shrink-buffer (car buffers)))
 303                      (setq buffers (cdr buffers))))))))
 304     (switch-to-buffer riece-command-buffer)
 305     (riece-display-connect-signals)
 306     (riece-redisplay-buffers)
 307     (riece-open-server riece-server "")
 308     ;; If no server process is available, exit.
 309     (if (null riece-server-process-alist)
 310         (riece-exit)
 311       (let ((server-list riece-startup-server-list))
 312         (while server-list
 313           (riece-command-open-server (car server-list))
 314           (setq server-list (cdr server-list))))
 315       (let ((channel-list riece-startup-channel-list)
 316             server)
 317         (while channel-list
 318           (setq server (riece-identity-server
 319                         (riece-parse-identity (car channel-list))))
 320           (unless (riece-server-opened server)
 321             (riece-command-open-server server))
 322           (setq channel-list (cdr channel-list))))
 323       (let ((pointer riece-addons))
 324         (while pointer
 325           (unless (get (car pointer) 'riece-addon-default-disabled)
 326             (riece-enable-addon (car pointer) riece-debug))
 327           (setq pointer (cdr pointer))))
 328       (run-hooks 'riece-startup-hook)
 329       (message "%s" (substitute-command-keys
 330                      "Type \\[describe-mode] for help")))))
 331
 332 (defun riece-shrink-buffer (buffer)
 333   (save-excursion
 334     (set-buffer buffer)
 335     (goto-char (point-min))
 336     (while (> (buffer-size) riece-max-buffer-size)
 337       (let* ((inhibit-read-only t)
 338              buffer-read-only
 339              (start (point))
 340              (end (progn (beginning-of-line 2) (point)))
 341              (overlays (riece-overlays-in start end)))
 342         (while overlays
 343           (riece-delete-overlay (car overlays))
 344           (setq overlays (cdr overlays)))
 345         (delete-region start end)))))
 346
 347 (defun riece-exit ()
 348   (if riece-save-variables-are-dirty
 349       (riece-save-variables-files))
 350   (while riece-buffer-list
 351     (if (and (get-buffer (car riece-buffer-list))
 352              (buffer-live-p (car riece-buffer-list)))
 353         (funcall riece-buffer-dispose-function (car riece-buffer-list)))
 354     (setq riece-buffer-list (cdr riece-buffer-list)))
 355   (if riece-shrink-buffer-idle-timer
 356       (riece-cancel-timer riece-shrink-buffer-idle-timer))
 357   (riece-clear-signal-slots)
 358   (setq riece-server nil
 359         riece-current-channels nil
 360         riece-current-channel nil
 361         riece-channel-buffer nil
 362         riece-channel-buffer-alist nil
 363         riece-user-indicator nil
 364         riece-long-channel-indicator "None"
 365         riece-channel-list-indicator "No channel"
 366         riece-away-indicator "-"
 367         riece-operator-indicator "-"
 368         riece-channel-status-indicator "-"
 369         riece-freeze-indicator "-")
 370   (delete-other-windows)
 371   (run-hooks 'riece-exit-hook))
 372
 373 (defun riece-command-mode ()
 374   "Major mode for Riece.  Normal edit function are available.
 375 Typing Return or Linefeed enters the current line in the dialogue.
 376 The following special commands are available:
 377 For a list of the generic commands type \\[riece-command-generic] ? RET.
 378 \\{riece-command-mode-map}"
 379   (interactive)
 380   (kill-all-local-variables)
 381
 382   ;; Make `truncate-partial-width-windows' buffer local and set it to
 383   ;; nil.  This causes `truncate-lines' to directly control line
 384   ;; truncation.
 385   (make-local-variable 'truncate-partial-width-windows)
 386   (setq truncate-partial-width-windows nil)
 387
 388   (setq riece-away-indicator "-"
 389         riece-operator-indicator "-"
 390         riece-channel-status-indicator "-"
 391         major-mode 'riece-command-mode
 392         mode-name "Command"
 393         mode-line-buffer-identification
 394         (riece-mode-line-buffer-identification
 395          '("Riece: "
 396            riece-away-indicator
 397            riece-operator-indicator
 398            riece-channel-status-indicator
 399            " "
 400            riece-user-indicator
 401            " "
 402            riece-channel-indicator))
 403         truncate-lines nil)
 404   (riece-simplify-mode-line-format)
 405   (use-local-map riece-command-mode-map)
 406
 407   (unless riece-command-mode-syntax-table
 408     (setq riece-command-mode-syntax-table
 409           (copy-syntax-table (syntax-table)))
 410     (set-syntax-table riece-command-mode-syntax-table)
 411     (mapcar
 412      (lambda (c) (modify-syntax-entry c "w"))
 413      "^[]{}'`"))
 414
 415   (run-hooks 'riece-command-mode-hook))
 416
 417 (defun riece-dialogue-mode ()
 418   "Major mode for displaying the IRC dialogue.
 419 All normal editing commands are turned off.
 420 Instead, these commands are available:
 421 \\{riece-dialogue-mode-map}"
 422   (kill-all-local-variables)
 423   (make-local-variable 'riece-freeze)
 424   (make-local-variable 'riece-freeze-indicator)
 425
 426   ;; Make `truncate-partial-width-windows' buffer local and set it to
 427   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 428   (make-local-variable 'truncate-partial-width-windows)
 429   (setq truncate-partial-width-windows nil)
 430
 431   (setq riece-freeze riece-default-freeze
 432         riece-away-indicator "-"
 433         riece-operator-indicator "-"
 434         riece-channel-status-indicator "-"
 435         major-mode 'riece-dialogue-mode
 436         mode-name "Dialogue"
 437         mode-line-buffer-identification
 438         (riece-mode-line-buffer-identification
 439          '("Riece: "
 440            riece-away-indicator
 441            riece-operator-indicator
 442            riece-freeze-indicator
 443            riece-channel-status-indicator
 444            " "
 445            riece-channel-list-indicator " "))
 446         truncate-lines nil
 447         buffer-read-only t)
 448   (riece-simplify-mode-line-format)
 449   (use-local-map riece-dialogue-mode-map)
 450   (buffer-disable-undo)
 451   (run-hooks 'riece-dialogue-mode-hook))
 452
 453 (define-derived-mode riece-others-mode riece-dialogue-mode
 454   "Others"
 455   "Major mode for displaying the IRC others message except current channel.
 456 All normal editing commands are turned off.
 457 Instead, these commands are available:
 458 \\{riece-others-mode-map}")
 459
 460 (define-derived-mode riece-channel-mode riece-dialogue-mode
 461   "Channel"
 462   "Major mode for displaying the IRC current channel buffer.
 463 All normal editing commands are turned off.
 464 Instead, these commands are available:
 465 \\{riece-channel-mode-map}"
 466   (make-local-variable 'riece-channel-buffer-window-point)
 467   (setq mode-line-buffer-identification
 468         (riece-mode-line-buffer-identification
 469          '("Riece: "
 470            riece-away-indicator
 471            riece-operator-indicator
 472            riece-freeze-indicator
 473            riece-channel-status-indicator
 474            " "
 475            riece-long-channel-indicator))))
 476
 477 (defun riece-channel-list-mode ()
 478   "Major mode for displaying channel list.
 479 All normal editing commands are turned off."
 480   (kill-all-local-variables)
 481   (buffer-disable-undo)
 482
 483   ;; Make `truncate-partial-width-windows' buffer local and set it to
 484   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 485   (make-local-variable 'truncate-partial-width-windows)
 486   (setq truncate-partial-width-windows nil)
 487
 488   (setq major-mode 'riece-channel-list-mode
 489         mode-name "Channels"
 490         mode-line-buffer-identification
 491         (riece-mode-line-buffer-identification '("Riece: "))
 492         truncate-lines t
 493         buffer-read-only t)
 494   (make-local-hook 'riece-update-buffer-functions)
 495   (add-hook 'riece-update-buffer-functions
 496             'riece-update-channel-list-buffer nil t)
 497   (use-local-map riece-channel-list-mode-map)
 498   (run-hooks 'riece-channel-list-mode-hook))
 499
 500 (defun riece-user-list-mode ()
 501   "Major mode for displaying members in the IRC current channel buffer.
 502 All normal editing commands are turned off.
 503 Instead, these commands are available:
 504 \\{riece-user-list-mode-map}"
 505   (kill-all-local-variables)
 506   (buffer-disable-undo)
 507
 508   ;; Make `truncate-partial-width-windows' buffer local and set it to
 509   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 510   (make-local-variable 'truncate-partial-width-windows)
 511   (setq truncate-partial-width-windows nil)
 512
 513   (setq major-mode 'riece-user-list-mode
 514         mode-name "Users"
 515         mode-line-buffer-identification
 516         (riece-mode-line-buffer-identification
 517          '("Riece: " riece-long-channel-indicator " "))
 518         truncate-lines t
 519         buffer-read-only t)
 520   (if (boundp 'transient-mark-mode)
 521       (set (make-local-variable 'transient-mark-mode) t))
 522   (make-local-hook 'riece-update-buffer-functions)
 523   (add-hook 'riece-update-buffer-functions
 524             'riece-update-user-list-buffer nil t)
 525   (use-local-map riece-user-list-mode-map)
 526   (run-hooks 'riece-user-list-mode-hook))
 527
 528 (defun riece-create-buffers ()
 529   (let ((alist riece-buffer-alist))
 530     (while alist
 531       (save-excursion
 532         (set-buffer (apply #'riece-get-buffer-create
 533                            (cdr (car alist))))
 534         (set (car (car alist)) (current-buffer))
 535         (unless (or (null (nth 2 (car alist)))
 536                     (eq major-mode (nth 2 (car alist))))
 537           (funcall (nth 2 (car alist))))
 538         (setq alist (cdr alist))))))
 539
 540 (defvar reporter-prompt-for-summary-p)
 541 (defun riece-submit-bug-report (&optional recent-messages recent-keys)
 542   "Submit via mail a bug report on Riece."
 543   ;; This strange form ensures that (recent-keys) is the value before
 544   ;; the bug subject string is read.
 545   (interactive (list (riece-recent-messages 20) (recent-keys)))
 546   (message "Querying server version...")
 547   (let ((pointer riece-server-process-alist)
 548         nickname)
 549     (while pointer
 550       (if (and (riece-server-process-opened (cdr (car pointer)))
 551                (setq nickname
 552                      (with-current-buffer (process-buffer (cdr (car pointer)))
 553                      riece-real-nickname)))
 554           (process-send-string
 555            (cdr (car pointer))
 556            "VERSION\r\n")
 557           (process-send-string
 558            (cdr (car pointer))
 559            (format "PRIVMSG %s :\1VERSION\1\r\n" nickname)))
 560       (setq pointer (cdr pointer))))
 561   (sit-for 3)
 562   (message "Querying server version...done")
 563   (require 'reporter)
 564   (let ((reporter-prompt-for-summary-p t))
 565     (unless riece-debug
 566       (error "Please turn on riece-debug and restart Riece."))
 567     (reporter-submit-bug-report
 568      "liece@unixuser.org"
 569      (riece-version)
 570      '(riece-debug)
 571      nil
 572      nil
 573      "This bug report will be sent to the Riece Development Team,
 574 not to your local site managers!!
 575
 576 Please write in Japanese or English, because the Riece maintainers do
 577 not have translators to read other languages for them.
 578
 579 Please describe as succinctly as possible:
 580 \t- What happened.
 581 \t- What you thought should have happened.
 582 \t- Precisely what you were doing at the time.
 583
 584 Also include a reliable recipe for triggering the bug, as well as
 585 any lisp back-traces that you may have.
 586 \(setq stack-trace-on-error t\), or \(setq debug-on-error t\) if you
 587 are familiar with the debugger, to get a lisp back-trace.")
 588       (save-excursion
 589         (goto-char (point-max))
 590         (insert
 591          "\nAdd-on state:\n"
 592          "------------\n"
 593          (save-window-excursion
 594            (save-excursion
 595              (riece-command-list-addons)
 596              (search-forward "\n\n")
 597              (buffer-substring (point-min) (point)))))
 598         (insert "Recent messages from servers:\n"
 599                 "--------------------------")
 600         (let ((pointer riece-server-process-alist))
 601           (while pointer
 602             (insert "\n- \"" (car (car pointer)) "\", \n"
 603                     (format "%S" (if (equal (car (car pointer)) "")
 604                                      riece-server
 605                                    (cdr (assoc (car (car pointer))
 606                                                riece-server-alist))))
 607                     "\n"
 608                     (if (riece-server-process-opened (cdr (car pointer)))
 609                         (save-excursion
 610                           (set-buffer (process-buffer (cdr (car pointer))))
 611                           (goto-char (point-max))
 612                           (beginning-of-line -60)
 613                           (buffer-substring (point) (point-max)))
 614                       "(closed server)"))
 615             (setq pointer (cdr pointer))))
 616         ;; Insert recent keystrokes.
 617         (insert "\n\nRecent keystrokes:\n"
 618                 "-----------------\n\n")
 619         (let ((before-keys (point)))
 620         (insert (key-description recent-keys))
 621         (save-restriction
 622           (narrow-to-region before-keys (point))
 623           (goto-char before-keys)
 624           (while (progn (move-to-column 50) (not (eobp)))
 625             (search-forward " " nil t)
 626             (insert "\n"))))
 627         ;; Insert recent minibuffer messages.
 628         (insert "\n\nRecent messages (most recent first):\n"
 629                 "-----------------------------------\n"
 630                 recent-messages))))
 631
 632 (provide 'riece)
 633
 634 ;;; riece.el ends here