X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmessage.el;h=c8a706e44dec9f0bb377ff64c9c5c4c26fa46dc6;hb=b2ea476e0bc6e2973976b376c15be5381fe3127f;hp=bfe07e610ebe28be70bd8033f4768dc4a22b82cc;hpb=2e087cb0e6a334fd151911b19ed234b88fb292fd;p=gnus

diff --git a/lisp/message.el b/lisp/message.el
index bfe07e610..c8a706e44 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6823,7 +6823,7 @@ Useful functions to put in this list include:
   subject)
 
 ;;;###autoload
-(defun message-reply (&optional to-address wide)
+(defun message-reply (&optional to-address wide switch-function)
   "Start editing a reply to the article in the current buffer."
   (interactive)
   (require 'gnus-sum)			; for gnus-list-identifiers
@@ -6866,7 +6866,8 @@ Useful functions to put in this list include:
       (message-pop-to-buffer
        (message-buffer-name
 	(if wide "wide reply" "reply") from
-	(if wide to-address nil))))
+	(if wide to-address nil))
+       switch-function))
 
     (setq message-reply-headers
 	  (vector 0 subject from date message-id references 0 0 ""))