procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* dired-x.el (dired-do-run-mail): Prompt for confirmation.

Browse source 
Fixes: debbugs:13561
This commit is contained in:
Chong Yidong 2013-02-09 13:09:02 +08:00
parent c516d21a88
commit 044a9eac4e
3 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-09 Chong Yidong <cyd@gnu.org>
* dired-x.el (dired-do-run-mail): Prompt for confirmation
(Bug#13561).
2013-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/byte-run.el (eval-when-compile, eval-and-compile):

19
lisp/dired-x.el
View file

@ -1344,13 +1344,20 @@ Otherwise obeys the value of `dired-vm-read-only-folders'."
(rmail (dired-get-filename)))
(defun dired-do-run-mail ()
"If `dired-bind-vm' is non-nil, call `dired-vm', else call `dired-rmail'."
"Visit the current file as a mailbox, using VM or RMAIL.
Prompt for confirmation first; if the user says yes, call
`dired-vm' if `dired-bind-vm' is non-nil, `dired-rmail'
otherwise."
(interactive)
(if dired-bind-vm
;; Read mail folder using vm.
(dired-vm)
;; Read mail folder using rmail.
(dired-rmail)))
(let ((file (dired-get-filename t)))
(if dired-bind-vm
(if (y-or-n-p (concat "Visit `" file
"' as a mail folder with VM?"))
(dired-vm))
;; Read mail folder using rmail.
(if (y-or-n-p (concat "Visit `" file
"' as a mailbox with RMAIL?"))
(dired-rmail)))))
;;; MISCELLANEOUS INTERNAL FUNCTIONS.

2
lisp/dired.el
View file

@ -4297,7 +4297,7 @@ instead.
;;;***
;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump)
;;;;;; "dired-x" "dired-x.el" "cdaacce7c861256289ba48493dd6d0ec")
;;;;;; "dired-x" "dired-x.el" "90ba5245f6f5df3bdbda6303c725ef45")
;;; Generated autoloads from dired-x.el
(autoload 'dired-jump "dired-x" "\