# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1181197962 0
# Node ID 4667776e1eddc5b3938aa67e934e9be21df24e5d
# Parent  c955e0a8ca6d917235d092eef1f64900bab2844e
Alfred M. Szmidt  <ams at gnu.org>  (tiny change)

(rmail-summary-save-buffer): New command.
(rmail-summary-mode-map): Add rmail-summary-save-buffer.

diff -r c955e0a8ca6d -r 4667776e1edd lisp/mail/rmailsum.el
--- 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.