Mercurial > emacs
comparison lisp/gnus/gnus-msg.el @ 76928:e9a67d6e120b
(gnus-inews-yank-articles): Fix bug: After
message-yank-original, make sure (< mark TEXT point).
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Tue, 03 Apr 2007 23:24:22 +0000 |
parents | 665998d6d5de |
children | b64b5f4be390 |
comparison
equal
deleted
inserted
replaced
76927:8199e6703268 | 76928:e9a67d6e120b |
---|---|
769 (with-current-buffer gnus-article-copy | 769 (with-current-buffer gnus-article-copy |
770 (save-restriction | 770 (save-restriction |
771 (nnheader-narrow-to-headers) | 771 (nnheader-narrow-to-headers) |
772 (nnheader-parse-naked-head))))) | 772 (nnheader-parse-naked-head))))) |
773 (message-yank-original) | 773 (message-yank-original) |
774 (exchange-point-and-mark) ; so that (< mark TEXT point) | |
774 (setq beg (or beg (mark t)))) | 775 (setq beg (or beg (mark t)))) |
775 (when articles | 776 (when articles |
776 (insert "\n"))) | 777 (insert "\n"))) |
777 (push-mark) | 778 (push-mark) |
778 (goto-char beg))) | 779 (goto-char beg))) |