projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4ff9a4c
)
(gnus-group-make-shimbun-group): Complete completions.
author
yamaoka
<yamaoka>
Wed, 24 May 2000 07:26:10 +0000
(07:26 +0000)
committer
yamaoka
<yamaoka>
Wed, 24 May 2000 07:26:10 +0000
(07:26 +0000)
ChangeLog
patch
|
blob
|
history
lisp/gnus-group.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
52facc2
..
46b2a60
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2000-05-24 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/gnus-group.el (gnus-group-make-shimbun-group): Complete
+ completions.
+
2000-05-24 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
* lisp/nnshimbun.el: Add `CNET Japan' support.
2000-05-24 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
* lisp/nnshimbun.el: Add `CNET Japan' support.
diff --git
a/lisp/gnus-group.el
b/lisp/gnus-group.el
index
681a37c
..
cfe93f1
100644
(file)
--- a/
lisp/gnus-group.el
+++ b/
lisp/gnus-group.el
@@
-2209,39
+2209,33
@@
If SOLID (the prefix), create a solid group."
"Create a nnshimbun group."
(interactive)
(require 'nnshimbun)
"Create a nnshimbun group."
(interactive)
(require 'nnshimbun)
- (let* ((default-type
- (or (car gnus-group-shimbun-type-history)
- (symbol-name (caar nnshimbun-type-definition))))
+ (let* ((minibuffer-setup-hook (append minibuffer-setup-hook
+ '(beginning-of-line)))
(type
(type
- (gnus-string-or
- (completing-read
- (format "Shimbun type (default %s): " default-type)
- (mapcar (lambda (elem) (list (symbol-name (car elem))))
- nnshimbun-type-definition)
- nil t nil 'gnus-group-shimbun-type-history)
- default-type))
- (default-address
- (cdr (assq 'address
- (assq (intern type) nnshimbun-type-definition))))
+ (completing-read
+ "Shimbun type: "
+ (mapcar (lambda (elem) (list (symbol-name (car elem))))
+ nnshimbun-type-definition)
+ nil t
+ (or (car gnus-group-shimbun-type-history)
+ (symbol-name (caar nnshimbun-type-definition)))
+ 'gnus-group-shimbun-type-history))
(address
(address
- (gnus-string-or
- (read-string
- (if default-address
- (format "Shimbun address (default %s): " default-address)
- "Shimbun address: ")
- nil 'gnus-group-shimbun-address-history)
- default-address))
+ (read-string
+ "Shimbun address: "
+ (cdr (assq 'address
+ (assq (intern type) nnshimbun-type-definition)))
+ 'gnus-group-shimbun-address-history))
(group
(completing-read
"Group name: "
(mapcar (lambda (elem) (list elem))
(group
(completing-read
"Group name: "
(mapcar (lambda (elem) (list elem))
- (cdr (assq 'groups (cdr (assq (intern type) nnshimbun-type-definition)))))
+ (cdr (assq 'groups (cdr (assq (intern type)
+ nnshimbun-type-definition)))))
nil t nil)))
nil t nil)))
- (setq gnus-group-shimbun-type-history
- (delete "" gnus-group-shimbun-type-history)
- gnus-group-shimbun-address-history
- (delete "" gnus-group-shimbun-address-history))
- (gnus-group-make-group group `(nnshimbun ,address (nnshimbun-type ,(intern type))))))
+ (gnus-group-make-group group
+ `(nnshimbun ,address
+ (nnshimbun-type ,(intern type))))))
(defun gnus-group-make-archive-group (&optional all)
"Create the (ding) Gnus archive group of the most recent articles.
(defun gnus-group-make-archive-group (&optional all)
"Create the (ding) Gnus archive group of the most recent articles.