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)) |
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. |