(gnus-setup-message): Put article numbers into the X-Draft-From header even if

 those articles aren't quoted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b58e9bd..59a0b70 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-setup-message): Put article numbers into the
+       X-Draft-From header even if those articles aren't quoted.
+
 2004-09-21  Kevin Greiner  <kgreiner@compsol.cc>
 
        * gnus-int.el (gnus-servers-that-use-local-marks): New variable.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d495bb1..4249e8f 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -406,7 +406,7 @@ Thank you for your help in stamping out bugs.
                  (not (string= ,group "")))
         (push (cons
                (intern gnus-draft-meta-information-header)
-               (gnus-inews-make-draft ,yanked))
+               (gnus-inews-make-draft (or ,yanked ,article)))
               message-required-headers))
        (unwind-protect
           (progn