# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1042758622 0
# Node ID 735a1f4fc9e0050a77bdf32a541fd437202ec915
# Parent  6a6be3d3a8985c268cbca2a775fdd5e1b6a8f86d
	* gnus-sum.el (gnus-alter-header-function): Add type and group.

diff -r 6a6be3d3a898 -r 735a1f4fc9e0 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Jan 16 19:46:00 2003 +0000
+++ b/lisp/gnus/ChangeLog	Thu Jan 16 23:10:22 2003 +0000
@@ -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-15  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-agent.el: Don't use `path'.
diff -r 6a6be3d3a898 -r 735a1f4fc9e0 lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Thu Jan 16 19:46:00 2003 +0000
+++ b/lisp/gnus/gnus-sum.el	Thu Jan 16 23:10:22 2003 +0000
@@ -806,7 +806,10 @@
 (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.")