mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(rmail-summary-delete-forward): Fix regexp

Browse Source 
used for recognizing deleted message.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Use rmail-summary-delete-forward.
This commit is contained in:
Richard M. Stallman 1994-01-08 13:57:29 +00:00
parent 80e4aa30c4
commit 94eeb96a54
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmailsum.el
View File

@ -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.