X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-ml.el;h=8ff36160f0900d58c65b4d8d06c233e404589aa2;hp=3a5b8deb45f5f2e7b84b18b565b650cc285bb2b5;hb=b83f8075b710368442538ef872ed3f6b5400698a;hpb=f129936b5f5743512e00459b1ebba068a1025fb9

diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el
index 3a5b8deb4..8ff36160f 100644
--- a/lisp/gnus-ml.el
+++ b/lisp/gnus-ml.el
@@ -1,7 +1,6 @@
 ;;; gnus-ml.el --- Mailing list minor mode for Gnus
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2016 Free Software Foundation, Inc.
 
 ;; Author: Julien Gilles  <jgilles@free.fr>
 ;; Keywords: news, mail
@@ -85,6 +84,12 @@ If FORCE is non-nil, replace the old ones."
 	  (gnus-mailing-list-mode 1))
       (gnus-message 1 "no list-post in this message."))))
 
+(eval-when-compile
+  (when (featurep 'xemacs)
+    (defvar gnus-mailing-list-mode-hook)
+    (defvar gnus-mailing-list-mode-on-hook)
+    (defvar gnus-mailing-list-mode-off-hook)))
+
 ;;;###autoload
 (define-minor-mode gnus-mailing-list-mode
   "Minor mode for providing mailing-list commands.
@@ -174,5 +179,4 @@ ADDRESS is specified by a \"mailto:\" URL."
 
 (provide 'gnus-ml)
 
-;; arch-tag: 936c0fe6-acce-4c16-87d0-eded88078896
 ;;; gnus-ml.el ends here