[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.38 emacs/lisp/gnus/gnus-art.el:1.39
*** emacs/lisp/gnus/gnus-art.el:1.38    Thu Feb  7 10:57:55 2002
--- emacs/lisp/gnus/gnus-art.el Wed Feb 13 12:35:19 2002
***************
*** 1400,1406 ****
          (width (window-width (get-buffer-window (current-buffer)))))
        (save-restriction
        (article-goto-body)
!       (let ((adaptive-fill-mode nil))
          (while (not (eobp))
            (end-of-line)
            (when (>= (current-column) (min fill-column width))
--- 1400,1406 ----
          (width (window-width (get-buffer-window (current-buffer)))))
        (save-restriction
        (article-goto-body)
!       (let ((adaptive-fill-mode nil)) ;Why?  -sm
          (while (not (eobp))
            (end-of-line)
            (when (>= (current-column) (min fill-column width))
***************
*** 4137,4157 ****
                     "\C-c\C-w" gnus-article-edit-mode-map)
      "f" gnus-article-edit-full-stops))
  
! (defun gnus-article-edit-mode ()
    "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)
    (setq buffer-read-only nil)
    (buffer-enable-undo)
!   (widen)
!   (gnus-run-hooks 'text-mode-hook 'gnus-article-edit-mode-hook))
  
  (defun gnus-article-edit (&optional force)
    "Edit the current article.
--- 4137,4154 ----
                     "\C-c\C-w" gnus-article-edit-mode-map)
      "f" gnus-article-edit-full-stops))
  
! (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}"
    (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))
  
  (defun gnus-article-edit (&optional force)
    "Edit the current article.