Mercurial > emacs
diff lisp/gnus/gnus-eform.el @ 85712:a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 28 Oct 2007 09:18:39 +0000 |
parents | 24202b793a08 |
children | 107ccd98fa12 880960b70474 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-eform.el Sun Oct 28 04:58:17 2007 +0000 +++ b/lisp/gnus/gnus-eform.el Sun Oct 28 09:18:39 2007 +0000 @@ -86,13 +86,14 @@ (make-local-variable 'gnus-prev-winconf) (gnus-run-mode-hooks 'gnus-edit-form-mode-hook)) -(defun gnus-edit-form (form documentation exit-func) +(defun gnus-edit-form (form documentation exit-func &optional layout) "Edit FORM in a new buffer. Call EXIT-FUNC on exit. Display DOCUMENTATION in the beginning -of the buffer." +of the buffer. +The optional LAYOUT overrides the `edit-form' window layout." (let ((winconf (current-window-configuration))) (set-buffer (gnus-get-buffer-create gnus-edit-form-buffer)) - (gnus-configure-windows 'edit-form) + (gnus-configure-windows (or layout 'edit-form)) (gnus-edit-form-mode) (setq gnus-prev-winconf winconf) (setq gnus-edit-form-done-function exit-func)