Mercurial > emacs

changeset 5678:3824222fed2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-undelete): If we don't undelete anything, don't move point.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Jan 1994 18:58:37 +0000
parents 8143f6ad30d2
children 90ba98c692b5
files lisp/mail/rmailsum.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."