diff options
author | Glenn Morris <[email protected]> | 2007-06-07 06:38:43 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2007-06-07 06:38:43 +0000 |
commit | f1c5dbb9d667ac1108b0f1d97e9739212325aebf (patch) | |
tree | 8aab0aea38a95e00e54353ba3d552c78c2c37cf8 /lisp/mail | |
parent | 37229e1091ebd3b84a14a496470a120777374701 (diff) |
Alfred M. Szmidt <ams at gnu.org> (tiny change)
(rmail-summary-save-buffer): New command.
(rmail-summary-mode-map): Add rmail-summary-save-buffer.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 6383722a4b..288f3f24e6 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -854,6 +854,15 @@ Search, the `unseen' attribute is restored.") (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 @@ Search, the `unseen' attribute is restored.") '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. |