Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 43446:0bd481e606f9
* gnus-art.el (gnus-article-edit-done): Widen the article buffer.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Thu, 21 Feb 2002 17:57:43 +0000 |
| parents | b8391c00e2c9 |
| children | da1c26da109e |
comparison
equal
deleted
inserted
replaced
| 43445:2fca4318df9a | 43446:0bd481e606f9 |
|---|---|
| 4180 (gnus-message 6 "C-c C-c to end edits"))) | 4180 (gnus-message 6 "C-c C-c to end edits"))) |
| 4181 | 4181 |
| 4182 (defun gnus-article-edit-done (&optional arg) | 4182 (defun gnus-article-edit-done (&optional arg) |
| 4183 "Update the article edits and exit." | 4183 "Update the article edits and exit." |
| 4184 (interactive "P") | 4184 (interactive "P") |
| 4185 (widen) | |
| 4185 (save-excursion | 4186 (save-excursion |
| 4186 (save-restriction | 4187 (save-restriction |
| 4187 (widen) | |
| 4188 (when (article-goto-body) | 4188 (when (article-goto-body) |
| 4189 (let ((lines (count-lines (point) (point-max))) | 4189 (let ((lines (count-lines (point) (point-max))) |
| 4190 (length (- (point-max) (point))) | 4190 (length (- (point-max) (point))) |
| 4191 (case-fold-search t) | 4191 (case-fold-search t) |
| 4192 (body (copy-marker (point)))) | 4192 (body (copy-marker (point)))) |