procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/message.el (message-bury): Minor cleanup.

Browse source
This commit is contained in:
Sam Steingold 2013-03-18 13:25:15 -04:00
parent e477dbfa64
commit a22b4ca140
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2013-03-18 Sam Steingold <sds@gnu.org>
* message.el (message-bury): Minor cleanup.
2013-03-06 Katsumi Yamaoka <yamaoka@jpl.org>
* nndir.el (nndir-request-list): Remove 2nd argument passed to

8
lisp/gnus/message.el
View file

@ -4097,11 +4097,9 @@ Instead, just auto-save the buffer and then bury it."
(defun message-bury (buffer)
"Bury this mail BUFFER."
(if message-return-action
(progn
(bury-buffer buffer)
(apply (car message-return-action) (cdr message-return-action)))
(with-current-buffer buffer (bury-buffer))))
(bury-buffer buffer)
(when message-return-action
(apply (car message-return-action) (cdr message-return-action))))
(defun message-send (&optional arg)
"Send the message in the current buffer.