Mercurial > emacs
changeset 81209:4667776e1edd
Alfred M. Szmidt <ams at gnu.org> (tiny change)
(rmail-summary-save-buffer): New command.
(rmail-summary-mode-map): Add rmail-summary-save-buffer.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 07 Jun 2007 06:32:42 +0000 |
| parents | c955e0a8ca6d |
| children | 719b81ea38eb |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Thu Jun 07 06:32:11 2007 +0000 +++ b/lisp/mail/rmailsum.el Thu Jun 07 06:32:42 2007 +0000 @@ -854,6 +854,15 @@ (set-buffer rmail-buffer) (rmail-show-message msg-num t)))))) (rmail-summary-update-highlight nil))))) + +(defun rmail-summary-save-buffer () + "Save the buffer associated with this RMAIL summary." + (interactive) + (save-window-excursion + (save-excursion + (switch-to-buffer rmail-buffer) + (save-buffer)))) + (if rmail-summary-mode-map nil @@ -923,6 +932,7 @@ 'rmail-summary-sort-by-lines) (define-key rmail-summary-mode-map "\C-c\C-s\C-k" 'rmail-summary-sort-by-labels) + (define-key rmail-summary-mode-map "\C-x\C-s" 'rmail-summary-save-buffer) ) ;;; Menu bar bindings.