* 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 (file)
--- 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))