Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 15658:996e272e9192
(rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message):
Call rmail-summary-goto-msg to move point in the summary.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 13 Jul 1996 00:57:31 +0000 |
| parents | 7b2621dc4bea |
| children | fa3885bdc49c |
comparison
equal
deleted
inserted
replaced
| 15657:6ad5994053af | 15658:996e272e9192 |
|---|---|
| 467 | 467 |
| 468 (defun rmail-summary-next-labeled-message (n labels) | 468 (defun rmail-summary-next-labeled-message (n labels) |
| 469 "Show next message with LABEL. Defaults to last labels used. | 469 "Show next message with LABEL. Defaults to last labels used. |
| 470 With prefix argument N moves forward N messages with these labels." | 470 With prefix argument N moves forward N messages with these labels." |
| 471 (interactive "p\nsMove to next msg with labels: ") | 471 (interactive "p\nsMove to next msg with labels: ") |
| 472 (save-excursion | 472 (let (msg) |
| 473 (set-buffer rmail-buffer) | 473 (save-excursion |
| 474 (rmail-next-labeled-message n labels))) | 474 (set-buffer rmail-buffer) |
| 475 (rmail-next-labeled-message n labels) | |
| 476 (setq msg rmail-current-message)) | |
| 477 (rmail-summary-goto-msg msg))) | |
| 475 | 478 |
| 476 (defun rmail-summary-previous-labeled-message (n labels) | 479 (defun rmail-summary-previous-labeled-message (n labels) |
| 477 "Show previous message with LABEL. Defaults to last labels used. | 480 "Show previous message with LABEL. Defaults to last labels used. |
| 478 With prefix argument N moves backward N messages with these labels." | 481 With prefix argument N moves backward N messages with these labels." |
| 479 (interactive "p\nsMove to previous msg with labels: ") | 482 (interactive "p\nsMove to previous msg with labels: ") |
| 480 (save-excursion | 483 (let (msg) |
| 481 (set-buffer rmail-buffer) | 484 (save-excursion |
| 482 (rmail-previous-labeled-message n labels))) | 485 (set-buffer rmail-buffer) |
| 486 (rmail-previous-labeled-message n labels) | |
| 487 (setq msg rmail-current-message)) | |
| 488 (rmail-summary-goto-msg msg))) | |
| 483 | 489 |
| 484 (defun rmail-summary-next-same-subject (n) | 490 (defun rmail-summary-next-same-subject (n) |
| 485 "Go to the next message in the summary having the same subject. | 491 "Go to the next message in the summary having the same subject. |
| 486 With prefix argument N, do this N times. | 492 With prefix argument N, do this N times. |
| 487 If N is negative, go backwards." | 493 If N is negative, go backwards." |