/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by zsh, Thu Feb 7 15:57:55 2002 UTC revision 1.39 by zsh, Wed Feb 13 17:35:19 2002 UTC
# Line 1400  MAP is an alist where the elements are o Line 1400  MAP is an alist where the elements are o
1400            (width (window-width (get-buffer-window (current-buffer)))))            (width (window-width (get-buffer-window (current-buffer)))))
1401        (save-restriction        (save-restriction
1402          (article-goto-body)          (article-goto-body)
1403          (let ((adaptive-fill-mode nil))          (let ((adaptive-fill-mode nil)) ;Why?  -sm
1404            (while (not (eobp))            (while (not (eobp))
1405              (end-of-line)              (end-of-line)
1406              (when (>= (current-column) (min fill-column width))              (when (>= (current-column) (min fill-column width))
# Line 4137  If given a prefix, show the hidden text Line 4137  If given a prefix, show the hidden text
4137                       "\C-c\C-w" gnus-article-edit-mode-map)                       "\C-c\C-w" gnus-article-edit-mode-map)
4138      "f" gnus-article-edit-full-stops))      "f" gnus-article-edit-full-stops))
4139    
4140  (defun gnus-article-edit-mode ()  (define-derived-mode gnus-article-edit-mode text-mode "Article Edit"
4141    "Major mode for editing articles.    "Major mode for editing articles.
4142  This is an extended text-mode.  This is an extended text-mode.
4143    
4144  \\{gnus-article-edit-mode-map}"  \\{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)  
4145    (make-local-variable 'gnus-article-edit-done-function)    (make-local-variable 'gnus-article-edit-done-function)
4146    (make-local-variable 'gnus-prev-winconf)    (make-local-variable 'gnus-prev-winconf)
4147      (set (make-local-variable 'font-lock-defaults)
4148           '(message-font-lock-keywords t))
4149    (setq buffer-read-only nil)    (setq buffer-read-only nil)
4150    (buffer-enable-undo)    (buffer-enable-undo)
4151    (widen)    (widen))
   (gnus-run-hooks 'text-mode-hook 'gnus-article-edit-mode-hook))  
4152    
4153  (defun gnus-article-edit (&optional force)  (defun gnus-article-edit (&optional force)
4154    "Edit the current article.    "Edit the current article.

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26