* gnus-sum.el (gnus-alter-header-function): Add type and group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c072429..696fbc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-16  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-alter-header-function): Add type and group.
+
 2003-01-16  Simon Josefsson  <jas@extundo.com>
 
        * gnus-fun.el (gnus-convert-image-to-x-face-command) 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 66697f1..f8594da 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -922,7 +922,10 @@ mark:         The articles mark."
 (defcustom gnus-alter-header-function nil
   "Function called to allow alteration of article header structures.
 The function is called with one parameter, the article header vector,
-which it may alter in any way.")
+which it may alter in any way."
+  :type '(choice (const :tag "None" nil)
+                function)
+  :group 'gnus-summary)
 
 (defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string
   "Variable that says which function should be used to decode a string with encoded words.")