Gnu Emacs Doctor actually recognizes RMS's name, and has canned responses for it.

So I fed his 1993 Kabuki-West Natalism Flame to it (the inappropriately announced baby in question is 33 years old now!):

http://www.art.net/studios/hackers/hopkins/Don/text/rms-vs-d...

>Are you annoyed that Stallman is emotionally stimulating?

https://raw.githubusercontent.com/jwiegley/emacs-release/ref...

  (set (make-local-variable 'doctor--stallmanlst)
       '(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.)
  ((doc$ doctor--areyou) a friend of Stallman \?)
  ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?)

[...]

  (set (make-local-variable 'doctor--rms-flag) nil)

[...]

  (doctor-put-meaning rms 'rms)
  (doctor-put-meaning stallman 'rms)

[...]

  ;; I did not add this -- rms.
  ;; But he might have removed it.  I put it back.  --roland
  (defun doctor-rms ()
    (cond (doctor--rms-flag (doctor-type (doc$ doctor--stallmanlst)))
          (t (setq doctor--rms-flag t) (doctor-type '(do you know Stallman \?)))))