From 80b473796a21d013ef78787c89ec3e8dc45d34bb Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 13 Feb 2002 17:35:19 +0000 Subject: * gnus-art.el (gnus-article-edit-mode): Use define-derived-mode. From: Stefan Monnier --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-art.el | 13 +++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) (limited to 'lisp') diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 95eee15d47..793cfcf8bc 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2002-02-13 ShengHuo ZHU + + * gnus-art.el (gnus-article-edit-mode): Use define-derived-mode. + From: Stefan Monnier + 2002-02-07 ShengHuo ZHU * gnus-art.el (article-wash-html): Bind url-gateway-unplugged. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 98075c940e..a65414edbe 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1400,7 +1400,7 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")." (width (window-width (get-buffer-window (current-buffer))))) (save-restriction (article-goto-body) - (let ((adaptive-fill-mode nil)) + (let ((adaptive-fill-mode nil)) ;Why? -sm (while (not (eobp)) (end-of-line) (when (>= (current-column) (min fill-column width)) @@ -4137,21 +4137,18 @@ If given a prefix, show the hidden text instead." "\C-c\C-w" gnus-article-edit-mode-map) "f" gnus-article-edit-full-stops)) -(defun gnus-article-edit-mode () +(define-derived-mode gnus-article-edit-mode text-mode "Article Edit" "Major mode for editing articles. This is an extended text-mode. \\{gnus-article-edit-mode-map}" - (interactive) - (setq major-mode 'gnus-article-edit-mode) - (setq mode-name "Article Edit") - (use-local-map gnus-article-edit-mode-map) (make-local-variable 'gnus-article-edit-done-function) (make-local-variable 'gnus-prev-winconf) + (set (make-local-variable 'font-lock-defaults) + '(message-font-lock-keywords t)) (setq buffer-read-only nil) (buffer-enable-undo) - (widen) - (gnus-run-hooks 'text-mode-hook 'gnus-article-edit-mode-hook)) + (widen)) (defun gnus-article-edit (&optional force) "Edit the current article. -- cgit v1.2.3