Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
92a38267
Commit
92a38267
authored
Dec 30, 1993
by
Richard M. Stallman
Browse files
(rmail-summary-delete-forward): Move to next or prev msg
among those included in the summary.
parent
2cbaf886
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+7
-2
No files found.
lisp/mail/rmailsum.el
View file @
92a38267
...
...
@@ -403,8 +403,13 @@ With prefix argument, delete and move backward."
(
let
(
end
)
(
rmail-summary-goto-msg
)
(
pop-to-buffer
rmail-buffer
)
(
rmail-delete-forward
backward
)
(
pop-to-buffer
rmail-summary-buffer
)))
(
rmail-delete-message
)
(
let
((
del-msg
rmail-current-message
))
(
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"
)))
(
forward-line
(
if
backward
-1
1
))))))
(
defun
rmail-summary-delete-backward
()
"Delete this message and move to previous nondeleted one.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment