# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1229904351 0
# Node ID 6ad9ecc72b6365bfe1bd70ff9f664c919ca63640
# Parent  cc7f1aa8703e8b86adc116c6d312aec3cbdd31a8
(pmail-save): New function.

diff -r cc7f1aa8703e -r 6ad9ecc72b63 lisp/mail/pmail.el
--- a/lisp/mail/pmail.el	Mon Dec 22 00:05:20 2008 +0000
+++ b/lisp/mail/pmail.el	Mon Dec 22 00:05:51 2008 +0000
@@ -1000,6 +1000,7 @@
 ;; I find I can't live without the default M-r command -- rms.
 ;;  (define-key pmail-mode-map "\er"  'pmail-search-backwards)
   (define-key pmail-mode-map "s"      'pmail-expunge-and-save)
+  (define-key pmail-mode-map "\C-x\C-s" 'pmail-save)
   (define-key pmail-mode-map "\es"    'pmail-search)
   (define-key pmail-mode-map "t"      'pmail-toggle-header)
   (define-key pmail-mode-map "u"      'pmail-undelete-previous-message)
@@ -1419,6 +1420,16 @@
       (pmail-select-summary (set-buffer-modified-p nil))
     (pmail-show-message)))
 
+(defun pmail-save ()
+  "Save the PMAIL file."
+  (interactive)
+  (set-buffer pmail-buffer)
+  (pmail-swap-buffers-maybe)
+  (save-buffer)
+  (if (pmail-summary-exists)
+      (pmail-select-summary (set-buffer-modified-p nil))
+    (pmail-show-message)))
+
 (defun pmail-quit ()
   "Quit out of PMAIL.
 Hook `pmail-quit-hook' is run after expunging."