(rmail-message-filter): Fix custom type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 008979f0477cd03a505b90f80d3d54fda2a91ee8..e1ee3820644c1f47dcf9e26aaadbc09a8994e107 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-24  John Paul Wallington  <jpw@pobox.com>
+
+       * mail/rmail.el (rmail-message-filter): Fix custom type.
+
 2007-02-24  Eli Zaretskii  <eliz@gnu.org>
 
        * startup.el (command-line): If simple.el cannot be found, proceed

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 5c0412fa2becf1093546ae977c7b21c52b6a8ade..5e534b2d47d8026c588b89144265fc2295270e04 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -422,7 +422,7 @@ still the current message in the Rmail buffer.")
 Called with region narrowed to the message, including headers,
 before obeying `rmail-ignored-headers'."
   :group 'rmail-headers
-  :type 'function)
+  :type '(choice (const nil) function))
 
 (defcustom rmail-automatic-folder-directives nil
   "List of directives specifying where to put a message.