From 5ed1243c2fca529959338f557aabb46a46edbe24 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 Jan 1994 18:58:37 +0000 Subject: [PATCH] (rmail-summary-undelete): If we don't undelete anything, don't move point. --- lisp/mail/rmailsum.el | 6 ++++-- 1 file 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." (interactive "p") (if (/= arg 1) (rmail-summary-undelete-many arg) - (let ((buffer-read-only nil)) + (let ((buffer-read-only nil) + (opoint (point))) (end-of-line) (cond ((re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" nil t) (replace-match "\\1 ") @@ -456,7 +457,8 @@ Optional prefix ARG means undelete ARG previous messages." (pop-to-buffer rmail-buffer) (and (rmail-message-deleted-p rmail-current-message) (rmail-undelete-previous-message)) - (pop-to-buffer rmail-summary-buffer)))))) + (pop-to-buffer rmail-summary-buffer)) + (t (goto-char opoint)))))) (defun rmail-summary-undelete-many (&optional n) "Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs." -- 2.39.5