Mercurial > emacs
comparison lisp/gnus/message.el @ 76757:041eb08bbb33
(message-yank-original): Fix bug:
Don't switch point and mark unnecessarily.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Tue, 27 Mar 2007 14:12:33 +0000 |
| parents | 52354deba43e |
| children | b64b5f4be390 |
comparison
equal
deleted
inserted
replaced
| 76756:63293afecf15 | 76757:041eb08bbb33 |
|---|---|
| 3347 (push-mark (save-excursion | 3347 (push-mark (save-excursion |
| 3348 (insert-buffer-substring message-reply-buffer) | 3348 (insert-buffer-substring message-reply-buffer) |
| 3349 (point))) | 3349 (point))) |
| 3350 (unless arg | 3350 (unless arg |
| 3351 (funcall message-cite-function)) | 3351 (funcall message-cite-function)) |
| 3352 (message-exchange-point-and-mark) | 3352 (unless (< (point) (mark-marker)) |
| 3353 (message-exchange-point-and-mark)) | |
| 3353 (unless (bolp) | 3354 (unless (bolp) |
| 3354 (insert ?\n)) | 3355 (insert ?\n)) |
| 3355 (unless modified | 3356 (unless modified |
| 3356 (setq message-checksum (message-checksum)))))) | 3357 (setq message-checksum (message-checksum)))))) |
| 3357 | 3358 |