From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Jan 1994 13:57:29 +0000 (+0000)
Subject: (rmail-summary-delete-forward): Fix regexp
X-Git-Tag: emacs-19.34~10337
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94eeb96a5413de3745ab8e7e18eb050db1fa401c;p=emacs.git

(rmail-summary-delete-forward): Fix regexp
used for recognizing deleted message.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Use rmail-summary-delete-forward.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 5bcbc2f5ae8..46210dee5f7 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -409,7 +409,8 @@ With prefix argument, delete and move backward."
       (pop-to-buffer rmail-summary-buffer)
       (rmail-summary-mark-deleted del-msg)
       (while (and (not (if backward (bobp) (eobp)))
-		  (save-excursion (beginning-of-line) (looking-at " [0-9]+D")))
+		  (save-excursion (beginning-of-line)
+				  (looking-at " +[0-9]+D")))
 	(forward-line (if backward -1 1))))))
 
 (defun rmail-summary-delete-backward ()
@@ -1042,7 +1043,7 @@ buffer visiting that file."
     (let ((rmail-delete-after-output nil))
       (call-interactively 'rmail-output-to-rmail-file)))
   (if rmail-delete-after-output
-      (rmail-summary-delete-message nil)))
+      (rmail-summary-delete-forward nil)))
 
 (defun rmail-summary-output ()
   "Append this message to Unix mail file named FILE-NAME."
@@ -1052,7 +1053,7 @@ buffer visiting that file."
     (let ((rmail-delete-after-output nil))
       (call-interactively 'rmail-output)))
   (if rmail-delete-after-output
-      (rmail-summary-delete-message nil)))
+      (rmail-summary-delete-forward nil)))
 
 ;; Sorting messages in Rmail Summary buffer.