(message-hidden-headers): Add X-Draft-From.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aee32e8..6936154 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2006-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-hidden-headers): Add X-Draft-From.
+
        * gnus-sum.el (gnus-summary-repeat-search-article-forward): New
        command. 
        (gnus-summary-repeat-search-article-backward): New command. 

diff --git a/lisp/message.el b/lisp/message.el
index 5c9a491..bfcf16d 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1132,7 +1132,8 @@ candidates:
   (or (not (listp message-shoot-gnksa-feet))
       (memq feature message-shoot-gnksa-feet)))
 
-(defcustom message-hidden-headers '("^References:" "^Face:" "^X-Face:")
+(defcustom message-hidden-headers '("^References:" "^Face:" "^X-Face:"
+                                   "^X-Draft-From:")
   "Regexp of headers to be hidden when composing new messages.
 This can also be a list of regexps to match headers.  Or a list
 starting with `not' and followed by regexps."