From: yamaoka <yamaoka>
Date: Wed, 19 Feb 2003 06:42:17 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~59
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f37b2eef41114cec2a09e1ec991b249a6bccc63;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89f61c4..9548590 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-msg.el (gnus-copy-article-buffer): Copy an article header
+	even if there's just a header.
+
 2003-02-19  Jesper Harder  <harder@ifa.au.dk>
 
 	* message.el (message-fix-before-sending): Fix highlighting of
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 2488063..2a66888 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -933,7 +933,9 @@ header line with the old Message-ID."
 	      (forward-line 1))
 	    (let ((mail-header-separator ""))
 	      (setq beg (point)
-		    end (or (message-goto-body) beg)))
+		    end (or (message-goto-body)
+			    ;; There may be just a header.
+			    (point-max))))
 	    ;; Delete the headers from the displayed articles.
 	    (set-buffer gnus-article-copy)
 	    (let ((mail-header-separator ""))