changeset 32969:899478c14a26

2000-09-24 Simon Josefsson <simon@josefsson.org> * gnus-group.el (gnus-group-nnimap-edit-acl): Check if server support ACL's. 2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu> * gnus-group.el (gnus-group-make-kiboze-group): Use nnkiboze-score-file. (gnus-group-make-kiboze-group): Fix prompt.
author Dave Love <fx@gnu.org>
date Fri, 27 Oct 2000 18:06:48 +0000
parents 0b0f5789e6d9
children 343a1c02c422
files lisp/gnus/gnus-group.el
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Fri Oct 27 17:58:47 2000 +0000
+++ b/lisp/gnus/gnus-group.el	Fri Oct 27 18:06:48 2000 +0000
@@ -3,6 +3,7 @@
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;; Maintainer: bugs@gnus.org
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -1771,7 +1772,9 @@
 	  (when (gnus-group-read-group t t group select-articles)
 	    group)
 	;;(error nil)
-	(quit nil)))))
+	(quit
+	 (message "Quit reading the ephemeral group")
+	 nil)))))
 
 (defun gnus-group-jump-to-group (group)
   "Jump to newsgroup GROUP."
@@ -2359,13 +2362,14 @@
 					  "Match on header: " headers nil t))))
 	(setq regexps nil)
 	(while (not (equal "" (setq regexp (read-string
-					    (format "Match on %s (string): "
+					    (format "Match on %s (regexp): "
 						    header)))))
 	  (push (list regexp nil nil 'r) regexps))
 	(push (cons header regexps) scores))
       scores)))
   (gnus-group-make-group group "nnkiboze" address)
-  (let* ((score-file (gnus-score-file-name (concat "nnkiboze:" group)))
+  (let* ((nnkiboze-current-group group)
+	 (score-file (car (nnkiboze-score-file "")))
 	 (score-dir (file-name-directory score-file)))
     (unless (file-exists-p score-dir)
       (make-directory score-dir))
@@ -2450,8 +2454,9 @@
       (error "Killed group; can't be edited"))
     (unless (eq (car (setq method (gnus-find-method-for-group group))) 'nnimap)
       (error "%s is not an nnimap group" group))
-    (gnus-edit-form (setq acl (nnimap-acl-get mailbox (cadr method)))
-		    (format "Editing the access control list for `%s'.
+    (unless (setq acl (nnimap-acl-get mailbox (cadr method)))
+      (error "Server does not support ACL's"))
+    (gnus-edit-form acl (format "Editing the access control list for `%s'.
 
    An access control list is a list of (identifier . rights) elements.