# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 759610717 0
# Node ID 3824222fed2e96c06a26b39ef0e09711f8fd8a97
# Parent  8143f6ad30d2384b8197fda85b1a216e93c8d44c
(rmail-summary-undelete): If we don't undelete anything, don't move point.

diff -r 8143f6ad30d2 -r 3824222fed2e lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Wed Jan 26 17:57:30 1994 +0000
+++ b/lisp/mail/rmailsum.el	Wed Jan 26 18:58:37 1994 +0000
@@ -448,7 +448,8 @@
   (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 @@
 	     (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."