Mercurial > emacs

comparison lisp/gnus/gnus-msg.el @ 76928:e9a67d6e120b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))