Mercurial > emacs
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.