diff options
| author | Richard M. Stallman | 1994-01-26 18:58:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-26 18:58:37 +0000 |
| commit | 5ed1243c2fca529959338f557aabb46a46edbe24 (patch) | |
| tree | e8121fca05c094881b9ff3404297dade71605da2 | |
| parent | f795ed97e67ced9391ec39c5d42fecfb4e35d2e2 (diff) | |
| download | emacs-5ed1243c2fca529959338f557aabb46a46edbe24.tar.gz emacs-5ed1243c2fca529959338f557aabb46a46edbe24.zip | |
(rmail-summary-undelete): If we don't undelete anything, don't move point.
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 46210dee5f7..ef8b101ccde 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -448,7 +448,8 @@ Optional prefix ARG means undelete ARG previous messages." | |||
| 448 | (interactive "p") | 448 | (interactive "p") |
| 449 | (if (/= arg 1) | 449 | (if (/= arg 1) |
| 450 | (rmail-summary-undelete-many arg) | 450 | (rmail-summary-undelete-many arg) |
| 451 | (let ((buffer-read-only nil)) | 451 | (let ((buffer-read-only nil) |
| 452 | (opoint (point))) | ||
| 452 | (end-of-line) | 453 | (end-of-line) |
| 453 | (cond ((re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" nil t) | 454 | (cond ((re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" nil t) |
| 454 | (replace-match "\\1 ") | 455 | (replace-match "\\1 ") |
| @@ -456,7 +457,8 @@ Optional prefix ARG means undelete ARG previous messages." | |||
| 456 | (pop-to-buffer rmail-buffer) | 457 | (pop-to-buffer rmail-buffer) |
| 457 | (and (rmail-message-deleted-p rmail-current-message) | 458 | (and (rmail-message-deleted-p rmail-current-message) |
| 458 | (rmail-undelete-previous-message)) | 459 | (rmail-undelete-previous-message)) |
| 459 | (pop-to-buffer rmail-summary-buffer)))))) | 460 | (pop-to-buffer rmail-summary-buffer)) |
| 461 | (t (goto-char opoint)))))) | ||
| 460 | 462 | ||
| 461 | (defun rmail-summary-undelete-many (&optional n) | 463 | (defun rmail-summary-undelete-many (&optional n) |
| 462 | "Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs." | 464 | "Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs." |