aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2012-04-16 18:11:45 +0800
committerChong Yidong2012-04-16 18:11:45 +0800
commit4fc2c72a6fa8b776b6c7aaa42e80cea77b99ad0f (patch)
tree083abf7b7664f63ad45ceb77817b9a080d7efadc
parent4f5d565ff35cd843ffed06e02e4c5642433124cb (diff)
downloademacs-4fc2c72a6fa8b776b6c7aaa42e80cea77b99ad0f.tar.gz
emacs-4fc2c72a6fa8b776b6c7aaa42e80cea77b99ad0f.zip
* mail/sendmail.el (mail-bury): Call return action with the right Rmail buffer.
Fixes: debbugs:11242
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/mail/sendmail.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db559581ec2..e1232eb52e5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-04-16 Chong Yidong <cyd@gnu.org>
2
3 * mail/sendmail.el (mail-bury): Call return action with the right
4 Rmail buffer (Bug#11242).
5
12012-04-15 Chong Yidong <cyd@gnu.org> 62012-04-15 Chong Yidong <cyd@gnu.org>
2 7
3 * server.el (server-process-filter): Handle corner case where both 8 * server.el (server-process-filter): Handle corner case where both
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 933eaef8119..c4647d7893e 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -864,7 +864,7 @@ Prefix arg means don't delete this window."
864 (unless return-action 864 (unless return-action
865 (dolist (buffer (buffer-list)) 865 (dolist (buffer (buffer-list))
866 (if (eq (buffer-local-value 'major-mode buffer) 'rmail-mode) 866 (if (eq (buffer-local-value 'major-mode buffer) 'rmail-mode)
867 (setq return-action `(rmail-mail-return ,newbuf))))) 867 (setq return-action `(rmail-mail-return ,buffer)))))
868 (if (and (null arg) return-action) 868 (if (and (null arg) return-action)
869 (apply (car return-action) (cdr return-action)) 869 (apply (car return-action) (cdr return-action))
870 (switch-to-buffer newbuf)))) 870 (switch-to-buffer newbuf))))