[Erc-help] the doctor is in...

[<dm...@dm...>]

A useful robot:

(defun dme:erc-doctor (args)
  (let* ((dbuf "*doctor*")
	 (docbuf (get-buffer dbuf))
	 outpoint
	 res)
    (if (not docbuf)
	(progn
	  (doctor)
	  (setq docbuf (get-buffer dbuf))
	  (bury-buffer docbuf)))
    (save-excursion
      (set-buffer docbuf)
      (goto-char (point-max))
      (insert args)
      (goto-char (point-max))
      (setq outpoint (point))
      (doctor-ret-or-read 1)
      (doctor-ret-or-read 1)
      (goto-char outpoint)
      (re-search-forward "^.")
      (setq outpoint (- (point) 1))
      (re-search-forward "^$")
      (replace-regexp-in-string "\n" " "(buffer-substring outpoint (point)))
    )))

(add-to-list 'dme:erc-robot-commands '("doctor" dme:erc-doctor))