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 --git a/etc/ChangeLog b/etc/ChangeLog
index 7da010b3d78481a9a6aaa0ca716245f22ec94648..cd0f33bf92099749d1bc70f4004d679a399bdb17 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2007-06-07  Mark H. Weaver  <mhw@netris.org>  (tiny change)
+
+       * NEWS (set-mark-command-repeat-pop): Fix duplicate entry.
+
 2007-06-07  Michael Olson  <mwolson@gnu.org>
 
        * MORE.STUFF: Update eshell URL.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43b812a4391d2100e8c675cc24a3642e4cf53496..26974c65c38027d3000bd233be90e25a50f93204 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-07  Alfred M. Szmidt  <ams@gnu.org>  (tiny change)
+
+       * mail/rmailsum.el (rmail-summary-save-buffer): New command.
+       (rmail-summary-mode-map): Add rmail-summary-save-buffer.
+
 2007-06-07  Juanma Barranquero  <lekktu@gmail.com>
 
        * progmodes/ebrowse.el (ebrowse-member-table):

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 6383722a4be1a768d8e064d8fb92a797543184e3..288f3f24e6638203e57fce180d773430a1c7794f 100644 (file)
--- 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))))
+
 \f
 (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)
   )
 \f
 ;;; Menu bar bindings.