mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(pmail-save): New function.

Browse Source
This commit is contained in:
Chong Yidong 2008-12-22 00:05:51 +00:00
parent 0ee2fffa92
commit ea9c64a81a
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/mail/pmail.el
View File

@ -1000,6 +1000,7 @@ The buffer is expected to be narrowed to just the header of the message."
;; 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 @@ Create the buffer if necessary."
(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."