From 9f37b2eef41114cec2a09e1ec991b249a6bccc63 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 19 Feb 2003 06:42:17 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 "")) -- 1.7.10.4