rmail-show-message-hook): Customize and offer

goto-addr as an option.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index cb18a9053c4f5b5081884c644b6dd70ff6803a5d..1a32ef1a9da4d9b93712ad749f26b3edc2c5e69c 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -236,8 +236,11 @@ and the value of the environment variable MAIL overrides it)."
   "List of functions to call when Rmail has retrieved new mail.")
 
 ;;;###autoload
-(defvar rmail-show-message-hook nil
-  "List of functions to call when Rmail displays a message.")
+(defcustom rmail-show-message-hook nil
+  "List of functions to call when Rmail displays a message."
+  :type 'hook
+  :options '(goto-addr)
+  :group 'rmail)
 
 ;;;###autoload
 (defvar rmail-quit-hook nil