diff options
| author | Chong Yidong | 2012-04-16 18:11:45 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-04-16 18:11:45 +0800 |
| commit | 4fc2c72a6fa8b776b6c7aaa42e80cea77b99ad0f (patch) | |
| tree | 083abf7b7664f63ad45ceb77817b9a080d7efadc | |
| parent | 4f5d565ff35cd843ffed06e02e4c5642433124cb (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 2 |
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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-04-15 Chong Yidong <cyd@gnu.org> | 6 | 2012-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)))) |