Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 110436:de3a95d08649
Make Gnus work for Emacs 22 and XEmacs.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 20 Sep 2010 01:57:46 +0000 |
| parents | 33cf78a271ef |
| children | b7b7e970d807 |
comparison
equal
deleted
inserted
replaced
| 110435:7f85b522c27e | 110436:de3a95d08649 |
|---|---|
| 10767 (when (<= (+ forward (point)) (point-max)) | 10767 (when (<= (+ forward (point)) (point-max)) |
| 10768 ;; Go to the right position on the line. | 10768 ;; Go to the right position on the line. |
| 10769 (goto-char (+ forward (point))) | 10769 (goto-char (+ forward (point))) |
| 10770 ;; Replace the old mark with the new mark. | 10770 ;; Replace the old mark with the new mark. |
| 10771 (let ((to-insert | 10771 (let ((to-insert |
| 10772 (subst-char-in-string (char-after) mark | 10772 (mm-subst-char-in-string |
| 10773 (buffer-substring (point) (1+ (point)))))) | 10773 (char-after) mark |
| 10774 (buffer-substring (point) (1+ (point)))))) | |
| 10774 (delete-region (point) (1+ (point))) | 10775 (delete-region (point) (1+ (point))) |
| 10775 (insert to-insert)) | 10776 (insert to-insert)) |
| 10776 ;; Optionally update the marks by some user rule. | 10777 ;; Optionally update the marks by some user rule. |
| 10777 (when (eq type 'unread) | 10778 (when (eq type 'unread) |
| 10778 (gnus-data-set-mark | 10779 (gnus-data-set-mark |