projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(spam-necessary-extra-headers): make
[gnus]
/
lisp
/
gnus-eform.el
diff --git
a/lisp/gnus-eform.el
b/lisp/gnus-eform.el
index
dff64d7
..
be31e37
100644
(file)
--- a/
lisp/gnus-eform.el
+++ b/
lisp/gnus-eform.el
@@
-1,5
+1,7
@@
;;; gnus-eform.el --- a mode for editing forms for Gnus
;;; 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, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-18,8
+20,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-82,7
+84,7
@@
It is a slightly enhanced emacs-lisp-mode.
(use-local-map gnus-edit-form-mode-map)
(make-local-variable 'gnus-edit-form-done-function)
(make-local-variable 'gnus-prev-winconf)
(use-local-map gnus-edit-form-mode-map)
(make-local-variable 'gnus-edit-form-done-function)
(make-local-variable 'gnus-prev-winconf)
- (gnus-run-hooks 'gnus-edit-form-mode-hook))
+ (gnus-run-
mode-
hooks 'gnus-edit-form-mode-hook))
(defun gnus-edit-form (form documentation exit-func)
"Edit FORM in a new buffer.
(defun gnus-edit-form (form documentation exit-func)
"Edit FORM in a new buffer.
@@
-105,7
+107,7
@@
of the buffer."
(insert ";; Type `C-c C-c' after you've finished editing.\n")
(insert "\n")
(let ((p (point)))
(insert ";; Type `C-c C-c' after you've finished editing.\n")
(insert "\n")
(let ((p (point)))
- (
pp form (current-buffer)
)
+ (
gnus-pp form
)
(insert "\n")
(goto-char p))))
(insert "\n")
(goto-char p))))
@@
-113,7
+115,9
@@
of the buffer."
"Update changes and kill the current buffer."
(interactive)
(goto-char (point-min))
"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)))
(func gnus-edit-form-done-function))
(gnus-edit-form-exit)
(funcall func form)))
@@
-127,4
+131,5
@@
of the buffer."
(provide 'gnus-eform)
(provide 'gnus-eform)
+;;; arch-tag: ef50678c-2c28-49ef-affc-e53b3b2c0bf6
;;; gnus-eform.el ends here
;;; gnus-eform.el ends here