(fset 'hg-queued-thanks
   "\C-s# parent\C-[OC\C-[risearch-forward-re\C-m^> [^#]\C-m\C-a\C-[OB\C-m\C-m\C-[OA\C-[OA\C-mqueued, thanks\C-@\C-[>\C-w\C-l")

(fset 'hg-queued-thanks-keep-body
   "\C-s# parent\C-[OC\C-[risearch-forward-re\C-m^> [^#]\C-m\C-a\C-[OB\C-m\C-m\C-[OA\C-[OA\C-mqueued, thanks")