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
0b0ef30f
Commit
0b0ef30f
authored
Jul 21, 1992
by
Richard M. Stallman
Browse files
*** empty log message ***
parent
9ef8b0d6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
3 deletions
+7
-3
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+7
-3
No files found.
lisp/mail/sendmail.el
View file @
0b0ef30f
...
...
@@ -194,9 +194,13 @@ Prefix arg means don't delete this window."
(interactive "P")
(mail-send)
(bury-buffer (current-buffer))
(if (or (one-window-p) arg)
(switch-to-buffer (other-buffer (current-buffer)))
(delete-window)))
(if (and (not arg)
(not (one-window-p))
(save-excursion
(set-buffer (window-buffer (next-window (selected-window) 'not)))
(eq major-mode 'rmail-mode)))
(delete-window)
(switch-to-buffer (other-buffer (current-buffer)))))
(defun mail-send ()
"Send the message in the current buffer.
...
...
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