Skip to content

GitLab

Commit bf6c5a8f authored by ShengHuo ZHU's avatar ShengHuo ZHU
Browse files

* gnus-art.el (gnus-article-edit-done): Widen the article buffer.

parent 929e8487
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 1 deletion
lisp/gnus/ChangeLog
View file @ bf6c5a8f
2002-02-21 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (gnus-article-edit-done): Widen the article buffer.
2002-02-19 ShengHuo ZHU <zsh@cs.rochester.edu> 2002-02-19 ShengHuo ZHU <zsh@cs.rochester.edu>
* mm-encode.el (mm-content-transfer-encoding-defaults): Set * mm-encode.el (mm-content-transfer-encoding-defaults): Set
......
lisp/gnus/gnus-art.el
View file @ bf6c5a8f
...@@ -4182,9 +4182,9 @@ groups." ...@@ -4182,9 +4182,9 @@ groups."
(defun gnus-article-edit-done (&optional arg) (defun gnus-article-edit-done (&optional arg)
"Update the article edits and exit." "Update the article edits and exit."
(interactive "P") (interactive "P")
(widen)
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen)
(when (article-goto-body) (when (article-goto-body)
(let ((lines (count-lines (point) (point-max))) (let ((lines (count-lines (point) (point-max)))
(length (- (point-max) (point))) (length (- (point-max) (point)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment