From: yamaoka <yamaoka>
Date: Thu, 21 Jun 2001 23:37:28 +0000 (+0000)
Subject: * gnus-msg.el (gnus-copy-article-buffer): Fix `point' -> `(point)'.
X-Git-Tag: t-gnus-6_15_4-02-quimby-last-~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ac68d6831a8a0dde61143ba5566913e482f0de81;p=elisp%2Fgnus.git-

* gnus-msg.el (gnus-copy-article-buffer): Fix `point' -> `(point)'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index c2604bd..c4c3a55 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -578,7 +578,7 @@ header line with the old Message-ID."
 	    (while (looking-at message-unix-mail-delimiter)
 	      (forward-line 1))
 	    (setq beg (point))
-	    (setq end (or (message-goto-body) point))
+	    (setq end (or (message-goto-body) (point)))
 	    ;; Delete the headers from the displayed articles.
 	    (set-buffer gnus-article-copy)
 	    (delete-region (goto-char (point-min))