Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
044a9eac
Commit
044a9eac
authored
Feb 09, 2013
by
Chong Yidong
Browse files
* dired-x.el (dired-do-run-mail): Prompt for confirmation.
Fixes: debbugs:13561
parent
c516d21a
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
19 additions
and
7 deletions
+19
-7
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/dired-x.el
lisp/dired-x.el
+13
-6
lisp/dired.el
lisp/dired.el
+1
-1
No files found.
lisp/ChangeLog
View file @
044a9eac
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):
...
...
lisp/dired-x.el
View file @
044a9eac
...
...
@@ -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.
...
...
lisp/dired.el
View file @
044a9eac
...
...
@@ -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
" "
\
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment