aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/sendmail.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 2d3073f3b44..3e0f17e96b5 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1536,7 +1536,7 @@ The seventh argument ACTIONS is a list of actions to take
1536 initialized)) 1536 initialized))
1537 1537
1538(defun mail-recover-1 () 1538(defun mail-recover-1 ()
1539 "Pop up a list of auto-saved draft messages and allow to recover them." 1539 "Pop up a list of auto-saved draft messages so you can recover one of them."
1540 (interactive) 1540 (interactive)
1541 (let ((file-name (make-auto-save-file-name)) 1541 (let ((file-name (make-auto-save-file-name))
1542 (ls-lisp-support-shell-wildcards t) 1542 (ls-lisp-support-shell-wildcards t)
@@ -1607,7 +1607,12 @@ The seventh argument ACTIONS is a list of actions to take
1607 default-buffer-file-coding-system)))))))) 1607 default-buffer-file-coding-system))))))))
1608 1608
1609(defun mail-recover () 1609(defun mail-recover ()
1610 "Recover interrupted mail composition from auto-save files." 1610 "Recover interrupted mail composition from auto-save files.
1611
1612If the mail buffer has a current valid auto-save file,
1613the command recovers that file. Otherwise, it displays a
1614buffer showing the existing auto-saved draft messages;
1615you can move to one of them and type C-c C-c to recover that one."
1611 (interactive) 1616 (interactive)
1612 ;; In case they invoke us from some random buffer... 1617 ;; In case they invoke us from some random buffer...
1613 (switch-to-buffer "*mail*") 1618 (switch-to-buffer "*mail*")