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