"r", "R"

hi.  Berkeley Mail (and probably the "mail" that proceeded it), as well
as Brent Welch's exmh, use "r" to reply to sender and "R" to reply to
all senders, receivers, etc.  since my fingers have been programmed for
so many years, i wanted "R" to do reply all.

below is my bumbling attempt, in case it is of use to anyone.

cheers, Greg Minshall
----
;; my reply-all function
(defun ggm-mh-reply-all (message &optional includep)
  "Reply to a MESSAGE to *all* parties"
  (interactive (list
                (mh-get-msg-num t)
                current-prefix-arg))
  (mh-reply message "all" includep))

;; get ggm-mh-reply-all hooked in

(defun ggm-mh-folder-mode-hook ()
  "Hook to set key bindings in mh-e"
  ;; in folder mode, "R" is "reply all"
  (local-set-key "R" 'ggm-mh-reply-all)
  (remove-hook 'mh-folder-mode-hook 'ggm-mh-folder-mode-hook))

(add-hook 'mh-folder-mode-hook 'ggm-mh-folder-mode-hook)

(defun ggm-mh-show-mode-hook ()
  "Hook to set key bindings in mh-e"
  ;; in show mode, "R" is "reply all"
  (mh-defun-show-buffer ggm-show-mh-reply-all ggm-mh-reply-all t)
  (local-set-key "R" 'ggm-show-mh-reply-all)
  (remove-hook 'mh-show-mode-hook 'ggm-mh-show-mode-hook))

(add-hook 'mh-show-mode-hook 'ggm-mh-show-mode-hook)

-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
Don't miss this year's exciting event. There's still time to save $100. 
Use priority code J8TL2D2. 
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone