[gnus git] branch master updated: n0-13-74-g25b7c85 =1= gnus.el (gnus-interactive): Use read-directory-name. gnus-uu.el (gnus-uu-decode-uu-and-save) (gnus-uu-decode-unshar-and-save, gnus-uu-decode-save) (gnus-uu-decode-binhex, gnus-uu-decode-yenc) (gnus-uu-decode-save-view, gnus-uu-decode-postscript-and-save): Likewise. gnus-group.el (gnus-group-make-directory-group): Likewise.
Katsumi Yamaoka <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 25b7c85769939666b265dffd6bfec7cc056dd040 (commit)
from ed1566cafd82664af9264dc39946306d234d33bb (commit)
- Log -----------------------------------------------------------------
commit 25b7c85769939666b265dffd6bfec7cc056dd040
Author: Antoine Levitt <[email protected]>
Date: Sat Mar 5 23:17:54 2011 +0000
gnus.el (gnus-interactive): Use read-directory-name.
gnus-uu.el (gnus-uu-decode-uu-and-save)
(gnus-uu-decode-unshar-and-save, gnus-uu-decode-save)
(gnus-uu-decode-binhex, gnus-uu-decode-yenc)
(gnus-uu-decode-save-view, gnus-uu-decode-postscript-and-save): Likewise.
gnus-group.el (gnus-group-make-directory-group): Likewise.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ccf696..ba11e2c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2011-03-05 Antoine Levitt <[email protected]>
+
+ * gnus.el (gnus-interactive): Use read-directory-name.
+
+ * gnus-uu.el (gnus-uu-decode-uu-and-save)
+ (gnus-uu-decode-unshar-and-save, gnus-uu-decode-save)
+ (gnus-uu-decode-binhex, gnus-uu-decode-yenc)
+ (gnus-uu-decode-save-view, gnus-uu-decode-postscript-and-save):
+ Likewise.
+
+ * gnus-group.el (gnus-group-make-directory-group): Likewise.
+
2011-03-05 Lars Magne Ingebrigtsen <[email protected]>
* gnus-sum.el (gnus-update-read-articles): Fix typo.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 832cd75..9ed3cf0 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3102,7 +3102,7 @@ The user will be prompted for a directory. The contents of this
directory will be used as a newsgroup. The directory should contain
mail messages or news articles in files that have numeric names."
(interactive
- (list (read-file-name "Create group from directory: ")))
+ (list (read-directory-name "Create group from directory: ")))
(unless (file-exists-p dir)
(error "No such directory"))
(unless (file-directory-p dir)
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index d6aad53..7aa0e09 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -366,7 +366,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(interactive
(list current-prefix-arg
(file-name-as-directory
- (read-file-name "Uudecode and save in dir: "
+ (read-directory-name "Uudecode and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir t))))
(gnus-uu-decode-with-method 'gnus-uu-uustrip-article n dir nil nil t))
@@ -381,7 +381,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(interactive
(list current-prefix-arg
(file-name-as-directory
- (read-file-name "Unshar and save in dir: "
+ (read-directory-name "Unshar and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir t))))
(gnus-uu-decode-with-method 'gnus-uu-unshar-article n dir nil 'scan t))
@@ -390,12 +390,11 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
"Saves the current article."
(interactive
(list current-prefix-arg
- (read-file-name
(if gnus-uu-save-separate-articles
- "Save articles in dir: "
- "Save articles in file: ")
- gnus-uu-default-dir
- gnus-uu-default-dir)))
+ (read-directory-name
+ "Save articles in dir: " gnus-uu-default-dir gnus-uu-default-dir)
+ (read-file-name-name
+ "Save article in file: " gnus-uu-default-dir gnus-uu-default-dir))))
(setq gnus-uu-saved-article-name file)
(gnus-uu-decode-with-method 'gnus-uu-save-article n nil t))
@@ -404,7 +403,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(interactive
(list current-prefix-arg
(file-name-as-directory
- (read-file-name "Unbinhex and save in dir: "
+ (read-directory-name "Unbinhex and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir))))
(setq gnus-uu-binhex-article-name
@@ -416,7 +415,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(interactive
(list current-prefix-arg
(file-name-as-directory
- (read-file-name "yEnc decode and save in dir: "
+ (read-directory-name "yEnc decode and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir))))
(setq gnus-uu-yenc-article-name nil)
@@ -458,10 +457,11 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
"Saves and views the current article."
(interactive
(list current-prefix-arg
- (read-file-name (if gnus-uu-save-separate-articles
- "Save articles is dir: "
- "Save articles in file: ")
- gnus-uu-default-dir gnus-uu-default-dir)))
+ (if gnus-uu-save-separate-articles
+ (read-directory-name "Save articles in dir: "
+ gnus-uu-default-dir gnus-uu-default-dir)
+ (read-file-name "Save articles in file: "
+ gnus-uu-default-dir gnus-uu-default-dir))))
(let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
(gnus-uu-decode-save n file)))
@@ -742,7 +742,7 @@ When called interactively, prompt for REGEXP."
(interactive
(list current-prefix-arg
(file-name-as-directory
- (read-file-name "Save in dir: "
+ (read-directory-name "Save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir t))))
(gnus-uu-decode-with-method 'gnus-uu-decode-postscript-article
diff --git a/lisp/gnus.el b/lisp/gnus.el
index d11fd84..e834410 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3267,7 +3267,7 @@ g -- Group name."
((= c ?d)
(point))
((= c ?D)
- (read-file-name prompt nil default-directory 'lambda))
+ (read-directory-name prompt nil default-directory 'lambda))
((= c ?f)
(read-file-name prompt nil nil 'lambda))
((= c ?F)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 12 ++++++++++++
lisp/gnus-group.el | 2 +-
lisp/gnus-uu.el | 30 +++++++++++++++---------------
lisp/gnus.el | 2 +-
4 files changed, 29 insertions(+), 17 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project