X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-eform.el;h=e43e01c99fe2a22b42a93ec248fca4771c03ae48;hb=5dfa1f3daa6e4ea6ee12a8b7f42e785761ee3743;hp=dff64d75280dd4597b8861b02be0179ef06ce339;hpb=1774ae25842f79d393cc8dd84a43e8eb9224d4ce;p=gnus

diff --git a/lisp/gnus-eform.el b/lisp/gnus-eform.el
index dff64d752..e43e01c99 100644
--- a/lisp/gnus-eform.el
+++ b/lisp/gnus-eform.el
@@ -1,5 +1,6 @@
 ;;; gnus-eform.el --- a mode for editing forms for Gnus
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -113,7 +114,9 @@ of the buffer."
   "Update changes and kill the current buffer."
   (interactive)
   (goto-char (point-min))
-  (let ((form (read (current-buffer)))
+  (let ((form (condition-case nil
+		  (read (current-buffer))
+		(end-of-file nil)))
 	(func gnus-edit-form-done-function))
     (gnus-edit-form-exit)
     (funcall func form)))
@@ -127,4 +130,5 @@ of the buffer."
 
 (provide 'gnus-eform)
 
+;;; arch-tag: ef50678c-2c28-49ef-affc-e53b3b2c0bf6
 ;;; gnus-eform.el ends here