From: 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/gitweb/?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 + + * gnus-msg.el (gnus-copy-article-buffer): Copy an article header + even if there's just a header. + 2003-02-19 Jesper Harder * 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 ""))