-(eval-when-compile
- (defvar *dmacro-key* nil))
-
-(defun riece-foolproof-dmacro-override (&optional arg)
- (when (and (fboundp 'dmacro-exec) (boundp '*dmacro-key*))
- (with-current-buffer riece-command-buffer
- (if arg
- (when (eq (key-binding *dmacro-key*) 'dmacro-exec)
- (local-set-key *dmacro-key* #'ignore))
- (when (eq (key-binding *dmacro-key*) 'ignore)
- (local-unset-key *dmacro-key*))))))
-
-(defun riece-foolproof-insinuate ()
- (defadvice riece-command-send-message (before riece-foolproof)